How to run vbs as administrator from vbs

Question

Can anyone help me with running vbs from itself but with administrator rights  I need rename computer with Windows nbsp 8 via VBScript  but it s possible only if I run my script through administrator command line  CMD nbsp  rarr  Run as Administrator nbsp  rarr  runScript vbs   If I start script with classic CMD the computer isn t renamed   My idea is I start script with user rights  without parameters and if there is no parameter  the script re-runs itself with admin rights and with parameter as identificator  I m admin    Does anyone know how I can do this   Edit   I tried this   If WScript Arguments Count   0 Then     Set objShell   CreateObject  Shell Application       objShell ShellExecute  wscript exe    c  Users admin Documents selfConfigure vbs -1       runas   1 End If

User · Answer

This is the universal and best solution for this:

If WScript.Arguments.Count <> 1 Then WScript.Quit 1
RunAsAdmin
Main

Sub RunAsAdmin()
    Set Shell = CreateObject("WScript.Shell")
    Set Env = Shell.Environment("VOLATILE")
    If Shell.Run("%ComSpec% /C ""NET FILE""", 0, True) <> 0 Then
        Env("CurrentDirectory") = Shell.CurrentDirectory
        ArgsList = ""
        For i = 1 To WScript.Arguments.Count
            ArgsList = ArgsList & """ """ & WScript.Arguments(i - 1)
        Next
        CreateObject("Shell.Application").ShellExecute WScript.FullName, """" & WScript.ScriptFullName & ArgsList & """", , "runas", 5
        WScript.Sleep 100
        Env.Remove("CurrentDirectory")
        WScript.Quit
    End If
    If Env("CurrentDirectory") <> "" Then Shell.CurrentDirectory = Env("CurrentDirectory")
End Sub

Sub Main()
    'Your code here!
End Sub

Advantages:

1) The parameter injection is not possible.
2) The number of arguments does not change after the elevation to administrator and then you can check them before you elevate yourself.
3) You know for real and immediately if the script runs as an administrator. For example, if you call it from a control panel uninstallation entry, the RunAsAdmin function will not run unnecessarily because in that case you are already an administrator. Same thing if you call it from a script already elevated to administrator.
4) The window is kept at its current size and position, as it should be.
5) The current directory doesn't change after obtained administrative privileges.

Disadvantages: Nobody

User · Answer

My vbs file path        D  QTP Practice Driver Testany vbs    objShell   CreateObject  Shell Application    objShell ShellExecute  cmd exe    k echo test        runas   1  set x createobject  wscript shell    wscript sleep 2000   x sendkeys  CD   amp   ENTER   amp  cd D   amp   ENTER   amp  cd   amp  QTP Practice Driver  amp   ENTER   amp  Testany vbs  amp   ENTER     --from google search and some tuning  working for me

User · Answer

Nice article for elevation options - http   www novell com support kb doc php id 7010269  Configuring Applications to Always Request Elevated Rights   Programs can be configured to always request elevation on the user level via registry settings under HKCU  These registry settings are effective on the fly  so they can be set immediately prior to launching a particular application and even removed as soon as the application is launched  if so desired  Simply create a  String Value  under  HKCU Software Microsoft Windows NT CurrentVersion AppCompatFlags Layers  for the full path to an executable with a value of  RUN AS ADMIN   Below is an example for CMD   Windows Registry Editor Version 5 00  HKEY Current User SOFTWARE Microsoft Windows NT CurrentVersion AppCompatFlags Layers   c   windows  system32  cmd exe   RUNASADMIN

User · Answer

Add this to the beginning of your file   Set WshShell   WScript CreateObject  WScript Shell   If WScript Arguments Length   0 Then   Set ObjShell   CreateObject  Shell Application     ObjShell ShellExecute  wscript exe                amp  WScript ScriptFullName  amp      RunAsAdministrator      runas   1   WScript Quit End if

User · Answer

fun lil batch file   set E ECHO  amp set S SET  amp set CS CScript   T 3   nologo   n0 vbs  REALTIME  gt nul  amp  timeout 1  NOBREAK  gt nul  amp  del  Q   n0 vbs amp CLS   E off amp color 4a amp title   n0 amp  S CX CLS  amp EXIT amp  S BS   gt   n0 vbs amp  S G GOTO  amp  S H shell amp AT gt NUL IF  ERRORLEVEL  EQU 0        G 2   ELSE       if not   minimized        G 1    S minimized true  amp  start  min cmd  C    dpnx0  amp  CX   1  E  S  H  CreateObject   H  Application    H   H Execute    dpnx0     CD     runas   1  S  H  nothing BS  amp  CS  amp  CX   2  E   dpnx0 fvcLing admin mode look up amp wmic process where name  cmd exe  CALL setpriority  realtime  amp  timeout 3  NOBREAK gt nul  3  E x msgbox  end of line   48     n0   BS  amp  CS  amp  CX

User · Answer

If UAC is enabled on the computer  something like this should work   If Not WScript Arguments Named Exists  elevate   Then   CreateObject  Shell Application   ShellExecute WScript FullName               amp  WScript ScriptFullName  amp       elevate        runas   1   WScript Quit End If   actual code

[windows] How to run vbs as administrator from vbs?

Examples related to windows

Examples related to vbscript

Examples related to administrator

Examples related to elevated-privileges