Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Exec("cmd /c rundll32 printui.dll,PrintUIEntry /ip")
WScript.Sleep 500
WshShell.SendKeys("{ENTER}")
WScript.Sleep 500
WshShell.SendKeys("{UP}")
WshShell.SendKeys("{UP}")
WshShell.SendKey