CODEWITHSUNDEEP
vbaexcelshellvbscriptadministrator
Yogesh
Yogesh

Reputation: 134

VBA: How to Open command prompt as Administrator and call a VBS using cscript?

I'm trying to open a command prompt as Administrator AND run a .VBS file using CScript.

I found post for running cmd as Administrator:

Shell "powershell.exe -Command " & Chr(34) & "Start-Process cmd -Verb RunAs", vbNormalFocus

Also Found a post for running a VBS file:

SFilename = "Cscript " & Chr(34) & "C:\Temp\Run.vbs " & Chr(34) & " " & pParam1 & " " & pParam2

Shell SFilename, vbNormalFocus

However, Can someone help me to get both things done in single cmd window?

I tried merging both Shell statments and running one after the other but no luck.

Upvotes: 1

Views: 9565

Answers (1)

Yogesh
Yogesh

Reputation: 134

Copying @Noodles answer in order to mark this question as answered:

Set oShell = CreateObject("Shell.Application")
oShell.ShellExecute "cscript.exe", "//nologo c:temp\run.vbs", , "runas", 1

or for cmd 

oShell.ShellExecute "cmd.exe", "/k cscript //nologo c:temp\run.vbs", , "runas", 1

Upvotes: 0

Related Questions