CrashPlan - Backup Percent Complete.xml

<?xml version="1.0" encoding="UTF-8"?>
<extensionAttribute>
	<displayName>CrashPlan - Backup Percent Complete</displayName>
	<displayInCategory>Backup</displayInCategory>
	<description>This attribute displays the backup percent complete based on the total size of selected files and the total size of files that CrashPlan has yet to back 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`
	totalSize=`/usr/bin/curl -u "$CP_AdminUsername":"$CP_AdminPassword" -k https://"$CP_ServerAddress":"$CP_ServerPort"/rest/computerUsage?sourceGuid="$GUID" 2>&amp;1 | grep -w selectedBytes | awk '{print $2}' | sed s/,//g`
	todo=`/usr/bin/curl -u "$CP_AdminUsername":"$CP_AdminPassword" -k https://"$CP_ServerAddress":"$CP_ServerPort"/rest/computerUsage?sourceGuid="$GUID" | grep -w todoBytes | awk '{print $2}' | sed s/,//g`
	done=`expr "$totalSize" - "$todo"`
	
	result=$( echo "scale=4; ($done / $totalSize) * 100" | bc | sed 's/\(.*\)../\1/' )

	echo "&lt;result&gt;$result&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 inttoDo
Dim intTotalSize
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), "selectedBytes") &gt; 0 Then
			intTotalSize = Replace (arrResults(i), chr(34) &amp; "selectedBytes" &amp; chr(34) &amp; ": ", "")
			intTotalSize = CInt(Trim(intTotalSize))
			Exit for
		End if
	Next
	
	For i = 0 to ubound(arrResults)
		If inStr(arrResults(i), "todoBytes") &gt; 0 Then
			inttoDo = Replace (arrResults(i), chr(34) &amp; "todoBytes" &amp; chr(34) &amp; ": ", "")
			inttoDo = CInt(Trim(inttoDo))
			Exit for
		End if
	Next

intdone = intTotalSize - inttoDo
strResult = Round(intdone / intTotalSize * 100)

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