CrashPlan - Number of Selected Files.xml

<?xml version="1.0" encoding="UTF-8"?>
<extensionAttribute>
	<displayName>CrashPlan - Number of Selected Files</displayName>
	<displayInCategory>Backup</displayInCategory>
	<description>This attribute displays the number of files CrashPlan is actively backing up.  This attribute applies to both Mac and Windows.</description>
	<dataType>integer</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/computerUsage?sourceGuid="$GUID" | grep -w selectedFiles | awk '{print $2}' | sed s/,//g`&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), "selectedFiles") &gt; 0 Then
			strResult = Replace (arrResults(i), "selectedFiles", "")
			strResult = Replace (strResult, ":", "")
			strResult = Replace (strResult, chr(10), "")
			strResult = Replace (strResult, chr(32), "")
			strResult = Replace (strResult, chr(34), "")
			Exit for
		End if
	Next

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