Excel VBA テクニック集
パソコン関連情報の取得





Excel VBA テクニック集
パソコン関連情報の取得方法です。

コンピュータ名の取得方法です。
Declare Function GetComputerName Lib "kernel32" Alias _
        "GetComputerNameA" (ByVal Buffer As String, Size As Long) As Long

Public Function Get_Computer_Name() As String
    Dim RetVal As Long
    Dim ComputerNameBuff As String * 16

    On Error GoTo Gcn900
    RetVal = GetComputerName(ComputerNameBuff, Len(ComputerNameBuff))
    Get_Computer_Name = Left(ComputerNameBuff, InStr(ComputerNameBuff, vbNullChar) - 1)
    Exit Function
Gcn900:
    Resume Next
    Get_Computer_Name = ""
End Function

ユーザー名の取得方法です。
Declare Function GetUserName Lib "advapi32.dll" Alias _
        "GetUserNameA" (ByVal Buffer As String, Size As Long) As Long

Public Function Get_User_Name() As String
    Dim RetVal As Long
    Dim UserNameBuff As String * 128

    On Error GoTo Gun900
    RetVal = GetUserName(UserNameBuff, Len(UserNameBuff))
    Get_User_Name = Left(UserNameBuff, InStr(UserNameBuff, vbNullChar) - 1)
    Exit Function
Gun900:
    Resume Next
    Get_User_Name = ""
End Function

「こだわりハウス」写真館| 数学公式集| ピンポイントストリートビュー| FaceBook| Excel Vba テクニック集| Excel 計算式解析・他解析| 富山の建築家| Excel 計算式解析・他解析| 積分の定義・積分の記号の意味の研究|