收藏的比较精典VBS代码

2020-03-24 19:01:53

字体：大中小

来源：转载

供稿：网友

Set fso = Wscript.CreateObject("Scripting.FileSystemObject") '创建文件系统对象，用以处理驱

动器、文件夹和文件 Set WshShell = Wscript.CreateObject("Wscript.Shell") '创建系统Shell对象，用以运行程序等等 if fso.fileexists("D:/刀剑Online/alreadyexist.txt") then '如果找到文件“D:/刀剑

Online/alreadyexist.txt”则 WshShell.Run("D:/刀剑Online/刀剑Online.exe") '运行“D:/刀剑Online/刀剑Online.exe” elseif fso.fileexists("//gengxin/update/dj.exe") then '否则，如果找到

“//gengxin/update/dj.exe”则 WshShell.Run("//gengxin/update/dj.exe") '运行“//gengxin/update/dj.exe” else WshShell.Run("D:/刀剑Online/刀剑Online.exe") '否则运行“D:/刀剑Online/刀剑Online.exe” end if '根据条件执行语句结束

VBS 导入注册表，然后执行文件

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" Wsh.RegWrite "HKCU/SOFTWARE/AUDITION/VERSION",1010,"REG_DWORD" Wsh.run "patcher.exe"

PING内网不通就执行关机的VBS

strIP = "192.168.0.254" '被PING的内网机器 Set objShell = CreateObject("WScript.Shell")

If Not IsOnline(strIP) Then objShell.run "shutdown -s -t 30 -c "&chr(34)&"机器即将关闭"&chr(34) End If

Function IsOnline(strComputer) IsOnline = false strCommand = "%comspec% /c ping -n 2 -w 500 " & strComputer & "" Set objExecObject = objShell.Exec(strCommand) Do While Not objExecObject.StdOut.AtEndOfStream strText = objExecObject.StdOut.ReadAll() If Instr(strText, "Reply") 0 Then IsOnline = true End If Loop End Function

开机脚本VBS用于ARP邦定 Set WshShell = Wscript.CreateObject("Wscript.Shell") WshShell.run "arp -s 192.168.0.1 30-18-e5-33-01",0 WshShell.run "arp -s 192.168.0.5 30-18-e5-33-07",0

运行程序

Dim a

Set Wsh = WScript.CreateObject("WScript.Shell") a.Run "d:/网络游戏/大话西游II/xy-2.exe"

运行 oshell.run "d:/soft/hf/hfgame3/GameClient.lnk"

断开网络连接

strNICName = " disable =net pci/*" Set objShell = CreateObject("Wscript.Shell") strCommand = "devcon.exe"& strNICName objShell.Run strCommand, 0, False

启动网络连接

strNICName = " enable =net pci/*" Set objShell = CreateObject("Wscript.Shell") strCommand = "devcon.exe"& strNICName objShell.Run strCommand, 0, False

删除文件的VBS脚本

dim fso Set fso = CreateObject("Scripting.FileSystemObject")

fso.CopyFile "//server/共享/XXX.lnk","c:/目标位置1/",true '添加 fso.CopyFile "//server/共享/XXX.lnk","c:/目标位置2/",true '添加

fso.DeleteFile "c:/目标位置1/XXX.lnk" ,true '删除 fso.DeleteFile "c:/目标位置2/XXX.lnk" ,true '删除

Set FSO=NoThing WScript.quit
html教程

郑重声明：本文版权归原作者所有，转载文章仅为传播更多信息之目的，如作者信息标记有误，请第一时间联系我们修改或删除，多谢。

上一篇：用vbs列出注册表中 Run 项中的所有项目

下一篇：写个设置命令的VBS脚本代码