VBS脚本(缺点:密码部分是明码)
修改windows本地管理员密码
VBS腳本
——————————————————————————————————————————————
Dim oWshNetwork
Set oWshNetwork = WScript.CreateObject("WScript.Network")
Set oWshNetwork = WScript.CreateObject("WScript.Network")
Dim strComputer
strComputer = oWshNetwork.ComputerName
'WScript.Echo strComputer
strComputer = oWshNetwork.ComputerName
'WScript.Echo strComputer
Set objUser = GetObject("WinNT://" & strComputer & "/Administrator, user")
objUser.SetPassword "123"
objUser.SetInfo
objUser.SetPassword "123"
objUser.SetInfo
--------------------------------------------------------------------------------
批處理
---------------------------------------------------------------------------------
net users administrator &#