Listing 1 : Script pour se connecter à une imprimante
| A |
Option Explicit |
| B |
Set oNetwork = CreateObject("WScript.Network") |
| C |
SIZE= »1″> sPrintPath = « \\servername\printername » |
| D |
Network.AddWindowsPrinterConnection 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
