在Win 95中，計算機有一個名字。運行regedit，在“HKEY_LOCAL_MACHINESystem
CurrentControlSetcontrolComputerNameComputerName”中將發現 “ComputerName”
=“Default”（或其它字符串），在regedit下可以查看和修改這個名字。我們還可在程序
中通過Win32 API提供的GetComputerName、SetComputerName這兩個函數來查看和修改計算機的名字。下面以VB為例來探討如何編寫一個可查看和修改計算機名字的程序。
1、插入一個新模塊，在其中添加如下代碼：
聲明GetComputerName
Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
聲明SetComputerName
Declare Function SetComputerName Lib "kernel32" Alias "SetComputerNameA" (ByVal lpComputerName As String) As Long
’定義一個獲取計算機名字的函數
Public Function GetCName(CName) As Boolean
Dim sComputerName As String 計算機的名字
Dim lComputerNameLen As Long 計算機名字的長度
Dim lResult As Long GetComputerName的返回值
Dim RV As Boolean GetCName返回值，若為TRUE則表示操作成功
lComputerNameLen = 256
sComputerName = Space(lComputerNameLen)
lResult = GetComputerName(sComputerName, lComputerNameLen)
If lResult <> 0 Then
CName = Left$(sComputerName, lComputerNameLen)
RV = True
Else
RV = False
End If
GetCName = RV
End Function
定義一個修改計算機名字的函數
Public Function SetCName(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
2、在窗體中添加一命令按鈕Command1，雙擊該按鈕并在其中添加如下代碼：
Sub Command1_Click()
DIM CN AS String
x = GetCName(CN)
Print "Thi omputer Name is:",CN
CN="MYCOMPUTER"
x = SetCName(CN)
Print "Now the Computer name is:",CN
End Sub
3、保存上述設置和代碼，然后按F5運行該程序，觀察其運行結果。
需要說明的是：（1）修改完計算機的名字后必須重新啟動才能有效；（2）計算機名字中只能含有字母、數字和下面的幾種符號：!、@、#、$、%、^、;、、)、(、.、-、_、{、}、'；（3）程序的運行環境為：VB 4.0（32）、Win 95中文版。