[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:48:46
Reply
Marsh Posté le 21-03-2005 à 15:50:54
| dragful a écrit : je pense etre dans la bonne cat |
A la bonne. Celle qui parle de Windows par exemple.
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
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...
Marsh Posté le 24-05-2005 à 09:48:18
Edit : oups je me suis trompé de post 
Message édité par bichtoubard le 24-05-2005 à 09:49:23
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 
---------------
uptime is for lousy system administrators what Viagra is for impotent people - mes unixeries - github me
Sujets relatifs:
- Linux // Gestion de la Memoire
- [LOGICIELS] Cherche soft pour gestion de projet
- prog de gestion d'une bibliotheque
- Wine : freeze de X et du système
- Gnome, a quand une gestion de la transparence intégrée ?
- Installer linux chez mon père, futur complet débutant en informatique?
- [DEBIAN] Faire évoluer un systeme 32bits vers du 64bits
- cvs gestion des droits sur different projets
- Partitionnement pour un système Linux.
- [Debian] Gestion des autorisations
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 lUO « eleves » se trouvant dans lUO « 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."