Bonjour à tous.
 
Je ne sais pas si ce problème a déjà été posé, si c'est le cas, j'ai du mal chercher:
 
Je cherche un moyen d'envoyer un message (style netsend) à tous les utilisateurs d'un groupe AD.
 
Par exemple j'utilise DameWare qui liste bien tous les groupes AD, mais qui ne permet pas d'envoyer de messages aux groupes.
 
j'espère avoir été clair.  
 
Merci à tous.

salut,  
tu devrais regarder les vidéos sur dmessage.com, je crois que c exactement ce que tu recherches

Ah oui! c'est exactement ça que je cherche!
mais si tu pouvais me trouver la meme chose en libre, ce serait encore mieux

ha ça j'avoue ça va être plus chaud mais si j'en trouve un je te fais signe (j'en cherche un aussi pour faire la même chose haha)

lool, ça va, ça me rassure de voir que je suis pas le seul à chercher...
en fait je suis en train de me dire que ça doit etre possible de le faire en PHP (récupérer les groupes AD en php, ça doit etre possible), mais ..j'ai la flemme

Tu peux pas scripter la chose du type:
Si utilisateur appartient a tel groupe => Envoyer le message via net send?

Ba en vbscript ca se fait bien :
Connexion sur AD.(ADSI)
Récupération de tous les objets de type groupe :
Set objConnection = CreateObject("ADODB.Connection" )
objConnection.Open "Provider=ADsDSOObject;"
 
Set objCommand = CreateObject("ADODB.Command" )
objCommand.ActiveConnection = objConnection
objCommand.CommandText = "<LDAP://dc=mon,dc=domaine,dc=test>;(objectCategory=Group);distinguishedName,primaryGroupToken;subtree"  
Set objRecordSet = objCommand.Execute
   
Do Until objRecordset.EOF
    WScript.Echo objRecordset.Fields("distinguishedName" )  
    objRecordset.MoveNext
Loop
 
objConnection.Close
Choix déroulant des groupes
Listage des membres du groupe sélectioné :
strContainer = ""
strName = "EzAdGroup"
On Error Resume Next
'***********************************************
'*          Connect to an object                 *
'***********************************************
Set objRootDSE = GetObject("LDAP://rootDSE" )
If strContainer = "" Then
  Set objItem = GetObject("LDAP://" & _
    objRootDSE.Get("defaultNamingContext" ))
Else
  Set objItem = GetObject("LDAP://cn=" & strName & "," & strContainer & "," & _
    objRootDSE.Get("defaultNamingContext" ))
End If
'***********************************************
'*         End connect to an object           *
'***********************************************
 
WScript.Echo VbCrLf & "** Member Properties Page**"
WScript.Echo "** (MultiValued Attributes) **"
strmember = objItem.GetEx("member" )
WScript.Echo "member:"
For Each Item in strmember
 WScript.Echo vbTab & Item
Next
 
Exécution du Net Send par :
StrUser ="toto"
Set WshShell = CreateObject("WScript.Shell" )
Set oExec = WshShell.Exec("net send " & StrUser & " Ton message" )
 
En dehor de l'exec du net send, toutes les autres lignes ont étés trouvées sur le site Microsoft en quelques clics, reste plus qu'a utiliser un Array pour stocker la liste des groupes et le présenter en listBox pour choisir le groupe à lister pour exécuter dans la boucle "For Each Item in strmember" le net send. Là je te laisses faire ou alors je te comunique mon tarif horaire lol ;-)

euh netsend il envoie un message à une machine à ce que je sache, pas à un utilisateur donc il faut faire un lookup pour savoir quel utilisateur utilise quelle machine je pense.

Non, Net Send envoie un message à tout enregistrement Netbios de type <03> ce qui est le cas d'une part du nom netbios de la machine mais aussi du login du user connecté : executes un nbtstat -A xxx.xxx.xxx.xxx (IP) d'une machine et tu veras le user apparait avec ce type d'enregistrement.
 
Pour plus d'infos  :
http://support.microsoft.com/kb/168893/fr

alors faut faire gaffe à ce que le service affichage des messages soit bien dispo (désactivé sous xp sp2 et plus dispo sous vista)