VBS/WSH/JS - [решено] Как проверить наличие прав администратора

Delirium · Отправлено: **01:30, 10-05-2012** | #2

Цитата:

net localgroup Администраторы

Команда выведет список локальных администраторов. Затем сравнить его с текущим пользователем. Вот и ответ. Или необходимо именно через VBS...?

Iska · Отправлено: **03:19, 10-05-2012** | #3

Код:

WScript.Echo WScript.CreateObject("CompatUI.Util.1").CheckAdminPrivileges()

Правда, не знаю, остался ли объект «CompatUI.Util.1» в новых ОС.

Во всяком случае, можно попробовать получить доступ к тем объектам, к которым он (доступ) разрешён только с административными привилегиями. И на основании результата делать вывод.

Delirium · Отправлено: **03:43, 10-05-2012** | #4

В семерке, похоже, уже нет:

Цитата:

---------------------------
Windows Script Host
---------------------------
Сценарий: C:\Users\firsov\Desktop\1.vbs
Строка: 1
Символ: 1
Ошибка: Не удается найти класс программируемых объектов с именем "CompatUI.Util.1".
Код: 80020009
Источник: WScript.CreateObject

---------------------------
ОК
---------------------------

Iska · Отправлено: **05:26, 10-05-2012** | #5

Цитата Delirium:

В семерке, похоже, уже нет: »

Спасибо, ясно.

А ежели так попробовать:

Код:

Option Explicit

Dim objSWbemLocator
Dim objSWbemServicesEx
Dim objSWbemObjectEx


Set objSWbemLocator    = WScript.CreateObject("WbemScripting.SWbemLocator")
Set objSWbemServicesEx = objSWbemLocator.ConnectServer(".", "root\cimv2")

With WScript.CreateObject("WScript.Network")
	Set objSWbemObjectEx = objSWbemServicesEx.Get( _
		"Win32_NetworkLoginProfile.Name='" & _
		.UserDomain & "\" & .UserName & "'")
End With

With objSWbemObjectEx
	Select Case .Privileges
		Case 0
			WScript.Echo .Name & " is Guest"
		Case 1
			WScript.Echo .Name & " is User"
		Case 2
			WScript.Echo .Name & " is Administrator"
		Case Else
			' Impossible
	End Select
End With

Set objSWbemServicesEx = Nothing
Set objSWbemLocator    = Nothing

WScript.Quit 0

Судя по этому:

Win32_NetworkLoginProfile class
NetUserGetInfo function
USER_INFO_4 structure

— что-то похожее. Delirium, Вам WinAPI ближе — посмотрите по ссылкам, гоже ли?! Ну, и — не знаю, как будет себя вести на машине без сети.

softter · Отправлено: **13:58, 10-05-2012** | #6

Я когда-то делал так

Set wshshl = CreateObject("Wscript.Shell")

Пробовал создать ключ в разделе реестра

wshshl.RegWrite (параметры)

здесь
HKEY_LOCAL_MACHINE\SOFTWARE\Наш_подраздел\ключ

проверял наличие ключа
wshshl.RegRead (параметры)

Если ключ не создан, то нет прав на запись к HKEY_LOCAL_MACHINE, соотвественно не Админ.

Dark_Timur · Отправлено: **20:05, 10-05-2012** | #7

Цитата:

Option Explicit

Dim objSWbemLocator
Dim objSWbemServicesEx
Dim objSWbemObjectEx

Set objSWbemLocator = WScript.CreateObject("WbemScripting.SWbemLocator")
Set objSWbemServicesEx = objSWbemLocator.ConnectServer(".", "root\cimv2")

With WScript.CreateObject("WScript.Network")
Set objSWbemObjectEx = objSWbemServicesEx.Get( _
"Win32_NetworkLoginProfile.Name='" & _
.UserDomain & "\" & .UserName & "'")
End With

With objSWbemObjectEx
Select Case .Privileges
Case 0
WScript.Echo .Name & " is Guest"
Case 1
WScript.Echo .Name & " is User"
Case 2
WScript.Echo .Name & " is Administrator"
Case Else
' Impossible
End Select
End With

Set objSWbemServicesEx = Nothing
Set objSWbemLocator = Nothing

WScript.Quit 0

Работает на Windows XP/7. Сейчас попробую на Vista и 98

Iska · Отправлено: **21:27, 10-05-2012** | #8

Dark_Timur, то, что работает — это-то было понятно. Вопрос в том, действительно ли сие есть именно то, что мы ожидаем. Потому мне хотелось бы, чтобы более опытные коллеги, работающие на уровень ниже, нежели скрипты, сопоставили приведённые мною выше ссылки и высказали своё мнение на этот счёт.

Dark_Timur · Отправлено: **23:08, 10-05-2012** | #9

Подвожу итоги:

Спасибо большое! Оказалось, что всё гениальное - просто. Тему закрываю, так как она исчерпала себя. Ещё раз большое спасибо!

morres · Отправлено: **10:32, 17-12-2012** | #10

Ну, создавать ветку рееста или создавать локальную учетку (как предлагают на других форумах), на мой взгляд, совершенно, "не кошерно". Надо, всего лишь, перебрать почленно группу "Администраторы" на локальном компе и сравнить её членов с залогиненным пользователем. К сожалению, я не программер, поэтому прошу не судить строго, если код не столь оптимален и не универсален, но, проанализировав материаллы по этим двум ссылкам:
List local administrators across a network domain,
List User properties as displayed in ADUC,
у меня получилось следующее:

Код:

Option Explicit
Dim strComp, objSysInfo, objLocalGroup, objUser, item
On Error Resume Next
strComp = "."
Set objLocalGroup = GetObject("WinNT://" & strComp & "/Администраторы")
Set objSysInfo = CreateObject("ADSystemInfo")
Set objUser = GetObject("LDAP://" & objSysInfo.UserName)
For Each item in objLocalGroup.Members
	if item.Name = objUser.sAMAccountName Then Wscript.Echo "User " _
 	& objUser.sAMAccountName & " have administrator rights!"
Next
WScript.Quit()