jacky
问题补充说明：这个是为什么？有没有哪位大神知道！想要一段这样能用的的代码... 这个是为什么？有没有哪位大神知道！想要一段 这样 能用的的代码 展开
将域用户或租添加到本地组Se比tobjGroup=GetObject(WinNT://./Administrators)SetobjUser=GetObject(WinNT:/专内盾/testnet/Engineers)
objGroup.Add(objUser.ADsPath)
来自修改本地管理员密码
S360问答etobjcnlar=GetObject(角味罪艺室余WinNT://./administrator,user)
objcnla.SetPasswordP@ssW0rd
objcnla.SetInfo
弹干叫表殖沉怕放混兴绝出YESorNO的对话框，不同的选择执行不同的代码
intAnswer=M吗作厂吗业门挥编盐预药sgbox(Doyouwantto副里吧后式纸学众张陈室deletethesefiles?,vbYesNo,DeleteFiles)
IfintAnswer=vbYesThen
MsgboxYouansweredyes.
ElseMsgboxYouansweredno.
EndIf
运行CMD命令行命令
setobshell=wscript.createobje换己头么坚序武方曲在ct(***.shell)
***.run(ipconfig),,true
如果要运行的命令中包含双引号，可使用&chr(34)&代替
忽略代码错误继续执行
OnErrorResumeNext
放置均米五千案于代码的最开头，当代码运行出错后并不停止跳出而是继续执行下一条。适当应用会很有效果。
注册表的修改，读取初预民间斯握个，删除，创建
Setw观等设七满此保房so=CreateObject(***.shell)'声明
wso.RegW济rite%Path%'创建子键
wso.RegWrite%Path%,%Value%'修改默认键值
wso.RegWrite%Path%,%Value%,%RegType%'修改特定类型的键值
'(字符串值REG_SZ可扩充字符串值REG_EXPAND_SZDWORD值REG_DWORD二确海迅进制值REG_BINARY)
SetWSHShell=Wscript.CreateObject(***.sh强笑粒随圆钢画山是掌ell)
WSHShell.RegRead(%Path%)'读取注册表子键或键值(一般用于判断某一事件是否执行)
Setwso=C宪阿端谈落理形前杀reateObject(***.shell)
wso.RegDelete%Path%'删除子键或键值
'(根键缩写HKEY_CLASSES_ROOTHKCRHKEY_CURRENT_USERHKCUHKEY_LOCAL_杨MACHINEHKLM,其余无)
Setwso=CreateObject(***.shell)
ws鲁例国孔o.RegWriteHKLM\SOFTWARE\Microsft\WindowsNT\#1
wso.RegWriteHKLM\SOFTWARE\Microsft\WindowsNT\#1,0
wso.RegWriteHKLM\SOF位值审稳级模生校资TWARE\Micros将易些助视限棉集煤ft\WindowsNT\#1\#2,0,REG_BINARY
wso.RegDeleteHKLM\SOFTWARE\Microsft\WindowsNT\#1
Wscript.quit
文件的复制，删除，创建，简单的写入
Setfso=Wscript.CreateObject(Scripting.FileSystemObject)‘声明
Setf=fso.CreateTextFile(%PATH%)'创建文件,其中f可任意，包含缩略名
f.WriteLine(VBS)'写文件内容,该命令功能太简单,目前看来只能用于TXT文件
f.Close
setc=fso.getfile(%path%)’拷贝某文件
c.copy(%PATH2%)'拷贝文件到指定地点
fso.deletefile(%PATH%)'删除文件
Wscript.quit
