Получение данных с удаленного компьютера

  • Статья

Вы можете получать данные или управлять ресурсами на удаленных компьютерах, а также на локальном компьютере. Подключение к удаленному компьютеру в скрипте удаленного управления Windows очень похоже на локальное подключение. Данные экземпляра WMI доступны, и если удаленный компьютер имеет оборудование BMC, которое может обмениваться данными по протоколу WS-Management, то также доступны данные интеллектуального интерфейса управления платформой (IPMI ). Дополнительные сведения см. в разделах Удаленное управление Windows и WMI и Удаленное управление оборудованием.

Может потребоваться создать объект ConnectionOptions , чтобы указать сведения о типе проверки подлинности, запрашиваемой для входа.

Если учетная запись на удаленном компьютере имеет одинаковые имя пользователя и пароль для входа, вам потребуются только транспорт, доменное имя и имя компьютера. Из-за контроля учетных записей (UAC) удаленная учетная запись должна быть учетной записью домена и членом группы администраторов удаленных компьютеров. Если учетная запись является членом локального компьютера группы "Администраторы", контроль учетных записей не разрешает доступ к службе WinRM. Чтобы получить доступ к удаленной службе WinRM в рабочей группе, необходимо отключить фильтрацию UAC для локальных учетных записей, создав следующую запись реестра DWORD и задав ей значение 1: [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System] LocalAccountTokenFilterPolicy.

Подключение к удаленному компьютеру с помощью имени пользователя и пароля для входа

  1. Укажите целевой компьютер с полным доменным именем или IP-адресом и назначьте его константе. Если указан IPv6-адрес, он должен быть заключен в квадратные скобки.

    Const RemoteComputer = "ComputerName.domain.com"

  2. Создайте объект WSMan .

    Set objWsman = CreateObject("WSMan.Automation")

  3. Создайте сеанс, указав транспорт, HTTP или HTTPS, и объедините его с константой, представляющей целевой компьютер.

    
Set objSession = objWsman.CreateSession("https://" & RemoteComputer)

В следующем примере кода VBScript показан полный скрипт. Скрипт включает подпрограмму для преобразования данных из необработанного XML-кода в удобочитаемую форму. Дополнительные сведения см. в разделе Отображение выходных данных XML из скриптов WinRM.

Const RemoteComputer = "ComputerName.domain.com"

Set objWsman = CreateObject("WSMan.Automation")
Set objSession = objWsman.CreateSession("https://" & RemoteComputer)
strResource = "http://schemas.microsoft.com/wbem/wsman/1/" & _
  "wmi/root/cimv2/Win32_OperatingSystem"
Set objResponse = objSession.Enumerate(strResource)

While Not objResponse.AtEndOfStream
    DisplayOutput(objResponse.ReadItem) 
Wend

'****************************************************
' Displays WinRM XML message using built-in XSL
'****************************************************
Sub DisplayOutput(strWinRMXml)
    Dim xmlFile, xslFile
    Set xmlFile = CreateObject("MSXml.DOMDocument") 
    Set xslFile = CreateObject("MSXml.DOMDocument")
    xmlFile.LoadXml(strWinRMXml)
    xslFile.Load("WsmTxt.xsl")
    Wscript.Echo xmlFile.TransformNode(xslFile) 
End Sub

Подключение к удаленному компьютеру с помощью другой учетной записи

  1. Укажите целевой компьютер с полным доменным именем или IP-адресом и назначьте его константе. Если указан IPv6-адрес, он должен быть заключен в квадратные скобки.

    Const RemoteComputer = "ComputerName.domain.com"

  2. Создайте объект WSMan .

    Set objWsman = CreateObject("Wsman.Automation")

  3. Вызовите метод WSMan.CreateConnectionOptions , чтобы создать объект ConnectionOptions . Учетная запись на удаленном компьютере должна быть членом группы администраторов локальных компьютеров.

    Set objConnectionOptions = objWsman.CreateConnectionOptions
objConnectionOptions.UserName = "Username"
objConnectionOptions.Password = "Password"

  4. В вызове WSman.CreateSession укажите соответствующие флаги подключения к сеансу в параметре flags . Дополнительные сведения см. в разделе Константы сеанса. Укажите целевой компьютер с полным именем компьютера или IP-адресом и транспортом http или https. Этот скрипт запрашивает проверку подлинности Kerberos из удаленной службы WinRM.

    В отличие от скриптов WMI, в сценариях WinRM можно использовать несколько методов проверки подлинности. Дополнительные сведения см. в разделе Проверка подлинности для удаленных подключений.

    iFlags = objWsman.SessionFlagUseKerberos Or _
  objWsman.SessionFlagCredUserNamePassword
Set objSession = objWsman.CreateSession("https://" & RemoteComputer, _
  iFlags, objConnectionOptions)

  5. После того как объект сеанса будет доступен, можно вызвать любой из методов объекта Session , чтобы получить данные для ресурса. Вы можете получить данные для любого ресурса, доступного на компьютере, на котором выполняется сеанс. Дополнительные сведения см. в разделе Получение данных с локального компьютера.

В следующем примере кода VBScript показан полный скрипт. Скрипт включает подпрограмму для преобразования данных из необработанного XML-кода в удобочитаемую форму. Дополнительные сведения см. в разделе Отображение выходных данных XML из скриптов WinRM. Скрипт указывает проверку подлинности Kerberos, но если удаленный компьютер находится в рабочей группе, а не в домене, при указании Kerberos возникает ошибка.

Const RemoteComputer = "ComputerName.domain.com"

Set objWsman = CreateObject("Wsman.Automation")
Set objConnectionOptions = objWsman.CreateConnectionOptions
objConnectionOptions.UserName = "Username"
objConnectionOptions.Password = "Password"
iFlags = objWsman.SessionFlagUseKerberos Or _
  objWsman.SessionFlagCredUserNamePassword
Set objSession = objWsman.CreateSession("https://" & RemoteComputer, _
  iFlags, objConnectionOptions)
strResource = "http://schemas.microsoft.com/wbem/wsman/1/" & _
  "wmi/root/cimv2/Win32_OperatingSystem"
Set objResponse = objSession.Enumerate(strResource)

While Not objResponse.AtEndOfStream
    DisplayOutput(objResponse.ReadItem) 
Wend

'****************************************************
' Displays WinRM XML message using built-in XSL
'****************************************************
Sub DisplayOutput(strWinRMXml)
    Dim xmlFile, xslFile
    Set xmlFile = CreateObject("MSXml2.DOMDocument.3.0") 
    Set xslFile = CreateObject("MSXml2.DOMDocument.3.0")
    xmlFile.LoadXml(strWinRMXml)
    xslFile.Load("WsmTxt.xsl")
    Wscript.Echo xmlFile.TransformNode(xslFile) 
End Sub

Сведения об удаленном управлении Windows

Использование удаленного управления Windows

Справочник по удаленному управлению Windows