CrashPlan - Average Upload Rate.xml

<?xml version="1.0" encoding="UTF-8"?>
<extensionAttribute>
	<displayName>CrashPlan - Average Upload Rate</displayName>
	<displayInCategory>Backup</displayInCategory>
	<description>This attribute displays the average upload rate based on historical CrashPlan backup jobs.  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`
	value=`/usr/bin/curl -u "$CP_AdminUsername":"$CP_AdminPassword" -k https://"$CP_ServerAddress":"$CP_ServerPort"/rest/computerUsage?sourceGuid="$GUID" | grep -w completionRateAverage | awk '{print $2}' | sed s/,//g`
   
	kilo=$( echo "scale=2; $value / 1024" | bc )
	kiloint=$( echo "$value / 1024" | bc )

	mega=$( echo "scale=2; $kilo / 1024" | bc )
	megaint=$( echo "$kilo / 1024" | bc )

	giga=$( echo "scale=2; $mega / 1024" | bc )
	gigaint=$( echo "$mega / 1024" | bc )

	if [ $kiloint -lt 1 ] ; then
		result="$value bps"
	elif [ $megaint -lt 1 ] ; then
		result="${kilo} kbps"
	elif [ $gigaint -lt 1 ] ; then
		result="${mega} mbps"
	else
		result="${giga} gbps"
	fi

	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), "completionRateAverage") &gt; 0 Then
			intTotalSize = Replace (arrResults(i), chr(34) &amp; "completionRateAverage" &amp; chr(34) &amp; ": ", "")
			intTotalSize = CInt(Trim(intTotalSize))
			Exit for
		End if
	Next
	
	kilo = intTotalSize / 1024
	mega = kilo / 1024
	giga = mega / 1024

	If kilo &lt; 1 then
	strResult = Round(intTotalSize) &amp; " bytes"
	ElseIf mega &lt; 1 then 
	strResult = Round(kilo) &amp; " KB"
	ElseIf giga &lt; 1 Then 
	strResult = Round(mega) &amp; " MB"
	Else
	strResult = Round(giga) &amp; " GB"
	End If 
	WScript.Echo "&lt;result&gt;" &amp; strResult &amp; "&lt;/result&gt;"
End If
End If
   </scriptContentsWindows>
</extensionAttribute>