在VB中获取和修改计算机名字

1、插入一个新模块，在其中添加如下代码：
　　＇声明GetComputerName
　　DeclareFunctionGetComputerNameLib"kernel32"Alias"GetComputerNameA"(ByvallpBufferAsString,nSizeAsLong)AsLong

＇声明SetComputerName
　　DeclareFunctionSetComputerNameLib"kernel32"Alias"SetComputerNameA"(ByvallpComputerNameAsString)AsLong

＇定义一个获取计算机名字的函数
　　PublicFunctionGetCName(CName)AsBoolean
　　DimsComputerNameAsString＇计算机的名字
　　DimlComputerNameAsLong＇计算机名字的长度
　　DimlResultAsLong＇GetComputerName的返回值
　　DimRVAsBoolean

＇GetCName返回值，若为TRUE则表示操作成功
　　lComputerNameLen=256
　　sComputerName=Space(lComputerNameLen)
　　lResult=GetComputerName(sComputerName,lCompputerNameLen)
　　IflResult<>0ThenCname=Left$(sComputerName,lComputerNameLen)
　　RV=True
　　Else
　　RV=False
　　EndIf
　　GetCName=RV
　　EndFunction

＇定义一个修改计算机名字的函数
　　PublicFunctionSetCName(CName)AsBoolean
　　DimlResultAsLong
　　DimRVAsBoolean
　　lResult=SetComputerName(CName)
　　IflResult<>0Then
　　RV=True修改成功
　　Else
　　RV=False
　　EndIf
　　SetCName=RV
　　EndFunction
　　
　　2、在窗体中添加一命令按钮Command1，双击该按钮并在其中添加如下代码：
　　
　　SubCommand1-Click()
　　DIMCNASString
　　x=GetCName(CN)
　　Print"ThisComputerNameis:",CN
　　CN="MYCOMPUTER"
　　x=SetCName(CN)
　　Print"NowtheComputernameis:",CN
　　EndSub
　　
　　3、保存上述设置和代码，然后按F5运行该程序，观察其运行结果。
　　
　　需要说明的是：（1）修改完计算机的名字后必须重新启动才能有效；（2）计算机名字中只能含有字母、数字和下面的几种符号：！、@、#、$、、^、；、＇、）、（、、-、{、}、~、（3）程序的运行环境为：VB4.0(32)、Win95中文版。