获取计算机名

' 声明GetComputerName
Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
' 声明SetComputerName
Private Declare Function SetComputerName Lib "kernel32" Alias "SetComputerNameA" (ByVal lpComputerName As String) As Long
'定义一个获取计算机名字的函数
Private Function GetCName(ByRef CName) As Boolean
    Dim sCName As String ' 计算机的名字
    Dim lComputerNameLen As Long ' 计算机名字的长度
    Dim lResult As Long ' GetComputerName的返回值
    Dim RV As Boolean ' GetCName返回值，若为TRUE则表示操作成功
    lComputerNameLen = 256
    sCName = Space(lComputerNameLen)
    lResult = GetComputerName(sCName, lComputerNameLen)
    If lResult <> 0 Then
        CName = Left$(sCName, lComputerNameLen)
        RV = True
    Else
        RV = False
    End If
    GetCName = RV
End Function
' 定义一个修改计算机名字的函数
Private Function SetCName(ByVal CName As String) As Boolean
    Dim lResult As Long
    Dim RV As Boolean
    lResult = SetComputerName(CName)
    If lResult <> 0 Then
        RV = True ' 修改成功
    Else
        RV = False
    End If
    SetCName = RV
End Function