CrashPlan PROe - Computer GUID.xml

<?xml version="1.0" encoding="UTF-8"?>
<extensionAttribute>
  <displayName>CrashPlan PROe - Computer GUID</displayName>
  <displayInCategory>Backup</displayInCategory>
  <description>This attribute displays the computer GUID assigned to the machine by CrashPlan PROe.  This attribute applies to both Mac and Windows.</description>
  <dataType>integer</dataType>
  <scriptContentsMac>
#!/bin/sh
# Modified 1/24/13
# Third-Part Product page for CrashPlan PROe - https://jamfnation.jamfsoftware.com/viewProduct.html?id=217

if [ -f /Library/Application\ Support/CrashPlan/.identity ];then
    echo "&lt;result&gt;`cat /Library/Application\ Support/CrashPlan/.identity | sed -n 's/guid=//p'`&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=", "")
	strResult = Replace(strResult, chr(10), "", 1, -1)
	GUID = Trim(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>