VBA-回傳電腦名稱

下列程式碼可以傳回電腦名稱

Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, _
                                                nSize As Long) As Long

Sub Get_Computer_Name()

    Dim Comp_Name_B As String * 255
    Dim Comp_Name As String
    GetComputerName Comp_Name_B, Len(Comp_Name_B)
    '然而此一字串經常以 null符號作為結尾，因此，我們使用 Chr(0) 函數來取得結尾
    Comp_Name = Left(Comp_Name_B, InStr(Comp_Name_B, Chr(0)))
    '僅傳回電腦名稱
    MsgBox Comp_Name
End Sub

下列程式碼可以傳回登入 Windows 的使用者名稱

Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _
                                                        (ByVal lpBuffer As String, _
                                                        nSize As Long) As Long

Sub Get_User_Name()
 
    Dim lpBuff As String * 25
    Dim ret As Long, UserName As String
    ret = GetUserName(lpBuff, 25)
    UserName = Left(lpBuff, InStr(lpBuff, Chr(0)) - 1)
    MsgBox UserName
 
End Sub