'*******************************************************************************
'Originally written by Michael Callahan
'Date: 01/25/2005
'
'Modified by Jase McCarty
'Date: 03/15/2006
'FarmAppExport.wsf
'
'Description: List all applications in a farm and write the settings out to a file for restore.
'All files will be created in the same directory the script is run in; a folder named "icons" should also 
'be created in this directory for icon storage and retrieval.
'
'
'This must be run locally on a Citrix system.  
'It will not execute properly on a network share, or mapped drive.
'*******************************************************************************
<package>
<job id=" FarmApplications">

<comment>
		File: FarmAppExport.wsf
		Description: List all applications in a farm and the users and servers assigned to them.
		Requirements: WSH 5.5 or higher.
</comment>

<runtime>
		
		<description>
			List Servers and Users for all apps in the farm.
		</description>
		
		<example>
			CScript //nologo 
		</example>

</runtime>

<reference object="MetaFrameCOM.MetaFrameFarm"/>
<script language="VBScript">
'On Error Resume Next
Dim theFarm,AppName ,anApp,aServer

'
'Set up basic scripting objects
'
Set oShell = WScript.CreateObject("WScript.Shell")
     Set oFso = CreateObject("Scripting.FileSystemObject")
     Set oWshNetwork = WScript.CreateObject("WScript.Network")
     sScriptFullName = WScript.ScriptFullName
     sScriptPath = Left(sScriptFullName, InStrRev(sScriptFullName, "\"))


'
' Create MetaFrameFarm object
'

Set theFarm = CreateObject("MetaFrameCOM.MetaFrameFarm")
if Err.Number <> 0 Then
WScript.Echo "Can't create MetaFrameFarm object"
WScript.Echo "(" & Err.Number & ") " & Err.Description
WScript.Echo ""
WScript.Quit Err.Number
End if

'
' Initialize the farm object.
'

theFarm.Initialize(MetaFrameWinFarmObject)
if Err.Number <> 0 Then
WScript.Echo "Can't Initialize MetaFrameFarm object"
WScript.Echo "(" & Err.Number & ") " & Err.Description
WScript.Echo ""
WScript.Quit Err.Number
End if

			'
			'			Handle folder management and backups
			'
			'Create icon folder for icon storage
			If not oFso.FolderExists(sScriptPath & "\icons") Then
				oFso.CreateFolder(sScriptPath & "\icons")
			End If
			
			'Create backup folder for files from last script run
			If not oFso.FolderExists(sScriptPath & "\backup") Then
				oFso.CreateFolder(sScriptPath & "\backup")
			End If
			
			'Create backup folder for icons, then copy last run's icons over
			If oFso.FolderExists(sScriptPath & "backup\icons") Then
				oFso.DeleteFile sScriptPath & "backup\icons\*.*"
				oFso.CopyFolder sScriptPath & "\icons", sScriptPath & "\backup\icons"
			Else
				oFso.CreateFolder(sScriptPath & "\backup\icons")
				oFso.CopyFolder sScriptPath & "\icons", sScriptPath & "\backup\icons"
			End If
			
			'Copy .inf file from last script run to backup folder, then clean up icon directory
			If oFso.FileExists(sScriptPath & "\" & theFarm.FarmName &"_Applications.xml") Then
				oFso.CopyFile sScriptPath & "\" & theFarm.FarmName &"_Applications.xml", sScriptPath & "\backup\"
				oFso.DeleteFile sScriptPath & "\icons\*.*"
			End If
     
			'
			'Set output file
			Set output = oFso.OpenTextFile(sScriptPath & "\" & theFarm.FarmName &"_Applications.xml", 2, True)
			'
     
	     
			' Are you Citrix Administrator?
			'
			
			if theFarm.WinFarmObject.IsCitrixAdministrator = 0 then
				WScript.Echo "You must be a Citrix admin to run this script" 
				WScript.Echo ""
				WScript.Quit 0
			End If


			'
			'Loop through all applications in the farm 
			output.Writeline "<?xml version=""1.0""?>"
			output.writeline "<Applications>"

		For Each anApp In theFarm.Applications
				Set aWinApp = anApp.WinAppObject

				if Err.Number <> 0 Then
						WScript.Echo "Can't enumerate applications"
						WScript.Echo "(" & Err.Number & ") " & Err.Description
						WScript.Echo ""
						WScript.Quit Err.Number
				End if

				output.writeline "  <MFApp>"
				output.writeline "    <AppName>" & Replace(anApp.AppName,"&","&amp;") & "</AppName>"																									
				output.writeline "    <DistinguishedName>" & Replace(Replace(anApp.DistinguishedName,"/","\"),"&","&amp;") & "</DistinguishedName>"		
				output.writeline "    <AppVersion>1</AppVersion>"																																											
				output.writeline "    <Description>" & Replace(anApp.Description,"&","&amp;") & "</Description>"																			
				output.writeline "    <ParentFolderDN>" & aWinApp.ParentFolderDN & "</ParentFolderDN>"																								
				output.writeline "    <EnableApp>" & aWinApp.EnableApp & "</EnableApp>"
				output.writeline "    <DefaultEncryption>" & aWinApp.DefaultEncryption & "</DefaultEncryption>"
				output.writeline "    <DefaultInitProg>" & aWinApp.DefaultInitProg & "</DefaultInitProg>"
				output.writeline "    <DefaultWorkDir>" & aWinApp.DefaultWorkDir & "</DefaultWorkDir>"
				output.writeline "    <DefaultSoundType>" & aWinApp.DefaultSoundType & "</DefaultSoundType>"
				output.writeline "    <DefaultWindowColor>" & aWinApp.DefaultWindowColor & "</DefaultWindowColor>"
				output.writeline "    <DefaultWindowType>" & aWinApp.DefaultWindowType & "</DefaultWindowType>"
				output.writeline "    <DefaultWindowWidth>" & aWinApp.DefaultWindowWidth & "</DefaultWindowWidth>"
				output.writeline "    <DefaultWindowHeight>" & aWinApp.DefaultWindowHeight & "</DefaultWindowHeight>"
				output.writeline "    <DefaultWindowScale>" & aWinApp.DefaultWindowScale & "</DefaultWindowScale>"
				output.writeline "    <DesktopIntegrate>" & aWinApp.DesktopIntegrate & "</DesktopIntegrate>"
				output.writeline "    <MFAttributes>" & aWinApp.MFAttributes & "</MFAttributes>"
				output.writeline "    <PublishingFlags>" & aWinApp.PublishingFlags & "</PublishingFlags>"
				output.writeline "    <PNAttributes>" & aWinApp.PNAttributes & "</PNAttributes>"
				
				If aWinApp.PNFolder <> "" Then
				     output.writeline "    <PNFolder>" & aWinApp.PNFolder & "</PNFolder>"
				Else 
				     output.writeline "    <PNFolder />"
				End If
				     
				output.writeline "    <ReadOnly>" & aWinApp.ReadOnly & "</ReadOnly>"
				output.writeline "    <CPUPriority>" & aWinApp.CPUPriority & "</CPUPriority>"
				output.writeline "    <InstanceLimit>" & aWinApp.InstanceLimit & "</InstanceLimit>"
				output.writeline "    <AllowMultiInstancePerUser>" & aWinApp.AllowMultiInstancePerUser & "</AllowMultiInstancePerUser>"
				output.writeline "    <EnableSSLConnections>" & aWinApp.EnableSSLConnections & "</EnableSSLConnections>"
				output.writeline "    <FileTypes>System.__ComObject</FileTypes>"
				output.writeline "    <AppID>MetaFrameCOM.MetaFrameIDClass</AppID>"
				output.writeline "    <BrowserName>" & Replace(aWinApp.AppName,"&","&amp;") & "</BrowserName>"
				output.writeline "    <PlaceUnderProgramsFolder>0</PlaceUnderProgramsFolder>"
				output.writeline "    <HideFromBrowserEnum>1</HideFromBrowserEnum>"
				output.writeline "    <HideFromPNEnum>1</HideFromPNEnum>"
				output.writeline "    <AddToClientStartMenu>0</AddToClientStartMenu>"
				output.writeline "    <AddShortcutToClientDesktop>0</AddShortcutToClientDesktop>"
				output.writeline "    <IconFileName>" & Replace(anApp.AppName,"&","&amp;") & ".ico</IconFileName>"
				
				aWinApp.WriteIconToFile sScriptPath & "\icons\" & anApp.AppName & ".ico"
				
				'This doesn't work on our XP FR2 Environment				
				'WScript.Echo "Wait on Printer: " & aWinApp.WaitOnPrinterCreation
				'output.writeline "WaitOnPrinterCreation=" & aWinApp.WaitOnPrinterCreation
				'aWinApp.WriteIconToFile sScriptPath & "\icons\" & anApp.AppName & ".ico"

				'Enumerate Servers for this application
				For Each aServer In anApp.Servers
					If Err.number <> 0 Then
							output.writeline "    <ServerName>" & aServer.ServerName & "</ServerName>"
					End If
				Next

				'Enumerate Users for this application		
				For Each anUser In anApp.Users
						          
						If nUserCount = 0 then
							'WScript.Echo "Users : " & anUser.AAName & "\" & anUser.UserName
						  'output.writeline anUser.AAName & "\" & anUser.UserName & "\" & anUser.AccountType
						  output.writeline "    <UserName>MFAccountAuthorityADS," & anUser.AAName & ",MFAccountDomainUser," & anUser.UserName & "</UserName>"
				
						Else 
							'WScript.Echo " " & anUser.AAName & "\" & anUser.UserName
						  output.writeline "<UserName>MFAccountAuthorityADS," & anUser.AAName & ",MFAccountDomainUser," & anUser.UserName & "</UserName>"
						End if 
				Next 
		          
				'Enumerate Groups for this application
				For Each anGroup In anApp.Groups
				          
						If nUserCount = 0 Then
							'WScript.Echo "Users : " & anGroup.AAName & "\" & anGroup.GroupName
							'Wscript.Echo "    <GroupName>MFAccountAuthorityADS," & anGroup.AAName & ",FAccountGlobalGroup," & anGroup.GroupName & "</GroupName>"
							
						  'output.writeline anGroup.AAName & "\" & anGroup.GroupName & "\" & anGroup.AccountType
						  output.writeline "    <GroupName>MFAccountAuthorityADS," & anGroup.AAName & ",MFAccountGlobalGroup," & anGroup.GroupName & "</GroupName>"
						Else
							WScript.Echo " " & anGroup.AAName & "\" & anGroup.GroupName
						  'output.writeline anGroup.AAName & "\" & anGroup.GroupName & "\" & anGroup.AccountType
						  output.writeline "    <GroupName>MFAccountAuthorityADS," & anGroup.AAName & ",MFAccountGlobalGroup," & anGroup.GroupName & "</GroupName>"
						End If 
				          
				Next

				'Close the MFApp Item
				output.writeline "  </MFApp>"

		Next

		'Close the Applications
    output.writeline "</Applications>"

Wscript.Echo "Done"


</script>
</job>
</package>