Set WshShell = CreateObject("WScript.Shell") 
WshShell.Run("c:\Windows\System32\WindowsPowerShell\v1.0\powershell.exe")
WScript.Quit