收藏的比较精典VBS代码发布.doc

收藏的比较精典VBS代码发布 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( HYPERLINK file:///\\\\gengxin\\update\\dj.exe \\gengxin\update\dj.exe) then 否则，如果找到“\\gengxin\update\dj.exe”则 WshShell.Run( HYPERLINK file:///\\\\gengxin\\update\\dj.exe \\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 = 54 被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 30-18-e5-33-01,0 WshShell.run arp -s 30-18-e5-33-07,0 运行程序 Dim a Set a = 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 = devco