在Win 98/2000中，计算机有一个名字。运行regedit在"HKEYLOCALMACHINESystemCurrentControlSetcontrolComputerNameComputerName"中将发现"ComputerName"="Default"( 或其它字符串)，在regedit下可以查看和修改这个名字。我们还可在程序中通过Win32API提供的GetComputerName、SetComputerName这两个函数来查看和修改计算机的名字。下面以VB为例来探讨如何编写一个可查看和修改计算机名字的程序。
    1.插入一个新模块，在其中添加如下代码：
    ′声明 GetComputerName
    Declare Function GetComputerName Lib″kernel 32″Alias″
    GetComputerNameA″(Byval lpBuffer As
    String,nSize As Long)As Long
    ′声明 SetComputerName
    Declare Function SetComputerName Lib″kernel 32″Alias ″
    SetComputerNameA″(Byval lp ComputerName As String)As Long
    ′定义一个获取计算机名字的函数
    Public Function GetCName (CName) As Boolean
    Dim sComputerName As String ＇计算机的名字
    Dim lComputerName As Long
    ＇计算机名字的长度
    Dim lResult As Long
    ＇GetComputerName的返回值
    Dim RV As Boolean
    ′GetCName返回值，若为TRUE则表示操作成功
    lComputerNameLen=256
    sComputerName=Space (lComputerNameLen)
    lResult=GetComputerName (sComputerName,lCompputerNameLen)
    If lResult 〈〉0 Then Cname=Left＄
    (sComputerName,lComputerNameLen)
    RV=True
    Else RV=False
    End If
    GetCName=RV
    End Function
    ′定义一个修改计算机名字的函数
    Public Function SetCName (CName ) 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 ″This Computer Name is :″,CN
    CN=″MYCOMPUTER″
    x=SetCName (CN )
    Print ″Now the Computer name is :″,CN
    End Sub
    OK, 保存上述设置和代码，然后按F5运行该程序。