如果您无法下载资料,请参考说明:
1、部分资料下载需要金币,请确保您的账户上有足够的金币
2、已购买过的文档,再次下载不重复扣费
3、资料包下载后请先用软件解压,在使用对应软件打开
VBS常用脚本好东西将域用户或租添加到本地组SetobjGroup=GetObject(WinNT://./Administrators)SetobjUser=GetObject(WinNT://testnet/Engineers)objGroup.Add(objUser.ADsPath)修改本地管理员密码Setobjcnlar=GetObject(WinNT://./administrator,user)objcnla.SetPasswordPssW0rdobjcnla.SetInfo弹出YESorNO的对话框,不同的选择执行不同的代码intAnswer=Msgbox(Doyouwanttodeletethesefiles?,vbYesNo,DeleteFiles)IfintAnswer=vbYesThenMsgboxYouansweredyes.ElseMsgboxYouansweredno.EndIf运行CMD命令行命令setobshell=wscript.createobject(wscript.shell)obshell.run(ipconfig),,true如果要运行的命令中包含双引号,可使用忽略代码错误继续执行&chr(34)&代替OnErrorResumeNext放置于代码的最开头,当代码运行出错后并不停止跳出而是继续执行下一条。适当应用会很有效果。注册表的修改,读取,删除,创建Setwso=CreateObject(WScript.Shell)'wso.RegWrite%Path%'创建子键声明wso.RegWrite%Path%,%Value%'修改默认键值wso.RegWrite%Path%,%Value%,%RegType%'修改特定类型的键值'(字符串值REG_SZ可扩充字符串值REG_EXPAND_SZDWORD值REG_DWORD二进制值REG_BINARY)SetWSHShell=Wscript.CreateObject(Wscript.Shell)WSHShell.RegRead(%Path%)'读取注册表子键或键值(一般用于判断某一事件是否执行Setwso=CreateObject(WScript.Shell))wso.RegDelete%Path%'删除子键或键值'(根键缩写HKEY_CLASSES_ROOTHKCRHKEY_CURRENT_USERHKCUHKEY_LOCAL_MACHINEHKLM,其余无)引用内容eg:Setwso=CreateObject(Wscript.Shell)wso.RegWriteHKLM\SOFTWARE\Microsft\WindowsNT\#1wso.RegWriteHKLM\SOFTWARE\Microsft\WindowsNT\#1,0wso.RegWriteHKLM\SOFTWARE\Microsft\WindowsNT\#1\#2,0,REG_BINARYwso.RegDeleteHKLM\SOFTWARE\Microsft\WindowsNT\#1Wscript.quit文件的复制,删除,创建,简单的写入Setfso=Wscript.CreateObject(Scripting.FileSystemObject)‘声明Setf=fso.CreateTextFile(%PATH%)'创建文件,其中f可任意,包含缩略名f.WriteLine(VBS)'f.Close写文件内容,该命令功能太简单,目前看来只能用于TXT文件setc=fso.getfile(%path%)'c.copy(%PATH2%)'拷贝文件到指定地点拷贝某文件fso.deletefile(%PATH%)'删除文件Wscript.quit引用内容eg.Setfso=Wscript.CreateObject(Scripting.FileSystemObject)Setf=fso.CreateTextFile(C:\Sample.txt)WriteLine(VBS)f.closesete=fso.getfile(C:\Sample.txt)e.copy(D:\Sample.txt)fso.deletefile(C:\Sample.txt)Wscript.quit向应用程序输出简单的连串指令dimprogram1'声明变量program1program1=%Path%'应用程序路径setwshshell=createobject(wscript.shell)'setoexec=wshshell.exec(program1)'