CrashPlan - Computer GUID.xml

<?xml version="1.0" encoding="UTF-8"?>
<extensionAttribute>
	<displayName>CrashPlan - Computer GUID</displayName>
	<displayInCategory>Backup</displayInCategory>
	<description>This attribute displays the computer GUID assigned to the machine by CrashPlan.  This attribute applies to both Mac and Windows.</description>
	<dataType>integer</dataType>
	<scriptContentsMac>#!/bin/sh
if [ -f /Library/Application\ Support/CrashPlan/.identity ];then
echo "&lt;result&gt;`/bin/cat /Library/Application\ Support/CrashPlan/.identity | grep guid | sed s/guid\=//g`&lt;/result&gt;"
else
echo "&lt;result&gt;Not installed&lt;/result&gt;"
fi
	</scriptContentsMac>
	<scriptTypeWindows>VBScript</scriptTypeWindows>
	<scriptContentsWindows>On Error Resume Next

'Declaration of Objects, Constants, Variables
Dim objFSO
Dim objTextFile
Dim strTextFile
Dim arrResults
Dim strResult
Dim GUID

'Set Objects
Set objFSO = CreateObject("Scripting.FileSystemObject")

'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
	Exit for
End if
Next

If GUID = "" Then
WScript.Echo "&lt;result&gt;Not installed&lt;/result&gt;"
Else
WScript.Echo "&lt;result&gt;" &amp; GUID &amp; "&lt;/result&gt;"
End If</scriptContentsWindows>
</extensionAttribute>