擷取電腦名稱

標籤：

‘ 聲明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

擷取電腦名稱