由于工作需要，處理上百個機(jī)器也是常見的事情。這里我們主要介紹一下創(chuàng)建一個telnet批處理程序來幫助完成工作，那么這里我們?yōu)榇蠹页尸F(xiàn)了具體的代碼。希望對大家有所幫助。首先做了一個批處理文件,iplist.bat,讓它具備了采交換機(jī)IP和調(diào)用VBS腳本的功能,代碼如下:

for /l %%a in (1,1,254) do ping 192.168.20.%%a -n 1 -l 16 -w 100　| find "eply" &echo 192.168.20.%%a >>iplist.txt & echo off   
(注:這個不成功,返回的1－254的IP,需修改）  
rem 啟動telnet  
start telnet.exe  
rem batch telnet  
cscript //nologo tftp.vbs 

這一步telnet批處理的設(shè)置，編輯了修改交換機(jī)時間的腳本,代碼如下:

'This Script is For copy config file to tftp server  
'This script is named "tftp.vbs"  
On Error Resume Next  
dim fSwitchList,objTextStream,objFSO,objSwitch  
fSwitchList = "Iplist.txt" 
Set objFSO = CreateObject("Scripting.FileSystemObject")  
If objFSO.FileExists(fSwitchList) Then  
Set objTextStream = objFSO.OpenTextFile(fSwitchList, 1)  
Else  
Wscript.Echo "Input file " & fSwitchList & " not found."  
Wscript.Quit  
End If  
Do Until objTextStream.AtEndOfStream  
objSwitch = objTextStream.ReadLine  
set sh=WScript.CreateObject("WScript.Shell")  
WScript.Sleep 1000  
shshtelnet = sh.object  
sh.SendKeys "  open " & objSwitch  
WScript.Sleep 1000  
sh.SendKeys "{ENTER}"  
WScript.Sleep 1000  
sh.SendKeys "enable pass{ENTER}"  
WScript.Sleep 1000  
sh.SendKeys "en{ENTER}"  
WScript.Sleep 1000  
sh.SendKeys "secret  pass{ENTER}"  
WScript.Sleep 1000  
sh.SendKeys "conf t{ENTER}"  
WScript.Sleep 1000  
sh.SendKeys "ntp server 10.128.16.254{ENTER}"  
sh.SendKeys "ntp source vlan 2{ENTER}"  
sh.SendKeys "clock timezone CCT 8{ENTER}"  
sh.SendKeys "end{ENTER}"  
sh.SendKeys "wr{ENTER}"  
WScript.Sleep 5000  
sh.SendKeys " exit{ENTER}"  
sh.SendKeys "{ENTER}"  
Loop  
sh.SendKeys " quit{ENTER}"  
objTextStream.Close  
Wscript.quit 

到這里我們就完成了telnet批處理的腳本設(shè)置了。