Script ou commande pour extraire les users qui utilise les applications publiées

xenapp
1

Je recherche un moyen de faire une extraction d’user ou groupes par applications publiées…



Merci

2

salut



tu peux adapter le script suivant :



'*******************************************************************************

'Written by Michael Callahan

'Date: 01/25/2005

'

'AppSave.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" will also           

'be created in this directory for icon storage and retrieval.

'

'

'*******************************************************************************



    



        



        File:           FarmAppSave.wsf

        Description:    Backup application settings for all apps  in the farm.

        Requirements:   WSH 5.5 or higher.

               



        

        

            

               Backup application settings for all apps  in the farm.

            

             

        

        

        


</job><br />
3

je renomme juste le script en .VBS ? ???

4

oui



mais attention il va mettre ta config des applis dans un fichier et c’est pas ce que tu voulais je crois

5

J’ai juste besoin de savoir qu’elle groupe users utilisent mes applications publiées… c’est pour eviter de relever manuellement sur chaque applications publiées les groupes autorisés depuis la CMC

6

ce script extrait les infos des applis publiées vers un fichier texte pour les reimporter ensuite (une sorte de backup)



si tu as juste besoin des groupes, tu n’a qu’à virer les lignes qui ne t’intéressent pas.

Sinon, tu peux utiliser RM

7

Su tu es en version 4.0, tu peux generer un rapport au format csv, html sur les applications avec la console access suite.

Je m’en sert tout le temps pour faire les dossiers techniques des clients.

8

Merci beaucoup pour l’infos

9

Bonjour, tu peux adapter celui ci.



Le but est de lister les utilisateurs present dans les groupes des applications publiées. Le mieux est de lister toutes les applications publiées de la batterie, puis lister les groupes de publication sans aller jusqu’au compte utilisateur.


Dim mfFarm

Dim mfApp

Dim mfGrp

Dim mfUsr



'Creer la variable permettant de savoir quelle application publiée est verifiée

' Un inputBox permet de faire la demande en debut de script ( a faire )

ApplicationName = InputBox("Entrer le nom de l'application")



Const ForWriting = 2

   Set objFSO = CreateObject("Scripting.FileSystemObject")

Set objTextFile = objFSO.CreateTextFile("d:ListUserGroupFor"&ApplicationName&".txt", ForWriting)





    Set mfFarm = CreateObject("MetaFrameCOM.MetaFrameFarm")

    mfFarm.Initialize 1

   

    For Each mfApp In mfFarm.Applications

    	'WScript.Echo mfApp.Appname & "


" & ApplicationName

       	if mfApp.Appname = ApplicationName Then

        	mfApp.LoadData 1



'WScript.Echo "Published Application - " & mfApp.Appname

objTextFile.Write "Application publiée - " & mfApp.Appname & vbcrlf

objTextFile.Write "    Groupes" & VbCrLf



NbTotalAppliGrp = 0

UsersInGroup = 0

    	For Each mfGrp In mfApp.Groups

    		UsersInGroup = Nbgroup (mfGrp.AAName,mfGrp.GroupName)

   

objTextFile.Write "        " & mfGrp.AAName & "  " & mfGrp.GroupName & " : " & UsersInGroup & VbCrLf



'WScript.Echo "UsersInGroup : " & UsersInGroup



NbTotalAppliGrp = NbTotalAppliGrp + UsersInGroup

'WScript.Echo "NbTotalAppliGrp : " & mfApp.Appname & " : " & NbTotalAppliGrp

       		Next



objTextFile.Write " " & VbCrLf

objTextFile.Write "    Utilisateurs" & vbcrlf

        	users=0

       

        	For Each mfUsr In mfApp.Users

objTextFile.Write "        " & mfUsr.UserName & VbCrLf

users=users+1

'WScript.Echo "users : " & users

        	Next

        		   

    		objTextFile.Write " " & VbCrLf

    		NbTotalAppli = NbTotalAppliGrp + users

    	    objTextFile.Write "Nombre total utilisateur : " & mfApp.Appname & " : " & NbTotalAppli & VbCrLf

End if

    Next

   

objTextFile.close

wscript.echo "FIN"



Function Nbgroup(Domain,GroupName)

Set group = GetObject ("WinNT://" & Domain & "/" & GroupName & ",group")

group.members.filter = Array("user")

x=0

For Each strMember in group.members

x=x+1

Next



Nbgroup = x

End Function



Si cela peut t'aider.
10

Pour lancer un script depuis ton poste il faut que tu installe la mfcom.

Pour l’installer utilise l’utilitaire suivant tekreg http://www.ishadow.com/Default.aspx?tabid=68