Le script:

'Retrouver les infos sur les lecteurs réseaux et les imprimantes d'un poste
'Version 0.1 20090327 by Clockover

'Variables de configuration
strPath = "c:\" ou "\\srv.domaine.local\partage"				'Chemin d'enregistrement du résultat

'Script
'Noter le nom du poste
Set WshNetwork = WScript.CreateObject("WScript.Network")
strComputer = WshNetwork.ComputerName

'Ouverture d'un fichier de résultat
Const ForWriting = 2
Dim fso, file
Set fso = CreateObject("Scripting.FileSystemObject")
Set file = fso.OpenTextFile( strPath & strComputer & ".txt", ForWriting,true)

'Enumérer les lecteurs réseaux et les imprimantes installées
Set oDrives = WshNetwork.EnumNetworkDrives
Set oPrinters = WshNetwork.EnumPrinterConnections

'LECTEURS RESEAUX
'Remplir le fichier avec les données sur les lecteurs Réseaux
file.write(strComputer & vbCr)
file.write("-Lecteurs réseaux:" & vbCr)
For i = 0 to oDrives.Count - 1 Step 2
	file.write(vbTab & "Unité " & oDrives.Item(i) & " = " & oDrives.Item(i+1) & vbCr)
Next

'IMPRIMANTES
'Remplir le fichier avec les données sur les imprimantes: Méthode simple
'file.write("-Imprimantes:" & vbCr)
'For i = 0 to oPrinters.Count - 1 Step 2
'	file.write(vbTab & "Nom:" & oPrinters.Item(i+1) & " => Port: " & oPrinters.Item(i) & vbCr)
'Next

'Trouver l'imprimante par défaut
set colItems = GetObject("winmgmts:{impersonationLevel=impersonate}!//" & Computer).ExecQuery("SELECT * FROM Win32_Printer")
If err.number<>0 Then
	wscript.echo "Erreur : " & err.description 
	wscript.quit
	End If
	
'Rechercher l'imprimante par défaut
attr=array(1,2,4,8,16,32,64,128,256,512,1024,2048,4096,8192)
For Each objItem in colItems 
	'Remplir le fichier avec les données sur les imprimantes: Méthode plus détaillée
	'file.write("-Imprimantes:" & vbCr)
	'file.write(vbTab & "Nom:" & objItem.Caption & " => Port: " & objItem.PortName & vbCr)
	Attrib=Cint(objItem.Attributes)
	For i=lbound(attr) To ubound(attr)
		'Trouver l'imprimante qui a l'attribut à 4bits (imprimante par défaut)
		If (Attrib and attr(i))= 4 Then
			'Remplir le fichier avec la donnée
			file.write("-Imprimantes par défaut: ")
			file.write(objItem.Caption)
		end if
	Next
Next

TODO Liste:

Historique:

Version 0.1 (2009/03/27)
-Création du script et test avec succès en production.