> Tech > listings

listings

Tech - Par iTPro - Publié le 24 juin 2010
email

Listing 1 : Script pour se connecter à  une imprimante

A

Option Explicit
Dim oNetwork, sPrintPath

B

Set oNetwork = CreateObject("WScript.Network")

C
listings

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

Téléchargez gratuitement cette ressource

Protection des Données : 10 Best Practices

Protection des Données : 10 Best Practices

Le TOP 10 des meilleures pratiques, processus et solutions de sécurité pour mettre en œuvre une protection efficace des données et limiter au maximum les répercutions d’une violation de données.

Tech - Par iTPro - Publié le 24 juin 2010