收藏的比较精典VBS代码
作者 佚名
来源 ASP编程
浏览
发布时间 2013-07-09
文件操作 复制代码 代码如下: 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 无界面自动检测安装iscsi客户端，映射及断开映射vbs脚本 下列代码实现无界面自动检测安装iscsi客户端,自动映射 复制代码 代码如下: On Error Resume Next setupfile="iscsi2.0.exe" ''iscsi客户端安装文件路径 serverip="192.168.0.100" ''iscsi服务器ip Set oshell= CreateObject("WScript.Shell") Set fso = CreateObject("Scripting.FileSystemObject") if not fso.fileexists(oshell.ExpandEnvironmentStrings("%WinDir%")+"\system32\iscsicpl.cpl") then oshell.run setupfile&" /q",,1 end if oshell.run "iscsicli AddTargetPortal "&serverip&" 3260",0,1 oshell.run "iscsicli LoginTarget iqn.2005-02.com.ricecake.iscsi:00 T * * * * * * * * * * * * * * * 0",0,1 |
凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务，公司网站：http://www.lingzhong.cn 为了给广大客户了解更多的技术信息，本技术文章收集来源于网络,凌众科技尊重文章作者的版权，如果有涉及你的版权有必要删除你的文章，请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢! |
你可能对下面的文章感兴趣
上一篇: 用vbs模拟的一个asp的分页显示功能下一篇: 用vbs实现不死帐号的代码
关于收藏的比较精典VBS代码的所有评论
