1 ' //***************************************************************************
\r
2 ' // ***** Script Header *****
\r
3 ' // =======================================================
\r
4 ' // Elevation PowerToys for Windows Vista v1.1 (04/29/2008)
\r
5 ' // =======================================================
\r
7 ' // File: Elevate.vbs
\r
9 ' // Additional files required: Elevate.cmd
\r
11 ' // Purpose: To provide a command line method of launching applications that
\r
12 ' // prompt for elevation (Run as Administrator) on Windows Vista.
\r
14 ' // Usage: (Not used directly. Launched from Elevate.cmd.)
\r
17 ' // Date : 01/03/2007
\r
20 ' // 1.0.0 01/02/2007 Created initial version.
\r
21 ' // 1.0.1 01/03/2007 Added detailed usage output.
\r
23 ' // ***** End Header *****
\r
24 ' //***************************************************************************
\r
27 Set objShell = CreateObject("Shell.Application")
\r
28 Set objWshShell = WScript.CreateObject("WScript.Shell")
\r
29 Set objWshProcessEnv = objWshShell.Environment("PROCESS")
\r
31 ' Get raw command line agruments and first argument from Elevate.cmd passed
\r
32 ' in through environment variables.
\r
33 strCommandLine = objWshProcessEnv("ELEVATE_CMDLINE")
\r
34 strApplication = objWshProcessEnv("ELEVATE_APP")
\r
35 strArguments = Right(strCommandLine, (Len(strCommandLine) - Len(strApplication)))
\r
37 If (WScript.Arguments.Count >= 1) Then
\r
38 strFlag = WScript.Arguments(0)
\r
39 If (strFlag = "") OR (strFlag="help") OR (strFlag="/h") OR (strFlag="\h") OR (strFlag="-h") _
\r
40 OR (strFlag = "\?") OR (strFlag = "/?") OR (strFlag = "-?") OR (strFlag="h") _
\r
41 OR (strFlag = "?") Then
\r
45 objShell.ShellExecute strApplication, strArguments, "", "runas"
\r
55 WScript.Echo "Elevate - Elevation Command Line Tool for Windows Vista" & vbCrLf & _
\r
57 "Purpose:" & vbCrLf & _
\r
58 "--------" & vbCrLf & _
\r
59 "To launch applications that prompt for elevation (i.e. Run as Administrator)" & vbCrLf & _
\r
60 "from the command line, a script, or the Run box." & vbCrLf & _
\r
62 "Usage: " & vbCrLf & _
\r
64 " elevate application <arguments>" & vbCrLf & _
\r
67 "Sample usage:" & vbCrLf & _
\r
69 " elevate notepad ""C:\Windows\win.ini""" & vbCrLf & _
\r
71 " elevate cmd /k cd ""C:\Program Files""" & vbCrLf & _
\r
73 " elevate powershell -NoExit -Command Set-Location 'C:\Windows'" & vbCrLf & _
\r
76 "Usage with scripts: When using the elevate command with scripts such as" & vbCrLf & _
\r
77 "Windows Script Host or Windows PowerShell scripts, you should specify" & vbCrLf & _
\r
78 "the script host executable (i.e., wscript, cscript, powershell) as the " & vbCrLf & _
\r
79 "application." & vbCrLf & _
\r
81 "Sample usage with scripts:" & vbCrLf & _
\r
83 " elevate wscript ""C:\windows\system32\slmgr.vbs""
\96dli" & vbCrLf & _
\r
85 " elevate powershell -NoExit -Command & 'C:\Temp\Test.ps1'" & vbCrLf & _
\r
88 "The elevate command consists of the following files:" & vbCrLf & _
\r
90 " elevate.cmd" & vbCrLf & _
\r
91 " elevate.vbs" & vbCrLf
\r