> Tech > listings

listings

Tech - Par iTPro - Publié le 24 juin 2010

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

Téléchargez cette ressource

Une DSI « broker de services » ? Recettes de Scale-ups à l’usage des grandes entreprises

Découvrez dans ce carnet d’expériences les conseils et bonnes pratiques de DSI et CTO d'organisations qui ont mené et mènent leur transformation pour devenir des brokers de services accomplis. Choix technologiques et organisationnels, types de services apportés, vitesse du changement, rapport aux métiers… ils détaillent la nature et les potentiels écueils de cette métamorphose.

Tech - Par iTPro - Publié le 24 juin 2010

Découvrir tous les articles de la chaîne Tech

Les articles les plus consultés

A travers cette chaîne

A travers ITPro

Les plus consultés sur iTPro.fr

A lire aussi sur le site

Anaplan relève avec brio les défis de la supply chain durable

Volonté d’acheter des produits plus durables, de voir se déployer de plus grands efforts en matière d’approvisionnement et de production… les souhaits s’expriment plus clairement et rapidement. Et s’il était temps justement d’avoir une supply chain plus durable ? Comment les responsables de la supply chain peuvent-ils prendre en compte la durabilité dans les opérations ?

La Revue du Décideur IT

Accessoires professionnels : la différence qui compte

Les accessoires professionnels constituent un élément clé dans de nombreux domaines, apportant une différence marquée entre un travail standard et un travail d'excellence. Conçus spécifiquement pour répondre aux besoins des professionnels, ces accessoires offrent une qualité, une durabilité, et une fonctionnalité inégalées. Cet article explore en profondeur l'importance des accessoires professionnels dans différents secteurs, soulignant comment ils contribuent à la réalisation d'un travail de qualité supérieure.