Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Sub CheckForElevation(oShell)
' Verifies Script is running in an elevated context. (For Vista or later OS)
Dim oExec, sStdOut
Set oExec = oShell.Exec("whoami /groups")
' Read output
sStdOut = oExec.StdOut.ReadAll
' Check for Elevated Token "S-1-16-12288", quit if missing.
If InStr(1, sStdOut, "S-1-16-12288", vbTextCompare) = 0 Then
MsgBox "Script must be run with Elevated Privileges in Vista " & _
"or higher. Execute script again from an Elevated " & _
"Command Prompt."
WScript.Sleep 15000
oIE.Quit
WScript.Quit
End If
End Sub 'CheckForElevation