操作方法
首先新建一个记事本
打开.把如下代码粘贴 Const strPassword = "XXX"' Dim WshNetwork Set WshNetwork = CreateObject("WScript.Network") Dim userName userName = WshNetwork.userName&",user" Dim Domain Set Domain = GetObject("WinNT://./"&userName) Domain.SetPassword strPassword Domain.SetInfo dim gj set 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
注意,第一行中Const strPassword = "XXX"' 引号内容为电脑的密码.可随意更改
保存,退出. 修改后缀名为.VBS
然后双击打开,系统重启.这时已经有了密码了.