Подвожу итоги:
читать дальше »
Цитата:
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 2000/XP/Vista/7: Работает
Windows 98: Не работает
Цитата:
Строка: 8
Столбец: 0
Категория: WScript.CreateObject
Описание Не удается найти класс объекта "WbemScripting.SWbemLocator".
|
Цитата:
|
WScript.Echo WScript.CreateObject("CompatUI.Util.1").CheckAdminPrivileges()
|
Windows XP: Работает
Windows 98/7: Не работает
Цитата:
---------------------------
Windows Script Host
---------------------------
Сценарий: C:\Users\firsov\Desktop\1.vbs
Строка: 1
Символ: 1
Ошибка: Не удается найти класс программируемых объектов с именем "CompatUI.Util.1".
Код: 80020009
Источник: WScript.CreateObject
---------------------------
ОК
---------------------------
|
Цитата:
|
net localgroup Администраторы
|
В vbs это будет так:
Цитата:
|
WshShell.Run "net localgroup Администраторы"
|
Windows XP: Работает
Windows 98: Не работает. Пишет, что не умеет так делать.
Цитата:
Set wshshl = CreateObject("Wscript.Shell")
Пробовал создать ключ в разделе реестра
wshshl.RegWrite (параметры)
здесь
HKEY_LOCAL_MACHINE\SOFTWARE\Наш_подраздел\ключ
проверял наличие ключа
wshshl.RegRead (параметры)
Если ключ не создан, то нет прав на запись к HKEY_LOCAL_MACHINE, соотвественно не Админ.
|
Очень интересная идея. Спасибо. Не знаю, почему сам до этого не догадался.
Windows XP: Работает
Windows 98: Выдаёт ошибки.
Спасибо большое! Оказалось, что всё гениальное - просто. Тему закрываю, так как она исчерпала себя. Ещё раз большое спасибо!
