Set UAC = CreateObject("Shell.Application") UAC.ShellExecute "c:\windows\explorer.exe", "", "", "runas", 1