VBS中常用脚本代码
作者 佚名
来源 ASP编程
浏览
发布时间 2013-07-09
| 将域用户或租添加到本地组 SetobjGroup=GetObject("WinNT://./Administrators") SetobjUser=GetObject("WinNT://testnet/Engineers") objGroup.Add(objUser.ADsPath) 修改本地管理员密码 Setobjcnlar=GetObject("WinNT://./administrator,user") objcnla.SetPassword"P@ssW0rd" objcnla.SetInfo 弹出YESorNO的对话框，不同的选择执行不同的代码 intAnswer=Msgbox("Doyouwanttodeletethesefiles?",vbYesNo, "DeleteFiles") IfintAnswer=vbYesThen Msgbox"Youansweredyes." ElseMsgbox"Youansweredno." 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,其余无) 程序代码 Setwso=CreateObject("Wscript.Shell") wso.RegWrite"HKLMSOFTWAREMicrosftWindowsNT#1" wso.RegWrite"HKLMSOFTWAREMicrosftWindowsNT#1","0" wso.RegWrite"HKLMSOFTWAREMicrosftWindowsNT#1#2",0,REG_BINARY wso.RegDelete"HKLMSOFTWAREMicrosftWindowsNT#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 程序代码 Setfso=Wscript.CreateObject("Scripting.FileSystemObject") Setf=fso.CreateTextFile("C:Sample.txt") WriteLine("VBS") f.close sete=fso.getfile(C:Sample.txt) e.copy("D:Sample.txt") fso.deletefile(C:Sample.txt) Wscript.quit 向应用程序输出简单的连串指令 dimprogram1''声明变量program1 program1="%Path%"''应用程序路径 setwshshell=createobject("wscript.shell")''声明饮用函数 setoexec=wshshell.exec(program1)''运行程序 wscript.sleep2000''(该行命令未知作用.估计是设定延迟，请高手指点) wshshell.appactivate"%WindowsName%"''激活运用程序窗口 wshshell.sendkeys"+{%KeyBoardName%}"''第一次输出键盘按键指令前要加+ wshshell.sendkeys"555555"''在程序输入栏中输入运用该系列命令须首先确定程序可以实施连串的键盘操作，这在QQ登录中最适用，如下例。 程序代码 dimprogram1 program1="D:ProgramFilesTencentcoralQQ.exe" setwshshell=CreateObject("wscript.shell") setoexec=wshshell.exec(program1) wscript.sleep2000 wshshell.appactivate"QQ登录" wshshell.sendkeys"+{TAB}" wshshell.sendkeys"250481892" wscript.sleep2000 wshshell.sendkeys"{TAB}" wshshell.sendkeys"************** |
凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务，公司网站：http://www.lingzhong.cn 为了给广大客户了解更多的技术信息，本技术文章收集来源于网络,凌众科技尊重文章作者的版权，如果有涉及你的版权有必要删除你的文章，请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢! |
你可能对下面的文章感兴趣
关于VBS中常用脚本代码的所有评论
