m4za
Дата: 06.05.2006 16:15:38
[SRC vbs]' Connect to WMI and obtain an SWbemServices object.
Set oLocator = CreateObject("WbemScripting.SWbemLocator")
Set oServices = oLocator.ConnectServer("", "root\default")
' Obtain the single __SystemSecurity instance in this namespace.
set obj = oServices.Get("__SystemSecurity")
ret = obj.GetCallerAccessRights(rights)
WScript.Echo rights[/SRC]
m4za
Дата: 06.05.2006 16:16:53
Блин, не обращайте внимания на верхнее сообщение. Вот код на vbs:
Set oLocator = CreateObject("WbemScripting.SWbemLocator")
Set oServices = oLocator.ConnectServer("", "root\default")
set obj = oServices.Get("__SystemSecurity")
ret = obj.GetCallerAccessRights(rights)
WScript.Echo rights