Bonjour, je voudrai créer un script avec MFCOM permettant d’ajouter un compte user de domaine pour une application publiée.
le script suivant ajoute le compte user dans toutes les applications de la ferme.
Pouvez vous m’aider à le rectifier afin de pouvoir choisir l’application ?
Option Explicit
Dim AAName, AcctName, theFarm, anApp, MFUser, aWinApp
If WScript.Arguments.Count <> 2 Then
WScript.Echo "UTILISATION : Addacct.wsf NOMDOMAINE, NOMUTILISATEUR|NOMGROUPE"
WScript.Echo ""
WScript.Echo "Exemple : Addacct.wsf MONDOMAINEAD Utilisateurs de domaine"
WScript.Echo "Utilisez des guillemets pour les noms tels que Utilisateurs de domaine"
WScript.Echo "Exemple : Addacct.wsf MONDOMAINEAD MARTIN"
WScript.Quit 0
Else
AAName = WScript.Arguments(0)
AcctName = WScript.Arguments(1)
wscript.echo AAName, ACCTNAME
End If
'
'
' Vérifie le présence d'erreurs et interrompt l'exécution s'il en trouve.
'
'
Set theFarm = CreateObject("MetaFrameCOM.MetaFrame Farm")
if Err.Number <> 0 Then
WScript.Echo "Impossible de créer l'objet MetaFrameFarm"
WScript.Echo "(" & Err.Number & ") " & Err.Description
WScript.Echo ""
WScript.Quit Err.Number
End If
'
' Initialisation de l'objet batterie (farm).
'
theFarm.Initialize(MetaFrameWinFarmObject)
if Err.Number <> 0 Then
WScript.Echo "Impossible d'initialiser l'objet MetaFrameFarm"
WScript.Echo "(" & Err.Number & ") " & Err.Description
WScript.Echo "Fin "
WScript.Quit Err.Number
End If
' '
' Administrateur Citrix ?
' '
if theFarm.WinFarmObject.IsCitrixAdministrator = 0 then
WScript.Echo "Vous devez être un administrateur Citrix pour exécuter ce script"
WScript.Echo ""
WScript.Quit 0
End If
'
' Affichage de toutes les applications de la batterie.
' '
For Each anApp In theFarm.Applications
if Err.Number <> 0 Then
WScript.Echo "Impossible d'énumérer les applications"
WScript.Echo "(" & Err.Number & ") " & Err.Description
WScript.Echo ""
WScript.Quit Err.Number
End If
'
' Création de l'objet utilisateur.
'
Set MFUser = CreateObject("MetaFrame COM.MetaFrameUser")
MFUser.initialize MFAccountAuthorityADS, AAName,MFAccountDomainUser, AcctName
'
' Ajout de l'utilisateur ou du groupe à toutes les applications publiées
'
anApp.LoadData(TRUE)
if anApp.AppType = MetaFrameWinAppObject Then
' Objet MetaFrameWinApp
Set aWinApp = anApp.WinAppObject
anApp.Adduser MFAccountAuthorityADS, AAName, MFAccountDomainUser, AcctName
anApp.SaveData
end If
Next