復制代碼 代碼如下: On Error Resume Next Set outstreem=Wscript.stdout If (LCase(Right(Wscript.fullname,11))="Wscript.exe") Then Set objShell=Wscript.CreateObject("Wscript.shell") objShell.Run("cmd.exe /k cscript //nologo "&Chr(34)&Wscript.ScriptFullName&Chr(34)) Wscript.Quit End If If Wscript.arguments.Count 4 Then usage() Wscript.echo "Not enough Parameters." Wscript.Quit End If
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 = '"&foldername&"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) Else msg=Rcmd.create("cmd /c cscript %windir%/temp/read.vbs """&CmdStr&"""",Null,Hide_Windows,intProcessID) 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&Chr(13)&Chr(10) 'wsh.echo arrhtml' target='_blank'>values 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
Function showerroronly(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" wsh.echo "Usage:" wsh.echo "cscript "&wscript.scriptfullname&" targetIP username password Command" wsh.echo "cscript "&wscript.scriptfullname&" targetIP username password Command 0 //No echo" wsh.echo string(79,"*")&vbcrlf end Sub html教程
