Edward Pamias
asked on
Export results from a VB Script
Can someone modify this script to export the results to an excel CSV file? Also is there a way to modify this to work on multiple computers?
strComputer = "atl-ps-01"
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colPrinters = objWMIService.ExecQuery("Select * From Win32_Printer")
For Each objPrinter in colPrinters
If objPrinter.Attributes And 64 Then
strPrinterType = "Local"
Else
strPrinterType = "Network"
End If
Wscript.Echo objPrinter.Name & " -- " & strPrinterType
Next
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER
This script worked great! Thanks!
Welcome.
~bp
~bp
ASKER