X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?p=jarrg-ian.git;a=blobdiff_plain;f=lib%2Felevate.vbs;fp=lib%2Felevate.vbs;h=0000000000000000000000000000000000000000;hp=5b3d3cb2cdc005491d7727dbfe0a0cd564ceec0a;hb=56d45aba929a40cfeaa216d5b081b0863a4647a1;hpb=6b7dd2da6581e11a5cfce5487249b07591c0cc68 diff --git a/lib/elevate.vbs b/lib/elevate.vbs deleted file mode 100644 index 5b3d3cb..0000000 --- a/lib/elevate.vbs +++ /dev/null @@ -1,93 +0,0 @@ -' //*************************************************************************** -' // ***** Script Header ***** -' // ======================================================= -' // Elevation PowerToys for Windows Vista v1.1 (04/29/2008) -' // ======================================================= -' // -' // File: Elevate.vbs -' // -' // Additional files required: Elevate.cmd -' // -' // Purpose: To provide a command line method of launching applications that -' // prompt for elevation (Run as Administrator) on Windows Vista. -' // -' // Usage: (Not used directly. Launched from Elevate.cmd.) -' // -' // Version: 1.0.1 -' // Date : 01/03/2007 -' // -' // History: -' // 1.0.0 01/02/2007 Created initial version. -' // 1.0.1 01/03/2007 Added detailed usage output. -' // -' // ***** End Header ***** -' //*************************************************************************** - - -Set objShell = CreateObject("Shell.Application") -Set objWshShell = WScript.CreateObject("WScript.Shell") -Set objWshProcessEnv = objWshShell.Environment("PROCESS") - -' Get raw command line agruments and first argument from Elevate.cmd passed -' in through environment variables. -strCommandLine = objWshProcessEnv("ELEVATE_CMDLINE") -strApplication = objWshProcessEnv("ELEVATE_APP") -strArguments = Right(strCommandLine, (Len(strCommandLine) - Len(strApplication))) - -If (WScript.Arguments.Count >= 1) Then - strFlag = WScript.Arguments(0) - If (strFlag = "") OR (strFlag="help") OR (strFlag="/h") OR (strFlag="\h") OR (strFlag="-h") _ - OR (strFlag = "\?") OR (strFlag = "/?") OR (strFlag = "-?") OR (strFlag="h") _ - OR (strFlag = "?") Then - DisplayUsage - WScript.Quit - Else - objShell.ShellExecute strApplication, strArguments, "", "runas" - End If -Else - DisplayUsage - WScript.Quit -End If - - -Sub DisplayUsage - - WScript.Echo "Elevate - Elevation Command Line Tool for Windows Vista" & vbCrLf & _ - "" & vbCrLf & _ - "Purpose:" & vbCrLf & _ - "--------" & vbCrLf & _ - "To launch applications that prompt for elevation (i.e. Run as Administrator)" & vbCrLf & _ - "from the command line, a script, or the Run box." & vbCrLf & _ - "" & vbCrLf & _ - "Usage: " & vbCrLf & _ - "" & vbCrLf & _ - " elevate application " & vbCrLf & _ - "" & vbCrLf & _ - "" & vbCrLf & _ - "Sample usage:" & vbCrLf & _ - "" & vbCrLf & _ - " elevate notepad ""C:\Windows\win.ini""" & vbCrLf & _ - "" & vbCrLf & _ - " elevate cmd /k cd ""C:\Program Files""" & vbCrLf & _ - "" & vbCrLf & _ - " elevate powershell -NoExit -Command Set-Location 'C:\Windows'" & vbCrLf & _ - "" & vbCrLf & _ - "" & vbCrLf & _ - "Usage with scripts: When using the elevate command with scripts such as" & vbCrLf & _ - "Windows Script Host or Windows PowerShell scripts, you should specify" & vbCrLf & _ - "the script host executable (i.e., wscript, cscript, powershell) as the " & vbCrLf & _ - "application." & vbCrLf & _ - "" & vbCrLf & _ - "Sample usage with scripts:" & vbCrLf & _ - "" & vbCrLf & _ - " elevate wscript ""C:\windows\system32\slmgr.vbs"" –dli" & vbCrLf & _ - "" & vbCrLf & _ - " elevate powershell -NoExit -Command & 'C:\Temp\Test.ps1'" & vbCrLf & _ - "" & vbCrLf & _ - "" & vbCrLf & _ - "The elevate command consists of the following files:" & vbCrLf & _ - "" & vbCrLf & _ - " elevate.cmd" & vbCrLf & _ - " elevate.vbs" & vbCrLf - -End Sub