|
パソコン関連情報の取得方法です。
コンピュータ名の取得方法です。
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
|