listings

Listing 1 : Script pour se connecter à  une imprimante

A	Option Explicit Dim oNetwork, sPrintPath
B	Set oNetwork = CreateObject("WScript.Network")
C	SIZE= »1″> sPrintPath = « \\servername\printername »
D	Network.AddWindowsPrinterConnection sPrintPath oNetwork.SetDefaultPrinter sPrintPath

Listing 2 : Script pour créer une connexion d’imprimante propre à  un ordinateur

Option Explicit
Dim oNetwork, sPrintPath
Set oNetwork = CreateObject(« WScript.Network »)
Select Case oNetwork.ComputerName    A
  Case « Gamma »
   s PrintPath = « \\server\printer1 »
  Case « Geektoy »
    sPrintPath = « \\server\printer2 »
  Case Else
   sPrintPath = « \\server\printer3 »
End Select
oNetwork.AddWindowsPrinterConnection sPrintPath
oNetwork.SetDefaultPrinter sPrintPath

Listing 3 : Script pour créer une connexion d’imprimante
propre à  un endroit

Option Explicit
Dim oNetwork, sPrintPath, sLocate
Set oNetwork = CreateObject(« WScript.Network »)

sLocate =_   A
    InputBox(« Where are
you? Type ‘Lab’, ‘Library’, or ‘Reception’. »)
Select Case sLocate
  Case « Lab »
    sPrintPath = « \\server\printerA »
  Case « Library »
    sPrintPath = « \\server\printerB »
  Case « Reception »
    sPrintPath = « \\server\printerC »
  Case Else
    MsgBox(« That is not a valid choice. The script will
exit. ») :WScript.
End Select

oNetwork.AddWindowsPrinterConnection sPrintPath
oNetwork.SetDefaultPrinter sPrintPath