Цитата yanus74:
|
В любом случае, я считаю, что работать не будет. »
|
К сожалению, именно так. Вот код на WSH:
Код:
Option Explicit
Dim strComputer
Dim objSWbemObjectEx
strComputer = "W2K8R2-PS-TEST"
With WScript.CreateObject("WbemScripting.SWbemLocator").ConnectServer(strComputer, "root\cimv2")
For Each objSWbemObjectEx In .ExecQuery("SELECT * FROM Win32_Share WHERE Type = 1")
With objSWbemObjectEx
WScript.Echo .Name, .Path, .Description, .Type
End With
Next
End With
WScript.Quit 0
Под простым пользователем — именно «отлуп» при попытке «поуправлять» удалённой машиной
.
