This is the code I used
option explicit
Dim objShell
Dim oShell
Set objShell = CreateObject("WScript.Shell")
objShell.run """C:\Program Files\EFI\PSI\Psmain.exe"" ""user=user, password=, company=1""", 1, False
WScript.Quit
before the WScript.Quit I tried to add in oShell.Sendkeys "[D]" just...