月份：2024年10月

$language = "VBScript"
 $interface = "1.0"
 crt.Screen.Synchronous = True
 Sub Main
     Dim ipAddresses
     ipAddresses = Array( _
     "192.168.1.54", _
     "192.168.1.52", _
     "192.168.1.53",
     )
     Dim i
     For i = LBound(ipAddresses) To UBound(ipAddresses)
         crt.Screen.Send "ssh wh@" & ipAddresses(i) & chr(13)    'ssh登录linux系统账号
         crt.Screen.WaitForStrings Array("assword: ", "密码")     '输入密码
         crt.Screen.Send "L+CHsKtBvdhbc8ga99" & chr(13)        '在自动填入密码
         crt.Screen.WaitForString "$"                            '期待响应的字符
         crt.Screen.Send "su - root" & chr(13)                   '切换root
         crt.Screen.WaitForStrings Array("assword: ", "密码", "新的 密码：")
         crt.Screen.Send "3xhikeDffYFdujeA99" & chr(13)
         crt.Screen.WaitForStrings Array("assword: ", "密码：", "重新输入新的 密码：")
         crt.Screen.Send "3xhikeDffYFdujeA99" & chr(13)
         crt.Screen.WaitForStrings Array("assword: ", "密码：", "重新输入新的 密码：")
         crt.Screen.Send "L+CHsKtBvdhbc8ga99" & chr(13)
         crt.Screen.WaitForStrings Array("assword: ", "密码：", "重新输入新的 密码：")
         crt.Screen.Send "L+CHsKtBvdhbc8ga99" & chr(13)
         crt.Screen.WaitForString "#"
         crt.Screen.Send "echo " & chr(34) & "3xhikeDffYFdujeA99" & chr(34) & " " & chr(124) & " passwd --stdin root" & chr(13)
         crt.Screen.WaitForStrings Array("~]#", "#")
         crt.Screen.Send " su - cl-weih" & chr(13)
         crt.Screen.WaitForString "]$"
         crt.Screen.Send "su - root" & chr(13)
         crt.Screen.WaitForStrings Array("assword: ", "密码")
         crt.Screen.Send "3xhikeDffYFdujeA99" & chr(13)
         crt.Screen.WaitForString "~]#"
         crt.Screen.Send "exit" & chr(13)
         crt.Screen.WaitForString "~]$"
         crt.Screen.Send "exit" & chr(13)
         crt.Screen.WaitForString "~]#"
         crt.Screen.Send "exit" & chr(13)
         crt.Screen.WaitForString "~]$"
         crt.Screen.Send "exit" & chr(13)
     Next
 End Sub