CrashPlan - Alert Status.xml

<?xml version="1.0" encoding="UTF-8"?>
<extensionAttribute>
	<displayName>CrashPlan - Alert Status</displayName>
	<displayInCategory>Backup</displayInCategory>
	<description>This attribute displays the CrashPlan alert status of the computer.  "OK" if the computer has backed up within defined days, "WARN" if computer has exceeded "warning" threshold, "ALERT" if computer has exceeded "alert" threshold.  This attribute applies to both Mac and Windows.</description>
	<dataType>string</dataType>
	<scriptContentsMac>#!/bin/sh
CP_ServerAddress="EditFromTemplate_CrashPlan_Server_Name"
CP_ServerPort="4285"
CP_AdminUsername="EditFromTemplate_CrashPlan_Service_Account_Username"
CP_AdminPassword="EditFromTemplate_CrashPlan_Service_Account_Password"

if [ "$CP_ServerAddress" == "" ] || [ "$CP_ServerPort" == "" ] || [ "$CP_AdminUsername" == "" ] || [ "$CP_AdminPassword" == "" ];then
echo "&lt;result&gt;Please ensure all variables are set in the extension attribute script.&lt;/result&gt;"
else
if [ -f /Library/Application\ Support/CrashPlan/.identity ];then
	GUID=`/bin/cat /Library/Application\ Support/CrashPlan/.identity | grep guid | sed s/guid\=//g`
	echo "&lt;result&gt;`/usr/bin/curl -u "$CP_AdminUsername":"$CP_AdminPassword" -k https://"$CP_ServerAddress":"$CP_ServerPort"/rest/computers?guid="$GUID" | grep -w alertStates | awk '{print $2}' | sed s/,//g | sed 's/..\(.*\)/\1/' | sed 's/\(.*\)../\1/'`&lt;/result&gt;"
else
	echo "&lt;result&gt;Not installed&lt;/result&gt;"
fi
fi
	</scriptContentsMac>
	<scriptTypeWindows>VBScript</scriptTypeWindows>
	<scriptContentsWindows>On Error Resume Next

'Declaration of Objects, Constants, Variables
Dim objFSO
Dim objTextFile
Dim strTextFile
Dim objHTTP
Dim arrResults
Dim strResult
Dim GUID
Dim CP_ServerAddress
Dim CP_ServerPort
Dim CP_AdminUsername
Dim CP_AdminPassword

'Set Variables
CP_ServerAddress = "EditFromTemplate_CrashPlan_Server_Name"
CP_ServerPort = "4285"
CP_AdminUsername = "EditFromTemplate_CrashPlan_Service_Account_Username"
CP_AdminPassword = "EditFromTemplate_CrashPlan_Service_Account_Password"

'Validate Variables Have Been Set
If CP_ServerAddress = "" Or CP_ServerPort = "" Or CP_AdminUsername = "" Or CP_AdminPassword = "" Then
WScript.Echo "&lt;result&gt;Please ensure all variables are set in the extension attribute script.&lt;/result&gt;"
Else
'Set Objects
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objHTTP = CreateObject("WinHttp.WinHttpRequest.5.1")

'Set Constants
Const WinHttpRequestOption_SslErrorIgnoreFlags = 4

'Read in CrashPlan GUID
Set objTextFile = objFSO.OpenTextFile("C:\ProgramData\CrashPlan\.identity")
strTextFile = objTextFile.ReadAll
objTextFile.Close
arrResults=Split(strTextFile, Chr(13))
For i = 0 to ubound(arrResults)
	If inStr(arrResults(i), "guid") &gt; 0 Then
		strResult = Replace(arrResults(i), "guid=", "")
		GUID = strResult
		strResult = ""
		Exit for
	End if
Next

If GUID = "" Then
	WScript.Echo "&lt;result&gt;Not installed&lt;/result&gt;"
Else
	'Connect to the CrashPlan Pro Server Rest API
	objHTTP.open "GET", "https://" &amp; CP_ServerAddress &amp; ":" &amp; CP_ServerPort &amp; "/rest/computerUsage?sourceGuid=" &amp; GUID &amp; "", False 
	objHTTP.Option(WinHttpRequestOption_SslErrorIgnoreFlags) = &amp;H3300
	objHTTP.SetCredentials CP_AdminUsername, CP_AdminPassword, 0
	objHTTP.send

	'Parse the JSON Output
	arrResults=Split(objHTTP.ResponseText, ",")
	For i = 0 to ubound(arrResults)
		If inStr(arrResults(i), "alertStates") &gt; 0 Then
			strResult = Replace (arrResults(i), chr(34) &amp; "alertStates" &amp; chr(34) &amp; ": [" &amp; chr(34), "")
			strResult = Replace (strResult, chr(34) &amp; "]", "")
			strResult = Replace (strResult, chr(10), "")
			strResult = Replace (strResult, chr(32), "")
			Exit for
		End if
	Next

	WScript.Echo "&lt;result&gt;" &amp; strResult &amp; "&lt;/result&gt;"
End If
End If</scriptContentsWindows>
</extensionAttribute>