Credo che questo script soddisfi a pieno le richieste per quanto riguarda le stampanti collegate in rete e non…..
Infatti con l’esecuzione dello script possiamo visualizzare tutte le stampanti collegati in modo diretto e in remoto al pc con le relative porte di comunicazione………. 😉
Al solito blocco note a portata di mano per incollarci dentro quanto segue:

dim objShell,objNetwork,collDrives
set objShell=CreateObject(“Wscript.shell”)
Set objNetwork=CreateObject(“WScript.Network”)
strTitle=”Stampanti – [[email protected]]”
strMappedDrives=EnumNetwork()
strMappedPrint=EnumPrint()
strMsg=objNetwork.UserName & ” è il nome dell’Account attualmente in uso, mentre la macchina (il PC) si chiama ” &_
objNetwork.ComputerName & VbCrLf & vbcrlf
strMsg=strMsg & strMappedDrives & VbCrLf & VbCrLf
strMsg=strMsg & strMappedPrint & VbCrLf & VbCrLf
strMsg=strMsg & “Attualmente…. ” & Now & VbCrLf
objShell.Popup strMsg,10,strTitle,vbOKOnly+vbInformation
WScript.quit
Function EnumNetwork()
On Error Resume Next
Set colDrives = objNetwork.EnumNetworkDrives
If colDrives.Count = 0 Then
ret=”Non sono presenti unità di rete in elenco.”
Else
ret = “Percorso delle Unità di rete correnti:” & vbCRLF
For i = 0 To colDrives.Count – 1 Step 2
ret = ret & VbCrLf & colDrives(i) & vbTab & colDrives(i + 1)
Next
End If
EnumNetwork=ret
End Function
Function EnumPrint()
On Error Resume Next
Set colPrint = objNetwork.EnumPrinterConnections
If colPrint.Count = 0 Then
ret=”Non sono presenti stampanti in elenco.”
Else
ret = “Stampanti attualmente collegate: ” & vbCRLF
For i = 0 To colPrint.Count – 1 Step 2
ret = ret & vbCRLF & colPrint(i) & vbTab & colPrint(i + 1)
Next
End If
EnumPrint=ret
End Function

Salviamo il file con nome aggiungendo .vbs e poi basta aprirlo… faccio un esempio:
Salva con nome – Stampanti.vbs