Question

我要检查一下我的录像带的操作背景是否允许我履行行政任务。

The solution should work on all Windows operating systems starting with Server 2003. (This rules out solutions which just check for membership in the Administrators group -- remember that there s UAC in Vista and Windows 7!)
The solution should be simple. A 50 LOC solution that checks the Windows group memberships (recursively, of course, since the user might be member of a groups which is member of a group ... which is member of the Administrators group) and then does some extra checks for Vista UAC is not simple.
The solution may be a bit dirty, so something along the lines of this solution would be ok.
It should not be too dirty. Writing a file to C:Windows or writing a registry key is too dirty in my opinion, since it modifies the system. (EDIT: Which might not work anyway: for example, when using VBScript in a HTA, UAC redirection kicks in.)

相关问题: (我在那里发现的所有答复都(a) 忽视了联安委的问题,(b) 存在错误,因为它们忽视了使用者获得行政许可的可能性,尽管他们不是署长集团的直接成员)

Answer 1

我知道,这一路面非常老,答案是明确的,但这是一种更简单的方法,一直为我工作。用户S-1-5-19是地方非关税壁垒管理局,因此获得关键权。它通过电梯运行。

Option Explicit 

msgbox isAdmin(), vbOkonly, "Am I an admin?"

Private Function IsAdmin()
    On Error Resume Next
    CreateObject("WScript.Shell").RegRead("HKEY_USERSS-1-5-19EnvironmentTEMP")
    if Err.number = 0 Then 
        IsAdmin = True
    else
        IsAdmin = False
    end if
    Err.Clear
    On Error goto 0
End Function

Answer 2

http://www.iteven.com/blog/196-programmatically-detecting-whether-uac-is-enabled.html” rel=“nofollow noreferer”

在这里,《刑法》中,XP的不幸预产期是“谁是谁”,见于XP(——我仍然想找到一种不这样做的办法。

If UserPerms("Admin") Then
 Message = "Good to go"
Else
 Message = "Non-Admin"
End If

If UACTurnedOn = true Then
 Message = Message & ", UAC Turned On"
Else
 Message = Message & ", UAC Turned Off (Or OS < Vista)"
End If

Wscript.echo Message

Function UserPerms (PermissionQuery)          
 UserPerms = False    False unless proven otherwise           
 Dim CheckFor, CmdToRun         

 Select Case Ucase(PermissionQuery)           
  Setup aliases here           
 Case "ELEVATED"           
   CheckFor =  "S-1-16-12288"           
 Case "ADMIN"           
   CheckFor =  "S-1-5-32-544"           
 Case "ADMINISTRATOR"           
   CheckFor =  "S-1-5-32-544"           
 Case Else                  
   CheckFor = PermissionQuery                  
 End Select           

 CmdToRun = "%comspec% /c whoami /all | findstr /I /C:""" & CheckFor & """"  

 Dim oShell, returnValue        
 Set oShell = CreateObject("WScript.Shell")  
 returnValue = oShell.Run(CmdToRun, 0, true)     
 If returnValue = 0 Then UserPerms = True                   
End Function

Function UACTurnedOn ()
 On Error Resume Next

 Set oShell = CreateObject("WScript.Shell")
 If oShell.RegRead("HKLMSoftwareMicrosoftWindowsCurrentVersionPoliciesSystemEnableLUA") = 0 Then
      UACTurnedOn = false
 Else
      UACTurnedOn = true
 End If
End Function

Answer 3

以上要求“谁”的法典来自CSIWindows-com/toolkit/ifuserperms的“我们的用户”。

我在宣读你的职务后,制定了新的文字规范,以快速、小型、高效、被动(无任何变化)的法典,在联邦统计局(9条线)和中央财政局(3条线)中对行政权进行检查。如果用户不升,该公司也与AC公司合作,报告错误。

您可在此找到该守则:。 http://csi-windows.com/toolkit/csi-isadmin。

Answer 4

我增加了两个补充说明包,大大改进了用户手提的上述原始代码。

http://csi-windows.com/toolkit/csi-issession”rel=“nofollow noreferer”>CSI_IsSession.vbs 几乎可以告诉你,你想要知道UAC或本届会议的文字。

http://csi-windows.com/toolkit/vbscriptuackit”rel=“nofollow noreferer” (使用CSI_IsSession.vbs)允许你通过重新启动自己,有选择地促使UAC采用文字。曾经设计起来,并且在许多执行情景下开展工作。

Answer 5

这里最快的办法是提出文字档案或作为管理人的其他档案:

First create your VBS script of whatever you need to do. In my case it was a registry edit vbs to allow me to autoadmin logon then when the machine was restarted, another file was run to ensure that autoadmin logon was not enabled any longer.

After you have created your file, then you need to create a cmd prompt shortcut. Next Right click on the shortcut and change the propeties so that it will run as administrator.

Paste your file path like this: D:WINDOWSsystem32cmd.exe /c "D:DumpScriptsStartUp.vbs"

The C means it will close after completion If you want it to stay open then use K

希望有助于其他人。

友情链接