VBS: Détection d’imprimantes

Script 1

'ce script cherche les imprimantes connectées à la machine
strComputer = "."
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colInstalledPrinters = objWMIService.ExecQuery ("Select * from Win32_Printer")

'boucle qui va afficher toutes les imprimantes
For Each objPrinter in colInstalledPrinters
	'Le if ci-dessous permet de n'afficher que l'imprimante par défaut
	'Il faut le supprimer si on veut toutes les imprimantes
	If objPrinter.Default = "Vrai" Then
		Wscript.Echo "Name: " & objPrinter.Name
		Wscript.Echo "Default: " & objPrinter.Default
	End If
Next

Script 2

    ' Liste les proprietés d Imprimantes installées
    ' et les mets dans un fichier Liste_Drivers_Imprimantes.txt
    ' Windows Server 2003 : Yes
    ' Windows XP : Yes
    ' Windows 2000 : No
    ' Windows NT 4.0 : No
    ' Windows 98 : No
    'Enjoy!! bernes3@gmail.com
   
    strComputer = "."
    Set objWMIService = GetObject("winmgmts:" _
        & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
    Set colInstalledPrinters =  objWMIService.ExecQuery _
        ("Select * from Win32_Printer")
     
    Dim fso, tf
       Set fso = CreateObject("Scripting.FileSystemObject")
       Set tf = fso.CreateTextFile(".\Liste_Drivers_Imprimantes.txt", True)
 
    For Each objPrinter in colInstalledPrinters
        tf.WriteLine("----------------------------")
        tf.WriteLine("Name: " & objPrinter.Name)
        tf.WriteLine("Location: " & objPrinter.Location)
     	tf.WriteLine("Description: " & objPrinter.Description)
        tf.WriteLine("DriverName: " & objPrinter.DriverName)
        tf.WriteLine("PortName: " & objPrinter.PortName)
        tf.WriteLine("ShareName: " & objPrinter.ShareName)
    Next

    '---------------Retourne le nom de machine
    Public Function Computer_Name()
      Set WshNetwork = WScript.CreateObject("WScript.Network")
      Computer_Name = WshNetwork.ComputerName
    End Function

        tf.WriteLine("Nom de la machine: " & Computer_Name)
    tf.Close

Laisser un commentaire

Votre adresse de messagerie ne sera pas publiée. Les champs obligatoires sont indiqués avec *