Stampanti

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 - [gdm7@hotmail.it]"
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


Bene.... bene.... :D:D ora salviamo il file con nome aggiungendo .vbs e poi basta aprirlo... faccio un esempio:
Salva con nome - Stampanti.vbs
Condividi su Google Plus

Info su Giovanni Di Mauro

Questa è una breve descrizione nel blocco dell'autore sull'autore. Lo modifichi inserendo il testo su "Informazioni biografiche" nel pannello di amministrazione dell'utente.
    Commenti da Blogger
    Commenti da Facebook

0 commenti :

Posta un commento