标签:securtcrt 判断
#$Language="VBScript"
#$Interface="1.0"
crt.Screen.Synchronous=True
Sub Main()
Dim num
For num = 1 To 100 Step 1
crt.Screen.Send "ssh 192.168.1."&num&chr(13)
crt.Sleep 1000
if (crt.Screen.WaitForString ("Are you sure you want to continue connecting (yes/no)?",1)<>False) then
crt.Sleep 1000
crt.Screen.Send "yes" & chr(13)
crt.Sleep 2000
end if
crt.Screen.WaitForString "Password:"
crt.Sleep 1000
crt.Screen.Send "PASSWD" & chr(13)
crt.Sleep 2000
crt.Screen.Send "command" & chr(13)
crt.Sleep 2000
crt.Screen.Send "exit" & chr(13)
crt.Sleep 2000
Next
End Sub
标签:securtcrt 判断
原文地址:http://zhouzhenxing.blog.51cto.com/8220903/1651014