VBS常用脚本好东西

VBS常用脚本好东西

作者：网上收集点击：读取中... 次

将域用户或租添加到本地组
Set objGroup = GetObject(WinNT://./Administrators)
Set objUser = GetObject(WinNT://testnet/Engineers)
objGroup.Add(objUser.ADsPath)
修改本地管理员密码
Set objcnlar = GetObject(WinNT://./administrator, user)
objcnla.SetPassword P@ssW0rd
objcnla.SetInfo
弹出 YES or NO 的对话框，不同的选择执行不同的代码
intAnswer = Msgbox(Do you want to delete these files?, vbYesNo, Delete Files)
If intAnswer = vbYes Then
Msgbox You answered yes.
Else Msgbox You answered no.
End If
运行CMD命令行命令
set obshell=wscript.createobject(wscript.shell)
obshell.run (ipconfig),,true
假如要运行的命令中包含双引号，可使用&chr(34)&代替
忽略代码错误继续执行
On Error Resume Next
放置于代码的最开头，当代码运行出错后并不停止跳出而是继续执行下一条。适当应用会很有效果。
注册表的修改，读取，删除，创建
Set wso = CreateObject(WScript.Shell) '声明
wso.RegWrite %Path%'创建子键
wso.RegWrite %Path%,%Value%'修改默认键值
wso.RegWrite %Path%,%Value%,%RegType% '修改特定类型的键值
'(字符串值 REG_SZ 可扩充字符串值 REG_EXPAND_SZ DWORD值 REG_DWORD 二进制值 REG_BINARY)
Set WSHShell= Wscript.CreateObject(Wscript.Shell)
WSHShell.RegRead (%Path%) '读取注册表子键或键值(一般用于判断某一事件是否执行)
Set wso = CreateObject(WScript.Shell)
wso.RegDelete %Path% '删除子键或键值
'(根键缩写HKEY_CLASSES_ROOT HKCR HKEY_CURRENT_USER HKCU HKEY_LOCAL_MACHINE HKLM,其余无)
引用内容
eg:
Set wso = CreateObject(Wscript.Shell)
wso.RegWrite HKLM\SOFTWARE\Microsft\Windows NT\#1
wso.RegWrite HKLM\SOFTWARE\Microsft\Windows NT\#1,0
wso.RegWrite HKLM\SOFTWARE\Microsft\Windows NT\#1\#2,0,REG_BINARY
wso.RegDelete HKLM\SOFTWARE\Microsft\Windows NT\#1
Wscript.quit

文档的复制，删除，创建，简单的写入
Set fso = Wscript.CreateObject(Scripting.FileSystemObject) ‘声明
Set f = fso.CreateTextFile(%PATH%) '创建文档,其中f可任意，包含缩略名
f.WriteLine(VBS) '写文档内容,该命令功能太简单,现在看来只能用于TXT文档
f.Close
set c=fso.getfile(%path%) '拷贝某文档
c.copy(%PATH2%) '拷贝文档到指定地点
fso.deletefile(%PATH%) '删除文档
Wscript.quit
引用内容
eg.
Set fso = Wscript.CreateObject(Scripting.FileSystemObject)
Set f=fso.CreateTextFile(C:\Sample.txt)
WriteLine(VBS)
f.close
set e=fso.getfile(C:\Sample.txt)
e.copy(D:\Sample.txt)
fso.deletefile(C:\Sample.txt)
Wscript.quit

向应用程式输出简单的连串指令
dim program1 '声明变量program1
program1= %Path% '应用程式路径
set wshshell=createobject(wscript.shell) '声明饮用函数
set oexec=wshshell.exec(program1) '运行程式
wscript.sleep 2000 '(该行命令未知作用.估计是设定延迟，请高手指点)
wshshell.appactivate %WindowsName% '激活运用程式窗口
wshshell.sendkeys +{%KeyBoardName%} '第一次输出键盘按键指令前要加+
wshshell.sendkeys 555555 '在程式输入栏中输入运用该系列命令须首先确定程式能够实施连串的键盘操作，这在QQ登录中最适用，如下例。
引用内容
eg.
dim program1
program1=D:\Program Files\Tencent\coralQQ.exe
set wshshell=CreateObject(wscript.shell)
set oexec=wshshell.exec(program1)
wscript.sleep 2000
wshshell.appactivate QQ登录
wshshell.sendkeys +{TAB}
wshshell.sendkeys 250481892
wscript.sleep 2000
wshshell.sendkeys {TAB}
wshshell.sendkeys ****************
wscript.sleep 2000
wshshell.sendkeys {ENTER}
Wscript.quit

文档夹的简单操作
Set fso = Wscript.CreateObject(Scripting.FileSystemObject) ‘声明
Set f = fso.CreateFolder(%PATH%) 创建文档夹
Set e = getFolder(%PATH%) 类似于“绑定目标”
e.copy(%PATH2%) 复制文档夹
fso.deletefolder(%PATH%) 删除文档夹
引用内容
eg.
Set fso = Wscript.CreateObject(Scripting.FileSystemObject)
Set f = fso.CreateObject(C:\sample)
f.copy(D:\sample)
fso.deletefolder(C:\sample)
'(由上例能够看出，文档夹的操作很多是和文档的操作相通的，因此VBS文档具备很多命令的统一性)
将某一指定文档夹的任何只读文档转为可读文档
Const ReadOnly = 1 ‘设只读属性对应值为1
Set FSO = CreateObject(Scripting.FileSystemObject) '声明
Set Folder = FSO.GetFolder(%PATH%) '绑定文档夹
Set colFiles = Folder.Files ‘文档夹任何文档
For Each objFile in colFiles '下列语句应用于文档夹任何文档
If File.Attributes AND ReadOnly Then '这是关键之处，这里应用了If判断语句，来检测文档属性是否为只读
File.Attributes = File.Attributes XOR ReadOnly ‘对判断结果为Ture（默认为True）'执行XOR逻辑运算，将其改为可读
End If ‘结束判断
Next
将Word文档另存为文本文档
Const wdFormatText = 2 '配置常数值
(当该值为8时另存为HTML文档，为11时另存为XML文档)
Set objWord = CreateObject(Word.Application) '申明调用函数
Set objDoc = objWord.Documents.Open(%Path%) ‘打开某DOC文档
objDoc.SaveAs %PATH2%, wdFormatText 另存为……
objWord.Quit
引用内容
eg:
Const wdFormatText = 2
Set objWord = CreateObject(Word.Application)
Set objDoc = objWord.Documents.Open(d:\doc1.doc)
objDoc.SaveAs g:\doc1.txt, wdFormatText
objWord.Quit

收藏此文章　　　　　打印更新　　　　　编辑此文章　　　　『关闭窗口』


	家园个人文集		http://www.5x54.com