För att hämta alla lokalt installerade skrivare kan du göra så här:
'SKAPAR ETT OBJEKT
Set objNetwork = CreateObject("WScript.Network")
'LOOPAR IGENOM ALLA LOKALT INSTALLERADE SKRIVARE
Set oPrinters = objNetwork.EnumPrinterConnections
'WScript.Echo "Network printer mappings:"
For i = 0 to oPrinters.Count - 1 Step 2
' WScript.Echo "Port " & oPrinters.Item(i) & " = " & oPrinters.Item(i+1)
varAllLocallyInstalledPrinters = varAllLocallyInstalledPrinters &oPrinters.Item(i+1) &" ; " 'SPARAR ALLA PRINTRAR I EN STRÄNG
Next
Hur man printar ut informationen till en websida skulle jag också vilja veta :)
