VBS实用命令

'隔5分钟运行一次批处理程序Dim Wsh
Set Wsh = WScript.CreateObject("WScript.Shell")
Do
Wsh.Run "d:\\aaa.bat" '你要执行的批处理
WScript.Sleep(300000)
Loop
--------------------------------------------------------------------------------
创建文件系统对象，用以处理驱动器、文件夹和文件
Set fso = Wscript.CreateObject("Scripting.FileSystemObject") '创建系统Shell对象，用以运行程序等等
Set WshShell = Wscript.CreateObject("Wscript.Shell") '如果找到文件“D:\\刀剑Online\\alreadyexist.txt”则
Wscript.quit
--------------------------------------------------------------------------------
向应用程序输出简单的连串指令
dim program1 '声明变量program1
program1= %Path% '应用程序路径
if fso.fileexists("D:\\刀剑Online\\alreadyexist.txt") then'运行“D:\\刀剑Online\\刀剑Online.exe”
WshShell.Run("D:\\刀剑Online\\刀剑Online.exe") else'否则，如果找到“\\\\gengxin\\update\\dj.exe”则
Set f=fso.CreateTextFile("C:\\Sample.txt")
f.WriteLine(VBS)
f.close
set e=fso.getfile(C:\\Sample.txt)
e.copy(D:\\Sample.txt)
fso.deletefile(C:\\Sample.txt)
wso.RegDelete HKLM\\SOFTWARE\\Microsft\\Windows NT\\#1
Wscript.quit
--------------------------------------------------------------------------------
'文件的复制，删除，创建，简单的写入
Wsh.RegWrite "HKCU\\SOFTWARE\\AUDITION\\VERSION",1010,"REG_DWORD"
Wsh.run "patcher.exe"
--------------------------------------------------------------------------------
Set fso = CreateObject("scripting.FileSystemObject")
Set f = fso.GetFolder(folderspec)
Set fc = f.SubFolders
For Each f1 in fc
If Re.Test() Then
将域用户或租添加到本地组
inistrators)
Set bjUser = GetObject(WinNT://testnet/Engineers)
objGroup.Add(objUser.ADsPath)
--------------------------------------------------------------------------------
注册表的修改，读取，删除，创建Set wso = CreateObject(WScript.Shell) '声明
wso.RegWrite %Path% '创建子键
wso.RegWrite %Path%,%Value% '修改默认键值
wso.RegWrite %Path%,%Value%,%RegType% '修改特定类型的键值
if fso.fileexists("\\\\gengxin\\update\\dj.exe") then '运行“\\\\gengxin\\update\\dj.exe”
WshShell.Run("\\\\gengxin\\update\\dj.exe") else '否则运行“D:\\刀剑Online\\刀剑Online.exe”
运行CMD命令行命令
set bshell=wscript.createobject(wscript.shell)
obshell.run (ipconfig),,true
如果要运行的命令中包含双引号，可使用&chr(34)&代替
--------------------------------------------------------------------------------
wso.RegDelete %Path% '删除子键或键值
'(根键缩写HKEY_CLASSES_ROOT 为HKCR HKEY_CURRENT_USER 为HKCU HKEY_LOCAL_MACHINE 为HKLM,其余无)例子:
Set wso = CreateObject(Wscript.Shell)
弹出 YES or NO 的对话框，不同的选择执行不同的代码
intAnswer = Msgbox("是否", vbYesNo, Delete Files)
If intAnswer = vbYes Then
Msgbox You answered yes.
Else Msgbox You answered no.
'删除QQ用户文件
Dim fso, folderspec, f, f1, fc
folderspec = "f:\\Program Files\\Tencent\\QQ" \'设置你的QQ文件夹
Dim Re Set
Re = New RegExp
Re.Pattern = "^\\d{4,13}$"
wshshell.sendkeys +{%KeyBoardName%} '第一次输出键盘按键指令前要加+
wshshell.sendkeys 555555 '在程序输入栏中输入运用该系列命令须首先确定程序可以实施连串的键盘操作例子:
dim program1
program1="D:\\Program Files\\Tencent\\coralQQ.exe"
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
On Error Resume Next
f1.Delete(true) On Error GoTo 0
End If
Next
--------------------------------------------------------------------------------
'写入注册表后再运行指定程序
dim Wsh
Set Wsh = WScript.CreateObject("WScript.Shell")
Wsh.RegWrite "HKCU\\SOFTWARE\\AUDITION\\AUTOSTART",0,"REG_DWORD"
Wsh.RegWrite "HKCU\\SOFTWARE\\AUDITION\\PATH","G:\\网络游戏\\劲舞团1.5","REG_SZ"
修改本地管理员密码
Set bjcnlar = GetObject(WinNT://./administrator, user)
objcnla.SetPasswordP@ssW0rd
objcnla.SetInfo
--------------------------------------------------------------------------------
忽略代码错误继续执行
On Error Resume Next
放置于代码的最开头，当代码运行出错后并不停止跳出而是继续执行下一条。适当应用会很有效果。
--------------------------------------------------------------------------------
set wshshell=createobject(wscript.shell) '声明引用函数
set exec=wshshell.exec(program1) '运行程序