[vbs] stratégie système gestion d'un parc informatique

stratégie système gestion d'un parc informatique [vbs] - Codes et scripts - Linux et OS Alternatifs

Marsh Posté le 21-03-2005 à 15:30:32    

    Nous voulons pouvoir gérer des ordinateurs dans plusieurs unités d'organisation, qui puissent hériter des sratégies système quand on les déplacent d'un OU à l'autre.
     Nous devons fournir un support permettant de creer des utilisateurs en lots (on nous fournit un fichier de 5000 noms et prénoms avec catagories de personnel).
     Pourriez vous nous aider à modifier le script suivant afin de répondre aux exigences ci dessus?
     Nous possedons pour ceci le script suivant:

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Script pour créer les utilisateurs dans Active Directory
' ATTENTION ! Le script doit obligatoirement avoir comme extention .vbs pour fonctionner !
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
 
wscript.echo "Le script commence. Cliquez OK pour continuer."
DIM arrRecord
Const ForReading = 1
 
 
''''''''''''''''''''''''''''''''''''''''''''''''
' Determine le chemin LDAP de votre domaine
' Rien dans cette partie ne doit etre changé
''''''''''''''''''''''''''''''''''''''''''''''''
 
Set Root = GetObject("LDAP://RootDSE" )
DomainPath = Root.Get("DefaultNamingContext" )
 
 
''''''''''''''''''''''''''''''''''''''''''''''''
' Obtenez l'indicateur à votre objet de domaine
' Rien dans cette partie ne doit etre changé
''''''''''''''''''''''''''''''''''''''''''''''''
 
Set Domain = GetObject("LDAP://" & DomainPath)
 
 
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Pour indiquer l'OU où mettre les utilisateurs, ici dans l’UO « eleves » se trouvant dans l’UO « ecole »
'
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
 
Set ou_HR = GetObject("LDAP://OU=comptes, " & DomainPath)
 
 
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' L'objet du fichier systeme est votre point d'entrée dans le fichier système
' Rien dans cette partie ne doit etre changé
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
 
set fso = CreateObject ("Scripting.FileSystemObject" )
 
 
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Pour retrouver le fichier texte dans C:\ADSI\eleves.txt
' Le nom et l'emplacement peuvent etre modifiés
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
 
Set tsTextFile = fso.OpenTextFile ("C:\utilisateur.txt", ForReading, False)
 
 
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Commence à lire le fichier rentré, début de la boucle
'
' Lit une ligne du fichier
'
' Rien dans cette partie ne doit etre changé
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
 
While Not tsTextFile.AtEndOfStream    ' START OF LOOP
strRecord = tsTextFile.ReadLine
 
 
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Découpe la ligne en plusieurs segments délimités par le délimiteur spécifié
' (Vous pouvez changer le délimiteur)
' mettre chaque segment dans une rangée nommée arrRecord
' Le premier segment est référencé par arrRecord(0)
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
 
 arrRecord = Split (strRecord, ":" )
 
 
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Création de l'utilisateur dans l'OU
' Rien dans cette partie ne doit etre changé
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''
 
Set adsUser = ou_HR.Create("user", "CN=" & arrRecord(2))
 
 
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Définit les sAMAccountName et userPrincipalName
' attribués pour chaque utilisateur
' Rien dans cette partie ne doit etre changé
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''
 
 adsUser.Put "sAMAccountName",  arrRecord(2)
 adsUser.Put "userPrincipalName", arrRecord(2)
 adsUser.SetInfo
 
 
''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Active le compte qui est désactivé par défaut
'
' Rajoute les attributs aditionnés listés dans le fichier texte
'
' Dans cet exemple, l'attribut de description sera
' rempli dans le second (1) segment
' et l'attribut du nom affiché est pris du troisième
' (2) segment
'
' Changez cette partie d'attributs add/change
' rentrés dans le fichier texte
''''''''''''''''''''''''''''''''''''''''''''''''''''''
 
 adsUser.AccountDisabled = False
 adsUser.sn = arrRecord(0)
 adsUser.GivenName = arrRecord(1)
 adsUser.homeDirectory = "\\etu-gtr127\HPLaserJ"
 adsUser.homeDrive = "HPLaserJ"
 
 
'''''''''''''''''''''''''''''''''''''''''''''''''
'ajout de cet utilisateur au groupe "eleves" de l'OU "eleves"
'''''''''''''''''''''''''''''''''''''''''''''''''''''
 
set grp = GetObject("LDAP://CN=eleves,OU=eleves,OU=ecole,DC=ecole,DC=com" )
grp.Add "LDAP://CN="&arrRecord(2)&",OU=eleves,OU=ecole,DC=ecole,DC=com"
 
 
'''''''''''''''''''''''''''''''''''''''''''''''''
' SetInfo flushes the attributes in cache to disk
' Rien dans cette partie ne doit etre changé
'''''''''''''''''''''''''''''''''''''''''''''''''
 
 adsUser.SetInfo
 
 
'''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Efface adsUser pour le prochain utilisateur
' Rien dans cette partie ne doit etre changé
'''''''''''''''''''''''''''''''''''''''''''''''''''''''
 
 Set adsUser = Nothing
Wend                                   ' END OF LOOP
 
 
''''''''''''''''''''''''''''''''''''''''''''''''
' Ferme le fichier texte
' Rien dans cette partie ne doit etre changé
''''''''''''''''''''''''''''''''''''''''''''''''
 
tsTextFile.Close
 
 
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Boite de dialogue finie
' Rien dans cette partie ne doit etre changé
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
 
wscript.echo "Eleves créés.", Chr(10),Chr(10),"Cliquez pour finir."

Reply

Marsh Posté le 21-03-2005 à 15:30:32   

Reply

Marsh Posté le 21-03-2005 à 15:37:18    

pas la bonne cat

Reply

Marsh Posté le 21-03-2005 à 15:37:39    

Je suis bien content.

Reply

Marsh Posté le 21-03-2005 à 15:48:46    

jake a écrit :

pas la bonne cat


je pense etre dans la bonne cat  
a quelle categories penses-tu???

Reply

Marsh Posté le 21-03-2005 à 15:50:54    

dragful a écrit :

je pense etre dans la bonne cat  
a quelle categories penses-tu???


A la bonne. Celle qui parle de Windows par exemple.

Reply

Marsh Posté le 21-03-2005 à 16:22:48    

:D

Reply

Marsh Posté le 21-03-2005 à 16:33:14    

Certes tu es ici dans 'codes et scripts' mais ici ce n'est que pour des OS alternatifs donc pas windows donc pas vbs
:)
vas plutot dans  
http://forum.hardware.fr/hardwaref [...] _sujet.htm
ou encore mieux
http://forum.hardware.fr/hardwaref [...] _sujet.htm

Reply

Marsh Posté le 21-03-2005 à 16:50:13    

ppf, faudrait se débarasser une fois pour toutes des sous catégories, ça ne fait que ramener des gens qui n'ont pas vu où ils arrivent...

Reply

Marsh Posté le 24-05-2005 à 09:48:18    

Edit : oups je me suis trompé de post  :whistle:


Message édité par bichtoubard le 24-05-2005 à 09:49:23
Reply

Marsh Posté le 24-05-2005 à 09:55:32    

lukefab a écrit :

ppf, faudrait se débarasser une fois pour toutes des sous catégories, ça ne fait que ramener des gens qui n'ont pas vu où ils arrivent...


déjà débattu :o


---------------
uptime is for lousy system administrators what Viagra is for impotent people - mes unixeries - github me
Reply

Sujets relatifs:

Leave a Replay

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