# PRTG Custom Sensor to load HP8600 SNMPv1 and HTTP Data
#
# frank@carius.de
# 20160330 Ver 1.0  Initial Version
#

param (
   [string]$ip="192.168.178.4",  # IP-Adress of Printer
   [string]$community="public"    # SNMP Community
)

#set-psdebug -strict   # enforce strict variable checking

write-host "Start prtg-HP8600" (get-date).tostring()

write-host "Initializing PRTG Result variable"
[string]$prtgresult=""
$prtgresult+="<?xml version=""1.0"" encoding=""Windows-1252"" ?>`r`n"
$prtgresult+="<prtg>`r`n"
[bool]$errorfound = $false

write-host ("Parametercheck: IP-Address:" + $ip)


try {
	# Klasse instanziere
	write-host "  Creating Instance of olePrn.OleSNMP"
	$SNMP = new-object -ComObject olePrn.OleSNMP

	# SNMP Host mit IP-Adresse, Community, Retry und Timeout hinterlegen
	write-host "  Configure olePrn.OleSNMP with IP $ip and Community  $community"
	$snmp.open($ip,$community,2,3000)
	
	write-host "  Start SNMP Gettree"
	$snmpresult = $snmp.gettree(".1.3.6.1.2.1.43.11.1.1") | select -last 16

}
catch {
	write-host "Error using HTTP: Unable to load Configfile $configfile"
	$prtgresult+="   <error>2</error>`r`n"
	$prtgresult+="   <text>Error unable to get SNMP-Values`r`n</text>"
	$errorfound = $true
}

[int]$lowestink = 100
if (!$errorfound) {

	foreach ($count in 0..3) {
		write-host "Processing $count"
		$inkstatus = [int](($snmpresult[$count+12] / $snmpresult[$count+8])*100)
		$prtgresult+="    <result>`r`n"
		$prtgresult+="        <channel>Ink "+$snmpresult[$count]+"</channel>`r`n"
		$prtgresult+="        <value>"+ $inkstatus +"</value>`r`n"
		$prtgresult+="        <float>0</float>`r`n"
		$prtgresult+="        <mode>Absolute</mode>`r`n"
		$prtgresult+="    </result>`r`n"
		if ($inkstatus -lt $lowestink ) {
			$lowestink = $inkstatus 
		}
	}
}

# Calculate lowestInkStatus
$prtgresult+="    <result>`r`n"
$prtgresult+="        <channel>Ink Lowest</channel>`r`n"
$prtgresult+="        <value>"+ $lowestink +"</value>`r`n"
$prtgresult+="        <float>0</float>`r`n"
$prtgresult+="        <mode>Absolute</mode>`r`n"
$prtgresult+="    </result>`r`n"

[xml]$hp8600data = $null
[string]$pagestatusurl = "http://"+$ip+"/DevMgmt/ProductUsageDyn.xml"

try {
	write-host (" Loading " + $pagestatusurl)
	#[System.Security.SecureString]$strSecurePass = ConvertTo-SecureString -String "password" -AsPlainText -Force
	#$Cred = New-Object -TypeName System.Management.Automation.PSCredential -ArgumentList ("Username", $strSecurePass)
	#$webpage = Invoke-Webrequest -uri $pagestatusurl -credential $cred -UseBasicParsing
	[xml]$hp8600data = (Invoke-Webrequest -usebasicparsing -uri $pagestatusurl).content
}
catch {
	# $error  
	write-host "Unable to retrieve data via HTML"
	$prtgresult+="   <error>2</error>`r`n"
	$prtgresult+="   <text>ProtocolError:Unable to get HTML-Data. Check IP-Address and Link</text>`r`n"
	$prtgresultcode = 3
}


