Rcmd.vbs [Remote Cmd with wmi]远程脚本
导读：收集整理的这篇文章主要介绍了Rcmd.vbs [Remote Cmd with wmi]远程脚本，觉得挺不错的，现在分享给大家，也给大家做个参考。 复制代码 代码如下:On Error...
收集整理的这篇文章主要介绍了Rcmd.vbs [Remote Cmd with wmi]远程脚本，觉得挺不错的，现在分享给大家，也给大家做个参考。 复制代码 代码如下: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.Count4 Then
usage()
Wscript.echo "Not enough Parameters."
Wscript.Quit
End If
ip=Wscript.arguments(0)
username=Wscript.arguments(1)
password=Wscript.arguments(2)
CmdStr=Wscript.arguments(3)
EchoStr=Wscript.arguments(4)
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 = '"& 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 arrvalues
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
您可能感兴趣的文章:
- VB中使用WMI获取系统硬件和软件有关信息
- VBS调用WMI遍历搜索硬盘文件并计数的方法
- vbs通过WMI修改文件文件夹的NTFS权限
- WMI StdRegProv 通过wmi操作注册表的vbscript实现代码 (本地或远程)
- VBS通过WMI监视注册表变动的代码
- VBS通过WMI获取CPU使用率的代码
- 将WMI中的DateTime类型转换成VBS时间的函数代码
- VBS调用WMI实现搜索硬盘mp3文件
- VBS调用WMI快速关闭IE的脚本
- VBS脚本使用WMI操作注册表的代码
- vbs wmi获取电脑硬件信息实例
- 初窥WMI_Vbs脚本编程简明教程补充读物
- 使用WMI得到计算机的信息
声明：本文内容由网友自发贡献，本站不承担相应法律责任。对本内容有异议或投诉，请联系2913721942#qq.com核实处理，我们将尽快回复您，谢谢合作！
若转载请注明出处： Rcmd.vbs [Remote Cmd with wmi]远程脚本
本文地址： https://pptw.com/jishu/609772.html