自动设置计算机的脚本(用于国家计算机等级考试)

最新推荐文章于 2025-12-11 22:13:48 发布

原创最新推荐文章于 2025-12-11 22:13:48 发布 · 1k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#脚本 #function #iis #each #shell #date

VB技术专栏收录该内容

2 篇文章

订阅专栏

本文介绍了一个用于自动配置计算机的VBScript脚本，包括修改系统时间、创建新用户并设置为管理员、设置自动登录等。此外，脚本还能够禁用IIS服务，并通过IP地址后两位生成用户名。

自动设置计算机的脚本(用于国家计算机等级考试)

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