自动设置计算机的脚本(用于国家计算机等级考试)
On Error Resume Next
'如果要安静执行,注释本句
WScript.Echo("开始执行命令,请稍候")
'定义命令字串
’在有些机器中,直接在Run中写入拼接命令字串时执行结果不正确
‘所以先定义命令字串,在拼接好命令字串后再提交给RUN
dim cmdstr
'创建Shell对象
Dim OperShell
Set OperShell=WScript.CreateObject("WScript.Shell")
'--------------------------------------------------------------------------------------------------------------------------------------------
'修改系统时间
OperShell.Run("%comspec% /c date 2006.8.8"), 1, TRUE
OperShell.Run("%comspec% /c time 12:00:00"), 1, TRUE
'说明:%comspec%打开一个命令行窗口。
' %comspec% 是一个指向当前命令行外壳的环境变量。
' 通过使用 %comspec%,您不必担心命令行外壳是 cmd.exe 还是 command.exe;
' %comspec% 会自动选择正确的一个。
'---------------------------------------------------------------------------------------------------------------------
'获取本机IP 此段脚本摘自于CoderZh的技术博客
'owner DeViL
'return 本机的IP地址
Public Function GetIP
ComputerName="."
Dim objWMIService,colItems,objItem,objAddress
Set objWMIService = GetObject("winmgmts://" & ComputerName & "/root/cimv2")
Set colItems = objWMIService.ExecQuery("Select * From Win32_NetworkAdapterConfiguration
Where IPEnabled = True")
For Each objItem in colItems
For Each objAddress in objItem.IPAddress
If objAddress <> "" then
GetIP = objAddress
Exit Function
End If
Next
Next
End Function
'---------------------------------------------------------------------------------------------------------------------
'以IP地址后两位生成用户名
dim sUser
sUser=right(getip,2)
IF left(sUser,1)="." then
sUser="0" &Right(sUser,1)
end if
sUser="K" &sUser
'---------------------------------------------------------------------------------------------------------------------
'创建新用户
cmdstr="net user " &sUser &" /add"
OperShell.Run(cmdstr)
'延时500ms,防止在多任务环境下与后面的命令发生执行顺序混乱
WScript.sleep 500
‘'将新用户添加到管理员组
cmdstr="net localgroup administrators " &sUser &" /add"
OperShell.Run(cmdstr)
'----------------------------------------------------------------------------------------------------------------------
'修改默认登录用户名
RegPath="HKLM/SOFTWARE/Microsoft/Windows NT/CurrentVersion/Winlogon/"
Type_Name="REG_SZ"
OperShell.RegWrite RegPath & "DefaultUserName",sUser,Type_Name
OperShell.RegWrite RegPath & "AltDefaultUserName",sUser,Type_Name
'设置自动登录
OperShell.RegWrite RegPath & "AutoAdminLogon", 1, Type_Name
'----------------------------------------------------------------------------------------------------------------------
'停止IIS服务
cmdstr="net stop iisadmin /y"
OperShell.Run(cmdstr)
'禁用IIS服务
RegPath="HKLM/System/currentcontrolset/services/iisadmin/start"
Type_Name="REG_DWORD"
OperShell.RegWrite RegPath ,4,Type_Name
'----------------------------------------------------------------------------------------------------------------------
'如果要安静执行,注释本句
WScript.Echo("命令执行完成")
'退出脚本
Wscript.quit