> Tech > listings

listings

Tech - Par Renaud ROSSET - 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

Percer le brouillard des rançongiciels

Explorez les méandres d’une investigation de ransomware, avec les experts de Palo Alto Networks et Unit 42 pour faire la lumière dans la nébuleuse des rançongiciels. Plongez au cœur de l’enquête pour comprendre les méthodes, les outils et les tactiques utilisés par les acteurs de la menace. Découvrez comment prévenir les attaques, les contrer et minimiser leur impact. Des enseignements indispensables aux équipes cyber.

Tech - Par Renaud ROSSET - Publié le 24 juin 2010