? GetStatePrinter()

FUNCTION GetStatePrinter()
	LOCAL loScript, lcScriptCode
	TEXT TO lcScriptCode NOSHOW PRETEXT  3 
		Function GetDefaultPrinterStatus()
    		GetDefaultPrinterStatus=vbNullString
        	Set objWMIService=GetObject("winmgmts:" _
         	& "{impersonationLevel=impersonate}!\\.\root\cimv2")
         	Set colInstalledPrinters=objWMIService.ExecQuery _
         	("Select * from Win32_Printer")
         	For Each objPrinter in colInstalledPrinters
         		If objPrinter.Attributes and  4  Then
         			GetDefaultPrinterStatus=objPrinter.WorkOffLine
         			Exit For
         		End If
         	Next
     	End Function
	ENDTEXT

	loScript = CreateObject("MSScriptControl.ScriptControl")
	loScript.Language = "vbscript"                 
	loScript.AddCode(lcScriptCode)
	RETURN loScript.run("GetDefaultPrinterStatus")
ENDFUNC