得到计算机名（摘）

来源：互联网发布：中国高铁领跑世界知乎编辑：程序博客网时间：2024/06/05 19:43

最简单的办法：

MsgBox VBA.Environ("ComputerName")

二种：

Option Explicit

Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private Const MAX_COMPUTERNAME_LENGTH As Long = 31

Private Sub Command1_Click()
Dim dwLen As Long
Dim strString As String

dwLen = MAX_COMPUTERNAME_LENGTH + 1
strString = String(dwLen, "X")

GetComputerName strString, dwLen

strString = Left(strString, dwLen)

MsgBox "You computer name's " & strString
End Sub

三种（和二种差不多）

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

Private Sub Command1_Click()
Dim Name As String
Dim Length As Long

    Length = 225
    Name = String(Length, Chr(0))
    GetComputerName Name, Length
    Name = Left(Name, Length)
    Print Name

End Sub