1、首先新建一个记事本
2、打开.把如下代码粘贴Const strPassword = "XXX"' Dim WshNetworkSet WshNetwork = CreateObject("WScript.Network")Dim userNameuserName = WshNetwork.userName&",user"Dim DomainSet Domain = GetObject("WinNT://./"&userName)Domain.SetPassword strPasswordDomain.SetInfodim gjset gj=createobject("wscript.shell")gj.run"shutdown -f -t"'Set objWMI = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\.\root\cimv2") objWMI.Security_.ImpersonationLevel=3 objWMI.Security_.Privileges.Add 18 Set colOS=objWMI.InstancesOf ("Win32_OperatingSystem where Primary=true") For Each clsOS in colOS clsOS.Reboot() Next
3、注意,第一行中Const strPassword = "XXX"挢旗扦渌;' 引号内容为电脑的密码.可随意更改
4、保存,退出. 修改后缀名为.VBS
5、然后双击打开,系统重启.这时已经有了密码了.
