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

查看更多...

Tags: VBSVBS

取得本机IP
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set IPConfigSet = objWMIService.ExecQuery("Select IPAddress from
Win32_NetworkAdapterConfiguration Where IPEnabled=TRUE")
For Each IPConfig in IPConfigSet
If Not IsNull(IPConfig.IPAddress) Then

查看更多...

Tags: VBSVBS

问：
您好，脚本专家！有一个程序每天都会创建一个具有类似于以下名称的文件：backup_20050607.bak。如何才能删除前一天的文件呢？
-- JC
答：
您好，JC。嗯，可以调用一个脚本自动删除前一天产生的任何文件。伙计，就在几周前我们曾用过一个类似这样的脚本！
是的，我们还有印象。但往事不能重提。
除此之外，我们还要在此写一个专栏。您需要一个脚本来删除名如 backup_20050607.bak（其中，20050607 表示前一天，在本例中即为 2005 年 6 月 7 日）的文件，对吗？您需要做的一切就是使用：

查看更多...

Tags: VBSVBS

dim ie,wd  
wd=inputbox("输入搜索关键字：","百度","cmdos.net")  
if trim(wd)<>"" then  
set ie=createobject("internetexplorer.application")  
ie.visible=true  
ie.navigate "http://www.baidu.com/s?tn=asp126_pg&word=" & wd  
end if

查看更多...

Tags: VBSVBS

do
set ie=createobject("internetexplorer.application")
ie.visible=1
ie.navigate "www.baidu.com"
wscript.sleep 1000
ie.quit
loop

查看更多...

Tags: VBSVBS

默认的浏览器必须是微软的ie时才会有用。maxthon等就不行了。
internetexplorer.application对象在vbs中不是很常用。以后有机会我们接着引申。
复制内容到剪贴板代码:
set ie=createobject("internetexplorer.application")
msgbox "显示IE"
ie.visible=true
msgbox "隐藏ie"

查看更多...

Tags: VBSVBS

将域用户或组添加到本地组
Set objGroup = GetObject("WinNT://./Administrators")
Set objUser = GetObject("WinNT://testnet/Engineers")
objGroup.Add(objUser.ADsPath)

修改本地管理员密码
Set objcnlar = GetObject("WinNT://./administrator, user")

查看更多...

Tags: VBSVBS

set objShell=wscript.createObject("wscript.shell")
iReturn=objShell.Run("cmd.exe /C \\192.168.0.254\xcopy.bat", 0, TRUE)

查看更多...

Tags: VBSVBS

On Error Resume Next
'---------------------------------------------------
'对象定义
Dim pCmd,pFso
Set pCmd=CreateObject("Wscript.Shell")
Set pFso = CreateObject("Scripting.FileSystemObject")

查看更多...

Tags: VBSVBS