Script en WSH | Active Directory et GPO

Script en WSH | Active Directory et GPO - VB/VBA/VBS - Programmation

Marsh Posté le 22-10-2004 à 14:46:17    

Javais initialement posé mes questions sur le forum administration. Mais je pense que les questions que j'ai mnt sont plus en rapport avec la programmation
 
Pour résumer, je souhaite faire un script qui créé une UO, un groupe, des utilisateurs, importe une GPO, et crée le lien sur l'UO désiré
 
J'ai presque terminé, il ne me reste plus qu'a faire le lien entre la GPO et l'UO.
 
Pour cela j'ai ce script, mais il n'est pas encore au point :
 

Code :
  1. Set DLL=CreateObject("iadstools.dcfunctions" )
  3. Set oRoot = GetObject("LDAP://rootDSE" )
  4. Set SDOU = GetObject("LDAP://" & oRoot.Get("defaultNamingContext" ))
  6. nom_serveur=""
  7. nom_domaine=""
  8. 'Result=DLL.GetGPOs("&nom_domaine&","&nom_serveur&" )
  9. Result=DLL.GetGPOs("DOMAINE.FR","SRV2000" )
  10. if Result > 0 then
  11. AskGUID="GPO TSE"
  12. if not askGUID="GPO TSE" then
  13. else
  14.  for i=1 to result
  15.   if lcase(DLL.gponame(i))=lcase(askGUID) then
  16.    currentGPLIST=SDOU.get("gpLink" )
  18.    currentGPLIST=currentGPLIST & "[LDAP://CN=" & DLL.gpoguid(i) &
  19. ",CN=Policies,CN=System," & DLL.getdefaultnamingcontext("SRV2000" ) & ";0]"
  20. msgBox currentGPLIST
  22.    SDOU.put "gpLink",currentGPLIST
  24.    SDOU.SetInfo
  26.  Exit For
  27.   end if
  28.  next
  29. end if
  30. end if


 
Mon probleme : la GPO est bien linké, mais sur le domaine et non sur l'UO. Est ce que quelqu'un sait comment positionner le lien sur l'UO TEST TSE
 
Autre probleme, j'aimerai recuperer automatiquement le nom de domaine avec l'extension (variable %USERDNSDOMAIN%) et le nom du serveur de facon a ne pas avoir a le taper (pour le moment c'est en dur dans le code)
 
J'espere que quelqu'un aura une idée :wahoo:

Reply

Marsh Posté le 22-10-2004 à 14:46:17   

Reply

Marsh Posté le 29-10-2004 à 08:37:29    

pour récupérer les variables d'environement, essaye ca:

Code :
  1. Server     = Ucase(WshShell.ExpandEnvironmentStrings ("%LogonServer%" ))
  2.    UserName   = Ucase(WshShell.ExpandEnvironmentStrings ("%UserName%"   ))
  3.    Domain     = Ucase(WshShell.ExpandEnvironmentStrings ("%UserDomain%" ))


La fonction Ucase met en majuscule. Ca a pas l'aire comme ca, mais si tu fais un IF, vb est CaseSensitive, donc autant tout mettre en majuscule (ou en minuscule, a choix).
 
Sinon, si tu fais simplement  

Code :
  1. variable = %username%


ca fonctionne aussi, mais c'est moins "propre"...


Message édité par helvetik le 29-10-2004 à 08:38:15
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed