'#--------------------------------------------------------------------------------- 
'#The sample scripts are not supported under any Microsoft standard support 
'#program or service. The sample scripts are provided AS IS without warranty  
'#of any kind. Microsoft further disclaims all implied warranties including,  
'#without limitation, any implied warranties of merchantability or of fitness for 
'#a particular purpose. The entire risk arising out of the use or performance of  
'#the sample scripts and documentation remains with you. In no event shall 
'#Microsoft, its authors, or anyone else involved in the creation, production, or 
'#delivery of the scripts be liable for any damages whatsoever (including, 
'#without limitation, damages for loss of business profits, business interruption, 
'#loss of business information, or other pecuniary loss) arising out of the use 
'#of or inability to use the sample scripts or documentation, even if Microsoft 
'#has been advised of the possibility of such damages 
'#--------------------------------------------------------------------------------- 

'Option Explicit
On Error Resume Next

Set WshNetwork = CreateObject("WScript.Network")
strComputer = WshNetwork.ComputerName

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

Set colPrinters = objWMIService.ExecQuery("Select * From Win32_Printer Where Local = FALSE")

For Each objPrinter in colPrinters
	PrinterPath = objPrinter.Name
	
	If  IsEmpty(PrinterPath) Then
		WScript.Echo "Failed to find printer, please check your printer service 'Spooler' is running."
	Else
		WshNetwork.AddWindowsPrinterConnection PrinterPath

		If Err.Number = 0 Then
			PrinterStatus = "Connected"
		Else 
			PrinterStatus = "Unconnected"
		End If
		
		WScript.Echo "Name :" & vbTab & PrinterPath & vbCrLf & "Conneted Status : " & PrinterStatus 
	End If
Next