2024年5月30日发(作者：)

======================SSH２=======================

#$language = "VBScript"

#$interface = "1.0"

' This automatically generated script may need to be

' edited in order to work correctly.

Sub Main

Const ForReading=1,ForWriting=2,ForAppending=8

dim fso,file1,line,params,file_error

dim path1,path2,path3

path1 = "D:Log_Collected_"

'path3 = "D:Log_Collected_"

Set fso = CreateObject("stemObject")

set file1=xtFile(path1,ForReading,False)

'Set file_error = xtFile(path3,2,true)

DO While fStream<>True

line=ne

params=Split(line)

eName

="D:Log_Collected_SecureCRTZidongxunjian%Y%M%D"¶ms(0)&".log"

onous = True

Call (False)

Call (True,True)

On Error Resume Next

1000

t "/SSH2 /L " ¶ms(1) & " /PASSWORD " ¶ms(2)& "

/C 3DES /M MD5 " & params(0)

if ted = true then