首页 » VBS脚本 » 远程连接wmi服务器

远程连接wmi服务器

  • 2010/05/05
  • VBS脚本
  • 790 views
  • 评论关闭

我没有测试通过，代码应该没错，只是目标服务器上可能要开启些东西才行，听说要445端口打开，还要wmi服务打开，还要打开共享等反正我都试了，关了防火墙和端口过滤都无用。

strComputer="192.168.128.11"
Set objLocator = CreateObject("Wbemscripting.SWbemLocator") 
Set objService = objLocator.ConnectServer(strComputer, "root\cimv2", "administrator", "mima123456") 
Set processlist = objService.ExecQuery("Select * from Win32_Process",,48)
For Each process In processlist
WScript.Echo process.name
Next
'或者说用下面这个函数
Function GetSWbemServices(ByVal strComputer, ByVal strNameSpace, ByVal strUserName, ByVal strPassword)
    Dim objSWbemLocator : set objSWbemLocator = CreateObject("WbemScripting.SWbemLocator")
    Dim objWbemServices
    set objWbemServices = objSWbemLocator.ConnectServer( _
                               strComputer, _
                               strNameSpace, _
                               strUserName, _
                               strPassword)
    set GetSWbemServices = objWbemServices
End Functionc

,

转发到新浪微博 转发到新浪微博

对不起，这篇文章暂时关闭评论。

上一篇：

下一篇：