# $language = "VBScript"
# $interface = "1.0"

Sub Main
Dim ret,pass
' Connect to the current active host
if snt.Connect("Active") <> TRUE Then
     Exit Sub
End If
if snt.WaitForString("login:",30) <> TRUE Then
     Exit Sub
End If
snt.Send "zkrr01" + Chr(10)
if snt.WaitForString("Password:",10) <> TRUE Then
     Exit Sub
End If
pass = snt.Prompt("Password",,,TRUE)
snt.Send pass + Chr(10)
snt.StatusLine ""
End Sub