if (!$errorfound) {

# Druck
		$prtgresult+="    <result>`r`n"
		$prtgresult+="        <channel>Druck Mono</channel>`r`n"
		$prtgresult+="        <value>"+ $hp8600data.ProductUsageDyn.PrinterSubunit.MonochromeImpressions +"</value>`r`n"
		$prtgresult+="        <float>0</float>`r`n"
		$prtgresult+="        <mode>Absolute</mode>`r`n"
		$prtgresult+="    </result>`r`n"
		
		$prtgresult+="    <result>`r`n"
		$prtgresult+="        <channel>Druck Color</channel>`r`n"
		$prtgresult+="        <value>"+ $hp8600data.ProductUsageDyn.PrinterSubunit.ColorImpressions +"</value>`r`n"
		$prtgresult+="        <float>0</float>`r`n"
		$prtgresult+="        <mode>Absolute</mode>`r`n"
		$prtgresult+="    </result>`r`n"
				
				
		$prtgresult+="    <result>`r`n"
		$prtgresult+="        <channel>Druck Simplex</channel>`r`n"
		$prtgresult+="        <value>"+ $hp8600data.ProductUsageDyn.PrinterSubunit.SimplexSheets +"</value>`r`n"
		$prtgresult+="        <float>0</float>`r`n"
		$prtgresult+="        <mode>Absolute</mode>`r`n"
		$prtgresult+="    </result>`r`n"

		$prtgresult+="    <result>`r`n"
		$prtgresult+="        <channel>Druck Duplex</channel>`r`n"
		$prtgresult+="        <value>"+ $hp8600data.ProductUsageDyn.PrinterSubunit.DuplexSheets."#text" +"</value>`r`n"
		$prtgresult+="        <float>0</float>`r`n"
		$prtgresult+="        <mode>Absolute</mode>`r`n"
		$prtgresult+="    </result>`r`n"
					

		$prtgresult+="    <result>`r`n"
		$prtgresult+="        <channel>Papierstau</channel>`r`n"
		$prtgresult+="        <value>"+ $hp8600data.ProductUsageDyn.PrinterSubunit.JamEvents."#text" +"</value>`r`n"
		$prtgresult+="        <float>0</float>`r`n"
		$prtgresult+="        <mode>Absolute</mode>`r`n"
		$prtgresult+="    </result>`r`n"
										
		$prtgresult+="    <result>`r`n"
		$prtgresult+="        <channel>Druck Fehleinzug</channel>`r`n"
		$prtgresult+="        <value>"+ $hp8600data.ProductUsageDyn.PrinterSubunit.MispickEvents +"</value>`r`n"
		$prtgresult+="        <float>0</float>`r`n"
		$prtgresult+="        <mode>Absolute</mode>`r`n"
		$prtgresult+="    </result>`r`n"


		$prtgresult+="    <result>`r`n"
		$prtgresult+="        <channel>Druck LAN</channel>`r`n"
		$prtgresult+="        <value>"+ $hp8600data.ProductUsageDyn.PrinterSubunit.NetworkImpressions."#text" +"</value>`r`n"
		$prtgresult+="        <float>0</float>`r`n"
		$prtgresult+="        <mode>Absolute</mode>`r`n"
		$prtgresult+="    </result>`r`n"


		$prtgresult+="    <result>`r`n"
		$prtgresult+="        <channel>Druck wLAN</channel>`r`n"
		$prtgresult+="        <value>"+ $hp8600data.ProductUsageDyn.PrinterSubunit.WirelessNetworkImpressions."#text" +"</value>`r`n"
		$prtgresult+="        <float>0</float>`r`n"
		$prtgresult+="        <mode>Absolute</mode>`r`n"
		$prtgresult+="    </result>`r`n"
		
# Fax
		$prtgresult+="    <result>`r`n"
		$prtgresult+="        <channel>Fax Total</channel>`r`n"
		$prtgresult+="        <value>"+ $hp8600data.ProductUsageDyn.FaxApplicationSubunit.TotalImpressions."#text" +"</value>`r`n"
		$prtgresult+="        <float>0</float>`r`n"
		$prtgresult+="        <mode>Absolute</mode>`r`n"
		$prtgresult+="    </result>`r`n"

		$prtgresult+="    <result>`r`n"
		$prtgresult+="        <channel>Fax Mono</channel>`r`n"
		$prtgresult+="        <value>"+ $hp8600data.ProductUsageDyn.FaxApplicationSubunit.MonochromeImpressions +"</value>`r`n"
		$prtgresult+="        <float>0</float>`r`n"
		$prtgresult+="        <mode>Absolute</mode>`r`n"
		$prtgresult+="    </result>`r`n"

		$prtgresult+="    <result>`r`n"
		$prtgresult+="        <channel>Fax Color</channel>`r`n"
		$prtgresult+="        <value>"+ $hp8600data.ProductUsageDyn.FaxApplicationSubunit.ColorImpressions +"</value>`r`n"
		$prtgresult+="        <float>0</float>`r`n"
		$prtgresult+="        <mode>Absolute</mode>`r`n"
		$prtgresult+="    </result>`r`n"		

		$prtgresult+="    <result>`r`n"
		$prtgresult+="        <channel>Fax ADFSeiten</channel>`r`n"
		$prtgresult+="        <value>"+ $hp8600data.ProductUsageDyn.FaxApplicationSubunit.AdfImages +"</value>`r`n"
		$prtgresult+="        <float>0</float>`r`n"
		$prtgresult+="        <mode>Absolute</mode>`r`n"
		$prtgresult+="    </result>`r`n"		
		
		$prtgresult+="    <result>`r`n"
		$prtgresult+="        <channel>Fax Auflagenglas</channel>`r`n"
		$prtgresult+="        <value>"+ $hp8600data.ProductUsageDyn.FaxApplicationSubunit.FlatbedImages +"</value>`r`n"
		$prtgresult+="        <float>0</float>`r`n"
		$prtgresult+="        <mode>Absolute</mode>`r`n"
		$prtgresult+="    </result>`r`n"
	
		$prtgresult+="    <result>`r`n"
		$prtgresult+="        <channel>Total Send to PC</channel>`r`n"
		$prtgresult+="        <value>"+ $hp8600data.ProductUsageDyn.FaxApplicationSubunit.ImagesSentToPC."#text" +"</value>`r`n"
		$prtgresult+="        <float>0</float>`r`n"
		$prtgresult+="        <mode>Absolute</mode>`r`n"
		$prtgresult+="    </result>`r`n"

		$prtgresult+="    <result>`r`n"
		$prtgresult+="        <channel>ImagesReceivedFromPC</channel>`r`n"
		$prtgresult+="        <value>"+ $hp8600data.ProductUsageDyn.FaxApplicationSubunit.ImagesReceivedFromPC +"</value>`r`n"
		$prtgresult+="        <float>0</float>`r`n"
		$prtgresult+="        <mode>Absolute</mode>`r`n"
		$prtgresult+="    </result>`r`n"
		
		$prtgresult+="    <result>`r`n"
		$prtgresult+="        <channel>Fax ImagesSentToEmail</channel>`r`n"
		$prtgresult+="        <value>"+ $hp8600data.ProductUsageDyn.FaxApplicationSubunit.ImagesSentToEmail."#text" +"</value>`r`n"
		$prtgresult+="        <float>0</float>`r`n"
		$prtgresult+="        <mode>Absolute</mode>`r`n"
		$prtgresult+="    </result>`r`n"		

		$prtgresult+="    <result>`r`n"
		$prtgresult+="        <channel>Fax ImagesSentToFolder</channel>`r`n"
		$prtgresult+="        <value>"+ $hp8600data.ProductUsageDyn.FaxApplicationSubunit.ImagesSentToFolder."#text" +"</value>`r`n"
		$prtgresult+="        <float>0</float>`r`n"
		$prtgresult+="        <mode>Absolute</mode>`r`n"
		$prtgresult+="    </result>`r`n"
		
		$prtgresult+="    <result>`r`n"
		$prtgresult+="        <channel>Fax TotalImagesSent</channel>`r`n"
		$prtgresult+="        <value>"+ $hp8600data.ProductUsageDyn.FaxApplicationSubunit.TotalImagesSent."#text" +"</value>`r`n"
		$prtgresult+="        <float>0</float>`r`n"
		$prtgresult+="        <mode>Absolute</mode>`r`n"
		$prtgresult+="    </result>`r`n"
		
		
# Kopierer
		$prtgresult+="    <result>`r`n"
		$prtgresult+="        <channel>Copy Total</channel>`r`n"
		$prtgresult+="        <value>"+ $hp8600data.ProductUsageDyn.CopyApplicationSubunit.TotalImpressions."#text" +"</value>`r`n"
		$prtgresult+="        <float>0</float>`r`n"
		$prtgresult+="        <mode>Absolute</mode>`r`n"
		$prtgresult+="    </result>`r`n"

		$prtgresult+="    <result>`r`n"
		$prtgresult+="        <channel>Copy Color</channel>`r`n"
		$prtgresult+="        <value>"+ $hp8600data.ProductUsageDyn.CopyApplicationSubunit.ColorImpressions +"</value>`r`n"
		$prtgresult+="        <float>0</float>`r`n"
		$prtgresult+="        <mode>Absolute</mode>`r`n"
		$prtgresult+="    </result>`r`n"
		
		$prtgresult+="    <result>`r`n"
		$prtgresult+="        <channel>Copy Mono</channel>`r`n"
		$prtgresult+="        <value>"+ $hp8600data.ProductUsageDyn.CopyApplicationSubunit.MonochromeImpressions."#text" +"</value>`r`n"
		$prtgresult+="        <float>0</float>`r`n"
		$prtgresult+="        <mode>Absolute</mode>`r`n"
		$prtgresult+="    </result>`r`n"
		
		$prtgresult+="    <result>`r`n"
		$prtgresult+="        <channel>Copy AdfImages</channel>`r`n"
		$prtgresult+="        <value>"+ $hp8600data.ProductUsageDyn.CopyApplicationSubunit.AdfImages +"</value>`r`n"
		$prtgresult+="        <float>0</float>`r`n"
		$prtgresult+="        <mode>Absolute</mode>`r`n"
		$prtgresult+="    </result>`r`n"
		
		$prtgresult+="    <result>`r`n"
		$prtgresult+="        <channel>Copy Vorlagenglas</channel>`r`n"
		$prtgresult+="        <value>"+ $hp8600data.ProductUsageDyn.CopyApplicationSubunit.FlatbedImages +"</value>`r`n"
		$prtgresult+="        <float>0</float>`r`n"
		$prtgresult+="        <mode>Absolute</mode>`r`n"
		$prtgresult+="    </result>`r`n"
}

$prtgresult+="</prtg>"
if ($errorfound) {
	write-host "Error Found. Ending with EXIT Code" ([xml]$prtgresult).prtg.error
}
write-host "Sending PRTGRESULT to STDOUT"
$prtgresult

if ($errorfound) {
	exit ([xml]$prtgresult).prtg.error
}