Welcome guest. Before posting on our computer help forum, you must register. Click here it's easy and free.
Dim WshShellSet WshShell = CreateObject("WScript.Shell")WshShell.run ("runas /env /user:administrator fluidpower.exe")WScript.Sleep (100)WshShell.AppActivate "C:\windows\system32\runas.exe"WScript.Sleep (100)WshShell.SendKeys "password"WScript.Sleep (100)WshShell.Sendkeys "~"WScript.Sleep (100)