Set objShell = CreateObject(“Shell.Application”) Set objWshShell = WScript.CreateObject(“WScript.Shell”) Set objWshProcessEnv = objWshShell.Environment(“PROCESS”) objShell.ShellExecute “C:Windowssystem32cmd.exe”, “/k”, “”, “runas”