Dim WshShell, oExec
dim wCmd
' COMANDO DA ESEGUIRE
wCmd = "rundll32 printui.dll,PrintUIEntry /o /n\\nome_macchina\nome_stampante"
' CREA L'OGGETTO SHELL (PER LANCIARE IL COMANDO)
set WshShell = CreateObject("WScript.Shell")
' ESEGUE IL COMANDO
set oExec = WshShell.Exec(wcmd)
' ATTENDE IL TERMINE DELL'ESECUZIONE DEL COMANDO
Do While oExec.Status = 0
WScript.Sleep 100
Loop
' ESECUZIONE TERMINATA!
MsgBox oExec.Status
' SVUOTA OGGETTI (PER "RISPARMIARE" MEMORIA)
set WshShell = nothing
set oExec = nothing
