Se connecter avec
S'enregistrer | Connectez-vous

Test sur le nom d'un groupe

Dernière réponse : dans Programmation

Bonjour à tous je chercher à créer un script VB dans le quel selon l'appartenance à un groupe s'installe telle ou telle imprimante. J'ai le test avec un select Case, j'ai le bout de script pour installer l'imprimante mais je n'arrive pas à gérer l'objet "groupe.name".
Quelqu'un peut m'aider svp ?
Merci d'avance.

  1. Dim net
    

  2. Set net = CreateObject("WScript.Network")
    

  3. Select Case UserGroup.Name ( j'ai une erreur à cette ligne error : objet required: 'UserGroup' )
    

  4.     Case "PSM_PRT_INFO"
    

  5.          net.AddWindowsPrinterConnection "\\adc0001\PSM_PRT_INFO01"
    

  6. End Select


P.S. Désolé Zeb

Autres pages sur : test nom groupe

Lassé par la pub ? Créez un compte
Expert Programmation

Qu'est-ce que UserGroup ?
Tu ne l'as défini nulle part, et ça ne fait pas partie des objets du VBS !

Qu'est-ce que tu appelles le groupe ? Veux-tu dire le domaine ?
Dans ce cas, cela s'écrit
net.UserDomain

J'ai un domaine Active directory dans lequel j'ai des groupes d'utilisateur et selon que l'appartenance à un groupe les utilisateurs devront avoir telles ou telles imprimantes.
Donc je cherche comment définir l'objet "groupe" ( conteneur d'utilisateur ).
Par exemple si l'utilisateur X est dans le groupe Compta alors il aura l'imprimante Compta1 et compta2.
J'ai essayé de partir du script suivant :

http://www.presence-pc.com/forum/ppc/Programmation/scri...

mais j'ai un soucis avec l'objet UserGroup.Name 

  1. Private Function IsMember(groupName)
    

  2.  
  3.   Set wshnetwork = CreateObject("WScript.Network")
    

  4.   domain = wshnetwork.UserDomain
    

  5.   user = wshnetwork.UserName
    

  6.   flgIsMember = false
    

  7.   Set userObj = GetObject("WinNT://" & domain & "/" & user & ",user")
    

  8.   For Each grp In userObj.Groups
    

  9.     If StrComp(grp.Name, groupName, vbTextCompare) = 0 then
    

  10.       flgIsMember = true
    

  11.       Exit For
    

  12.     End If
    

  13.   Next
    

  14.   IsMember = flgIsMember
    

  15.   Set userObj = nothing
    

  16.   Set wshnetwork = nothing
    

  17. End Function
    

  18.  
  19. Set net = CreateObject("WScript.Network")
    

  20. If IsMember("PSM_PRT_INFO") then
    

  21. 	net.AddWindowsPrinterConnection "\\server\Printer01"
    

  22. 	net.AddWindowsPrinterConnection "\\server\Printer02"
    

  23. 	net.AddWindowsPrinterConnection "\\server\Printer03"
    

  24. End if
    

  25.  
  26. 'If IsMember("GG_COMPTA") then
    

  27. '	res.MapNetworkDrive "G:", "\\SERVEUR\ECHANGES\COMPTA"
    

  28. 'End if
    

  29.  
  30. wscript.quit
Lassé par la pub ? Créez un compte

Créer un nouveau sujet