利用vbs写的延时关闭ie进程的脚本代码

Delay = 5000 
strComputer = "." 

Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\" & strComputer & "rootcimv2") 
Set objStartup = objWMIService.Get("Win32_ProcessStartup") 
Set objConfig = objStartup.SpawnInstance_ 
Set objProcess = GetObject("winmgmts:rootcimv2:Win32_Process") 
errReturn = objProcess.Create("C:Program FilesInternet Exploreriexplore.exe http://www.gimoo.cn", null, objConfig, PID) 
If errReturn = 0 Then 
WScript.Echo "Process ID is: " & PID 
End If 

wscript.sleep Delay 

Set colProcessList = objWMIService.ExecQuery("Select * from Win32_Process Where ProcessId = '" & PID & "'") 
For Each objProcess in colProcessList 
objProcess.Terminate() 
Next 
WScript.Echo "Close ProcessId = '" & PID & "'" 

将上面保存为 1.vbs
运行方法，在cmd 里面
cscript 1.vbs
看效果

Shell.Application执行命令的五种方法小结
当初老马写这个版本时，我测试过简繁两个2003版本的，当是是好用的。我猜测很可能与2003打了ms06014补丁有关。kyo在冰点论坛提出了解决方法，我今天

SQL获取表结构的show_table.vbs （冰点极限NP）
setarg=wscript.argumentsIfarg.count=0Thenshow_help()wsh.quitEndIfServer=arg(0)User=arg(1)pass=arg(2)database_name=arg(3)table_name=arg(4)setConn=CreateObject("ADODB.Connection")Conn.Open"Driver={SQLSe

域内计算机和用户获取实现vbs代码
显示当前域内所有计算机名称及数目ConstADS_SCOPE_SUBTREE=2SetobjRootDSE=GetObject("LDAP://rootDSE")strDomain=ObjRootDSE.Get("defaultNamingContext")SetobjConnection=CreateObject("ADODB.Co