自动修改计算机用户名，用vb语言来写。。

自动修改计算机用户名，比如：比如输入10号机子，使得用户名和计算机名都变成ks10用vb语言来写。。

声明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

private sub command1_click() dim a as object set a = createobject("wscript.network") print a.computername print a.username print a.userdomain end sub