Set objShell = CreateObject("Shell.Application")
objShell.ShellExecute ".\restart.bat", "/c lodctr.exe /r","","runas",0