Script VB setar impressora padrão

Neste Post disponibilizo para vocês um script de logon para setar a impressora padrão dos usuários do Active Directory.

Como teste utilizo os usuários "usuarioteste1" e "usuarioteste2".

A maquina que tem as impressoras compartilhadas esta no endereço de rede "\\SRVAPP01"

PISO-01 e PISO-2 são os nomes das Impressoras.

Espero ter ajudado

 Set WshNetwork = WScript.CreateObject("WScript.Network")  
 Select Case WshNetWork.UserName   
   Case "usuarioteste1"  
     WshNetwork.SetDefaultPrinter "\\SRVAPP01\PISO-01"  
   Case "usuarioteste2"  
     WshNetwork.SetDefaultPrinter "\\SRVAPP01\PISO-02"  
 End Select   

Deixe seus comentários, criticas ou sugestões!