Set sh=WScript.CreateObject("WScript.Shell") 
sh.Run "telnet 192.168.1.1" 
WScript.Sleep 1000 
sh.SendKeys "admin{ENTER}" 
WScript.Sleep 1000 
sh.SendKeys "admin{ENTER}" 
WScript.Sleep 1000 
sh.SendKeys "reboot{ENTER}" 
WScript.Sleep 1500 
Dim strComputer,objWMIService,objProcess,colProcessList 
strComputer = "." 
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\" & strComputer & "rootcimv2") 
Set colProcessList = objWMIService.ExecQuery ("Select * from Win32_Process Where Name = 'telnet.exe'") 
For Each objProcess in colProcessList 
objProcess.Terminate() 
next

Vbs COM之打开/保存文件脚本代码
您先把如下的代码复制，然后保存为FileSave.vbs，双击打开，您看到了什么呢？SetobjDialog=CreateObject("SAFRCFileDlg.FileSave")Setfso=CreateObject("Scripting.FileSystemObject"

vbscript logparser的ISA2004 Web流量报告
很喜欢这里的学习气氛，也很佩服两位版主的技术水平，希望能够在这里与大家多多交流。作为见面礼吧，把前一阵子写的一个生成ISA2004Web流量报告的

用VBScript批量安装网络打印机和设置默认打印机
首先打开记事本，输入以下内容：SetWshNetwork=CreateObject("WScript.Network")WshNetwork.AddWindowsPrinterConnection"\你的网络打印机位置1"WshNetwork.AddWindowsPrinterConnection"