'主程序
Sub Main()
Dim wjmc As String, address As String, SKeyVal As String, SKeyVal1 As Long, SS As String
Dim ComputerName As String, MacAddress As String
Dim lpName As String, Vname As String, S1 As String
Dim i As Integer, bj As Integer, Idx As Long, idx1 As Long
Dim wsversion As Long, hKey As Long, hKey1 As Long,
Dim lenData As Long, typeData As Long
Dim ret As Long, ret1 As Long, ret2 As Long, ret3 As Long
wjmc = App.Path + "\netname.dat"
If Dir(wjmc) = "" Then End
wsversion = GetVersion()
address = GetMACAddress() ’获取MAC地址
Open wjmc For Input As #1 ’打开MAC——计算机名映射表文件
Do While Not EOF(1) ' 循环至文件尾。
Input #1, ComputerName, MacAddress ' 将数据读入两个变量。
ComputerName = UCase(ComputerName)
MacAddress = UCase(MacAddress)
If address = MacAddress Then
i = SetComputerName(ComputerName) ’修改NetBIOS计算机名(Computername)
If i = 0 Then
MsgBox "设置计算机名失败!", vbOKOnly
End If
If (wsversion And &H80000000) = 0 Then
ret = RegCreateKey(HKEY_LOCAL_MACHINE, "SYSTEM\CurrentControlSet\Services\ _
Tcpip\Parameters", hKey)
If ret = 0 Then
RegSetValueEx hKey, "NV Hostname", 0, REG_SZ, ByVal ComputerName, _
Len(ComputerName) + 1 ’修改DNS主机名(Hostname)
End If
RegCloseKey hKey
'下面这段程序用于检测是否安装过五笔字型FOR 2K或极品五笔，如果安装过，在输入法面板中恢复这两种输入法的显示。
ret = RegOpenKey(HKEY_LOCAL_MACHINE, "SYSTEM\CurrentControlSet\Control\ _
Keyboard Layouts", hKey)
If ret = 0 Then
Idx = 0
lpName = String(9, Chr(0))
Do
ret1 = RegEnumKey(hKey, Idx, lpName, Len(lpName))
If ret1 = 0 Then
SS = UCase(Left(lpName, 8))
If SS = "E0100804" Or SS = "E0200804" Then
If SS = "E0100804" Then bj = 1 Else bj = 2
ret2 = RegOpenKey(HKEY_CURRENT_USER, "Keyboard Layout\Preload", hKey1)
If ret2 = 0 Then
idx1 = 1
Vname = idx1
Do
ret3 = RegQueryValueEx(hKey1, idx1, 0, typeData, _
ByVal vbNullString, lenData)
If ret3 = 0 Then
S1 = String(lenData, Chr(0))
ret3 = RegQueryValueEx(hKey1, Vname, 0, typeData, ByVal S1, lenData)
S1 = Left(S1, InStr(S1, Chr(0)) - 1)
If UCase(Trim(S1)) = "E0100804" Or UCase(Trim(S1)) = "E0200804" Then
Exit Do
End If
End If
idx1 = idx1 + 1
Vname = idx1
Loop Until ret3 <> 0
If ret3 <> 0 Then
Vname = idx1 - 1
If bj = 1 Then
RegSetValueEx hKey1, Vname, 0, REG_SZ, ByVal "E0100804", 9
Else
RegSetValueEx hKey1, Vname, 0, REG_SZ, ByVal "E0200804", 9
End If
Else
Exit Do
End If
End If
End If
End If
Idx = Idx + 1
Loop Until ret1 <> 0
End If
RegCloseKey hKey
ret = RegCreateKey(HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\Windows NT\ _
CurrentVersion\Winlogon", hKey)
If ret = 0 Then
'下面键值的设置是：自动登录
SKeyVal = "1"
RegSetValueEx hKey,"AutoAdminLogon",0,REG_SZ,ByVal SKeyVal,Len(SKeyVal)+1
'下面键值的设置是：默认域名
SKeyVal = ComputerName
RegSetValueEx hKey,"DefaultDomainName",0,REG_SZ,ByVal SKeyVal,Len(SKeyVal)+1
'下面键值的设置是：默认用户名
SKeyVal = "administrator"
RegSetValueEx hKey,"DefaultUserName",0,REG_SZ,ByVal SKeyVal,Len(SKeyVal)+1
'下面键值的设置是：登录密码为空
SKeyVal = ""
RegSetValueEx hKey,"DefaultPassword",0,REG_SZ,ByVal SKeyVal,Len(SKeyVal)+1
'下面键值的设置是：登录使用欢迎屏幕（适用于Windows XP）
SKeyVal1 = &H1
RegSetValueEx hKey, "LogonType", 0, REG_DWORD, ByVal SKeyVal, 4
'下面键值的设置是：使用快速用户切换（适用于Windows XP）
SKeyVal1 = &H1
RegSetValueEx hKey, "AllowMultipleTSSessions", 0, REG_DWORD, ByVal SKeyVal, 4
End If
RegCloseKey hKey
End If
Exit Do
End If
Loop
Close #1
Kill wjmc
AdjustToken
ret = ExitWindowsEx(EWX_REBOOT Or EWX_FORCE, 0) '重新启动计算机
End Sub