VB script to run a batch script as admin

Question

I have batch script the I need to run as an administrator, I created a VBscript wrapper that calls a runas and runs my batch file, however the batch file is not being elevated high enough on Windows 7 and Vista, it works fine on XP.  The batch script
needs to create a folder in Program files, and copy the necessary files, install several programs, as well as make several registry key changes.  If I am logged in as a user with admin rights, right click on the batch file and select "Run as Administrator"
the batch works fine.  Using the VBscript to elevate the rights, it installs the programs, but when it comes to creating the folder in Program files\Program data and Registry edits, it fails.  Is there any way to script so I can elevate the batch
file to the same level as selecting "Run as Administrator?
Set objShell = WScript.CreateObject("WScript.Shell")
objShell.Run("runas /user:domain\user \\unc\location\Install.bat"), 1, True
WScript.Sleep 100
oShell.Sendkeys "password~"
Another issue, I am having with the script is that it will not send the password, I have to type it manually to test.
The idea is to have the end user be able to click on a link from a webpage and install the program itself, as opposed for our Helpdesk be required to install the program.  So psexec is no doable as it is not on any of the PCs and user login scripts
is not an option either, as we don't want the program install on every PC.

Answer 1

Evers_Mark,
Here is a VB Script Vall Script that will get around the Password Prompt when "RunAs" is called...
'Start
' To Run other VB Scripts or even Batch Files with Admin Priviliges'
Dim WshShell, objFSO
suser = "[email protected]"
sPass = "YourPassWord"
'Put your Domain Account and Password in between the qoutes, REMEMBER! the Password will be clear text. If this is a standalone just take off the @YourDomain.com
sCommand = "wscript \\UNCServerName\ShareFolder\YourScript.vbs"
'This will be the path were the scripted you want called will be at. Please note you can substitute the ablove for a local directory (Example: C:\Folder\YourScript.vbs)
Set objComputer = CreateObject("Shell.LocalMachine")
Set WshNetwork = CreateObject("WScript.Network")
Set WshShell = CreatObject("WScript.Shell")
Set WshEnv = wshShell.Environment("Process")
WinPath = WshEnv("SystemRoot")&"\System32\runas.exe"
rc = WshShell.Run ("runas /noprofile /user:" & suser & " " $ Chr(34) & sCommand & Chr(34))
WScript.Sleep 900
WshShell. AppActivate(WinPath)
WScript.quit
'End
I've used this myself to call up scripts with admin rights however I've not tested it with the UAC on in either Vista or 7, However works like a peach with 2000 & XP. From this point you can add in the script into Peagus's disabling the UAC Script as
mentioned below. The usual warnings apply on the security, passwords are sent in plain text.
John M. Keller MCP (XP & 2003) | Security + E-Mail : [email protected]
Sorry but this topic has been closed for almost a year.
If you have a script to share feel free to put it in the repository. (link above).
If you have a new question then please start a new topic.
¯\_(ツ)_/¯