comment déplacer des comptes ordinateurs automatiquement ?

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : comment déplacer des comptes ordinateurs automatiquement ?

masterconker

Bonjour tout le monde,

Donc voilà, je vais vous expliquer tout depuis le début. Je suis actuellement en stage dans une entreprise dans laquelle j'ai pour projet d'installer et paramétrer un serveur WSUS pour gérer les mises à jour des postes clients windows xp et windows 7. Donc pour le serveur tout est ok, il est paramétré et fonctionne bien. J'ai créé deux groupes d'ordinateurs (windows 7 et un windows xp) dans mon serveur WSUS (qui n'ont rien à voir avec l'ad).

Donc pour pointer vers mes groupes wsus je dois utiliser deux gpo différentes (cette fois-si dans l'ad).

Il y a déjà des OU de créées pour ranger les postes (win7 et winxp),mais malheureusement elles n'ont jamais été utilisée.

-->Computers

-->OU_Poste de travail
-->OU Windows 7
-->OU Windows xp

Pour l'instant les ordinateurs sont encore rangés dans l'OU computers (par défaut). J'aimerais donc les faire basculer dans les deux OU xp et 7 de manière automatique en fonction de l'OS et en choisissant une plage d'ip a exclure(des serveurs tournent sous xp).

J'ai déjà fais quelques recherches pour un script VBS mais je n'ai pas trouver comment filtrer par rapport a son OS et la plage ip a exclure. Je dois avouer que je ne connais rien au VBS car je n'en ai jamais fais en cour.

pour déplacer avec le nom du pc :

Citation :

On Error Resume Next

Const ADS_SCOPE_SUBTREE = 2

Set objConnection = CreateObject("ADODB.Connection" )
Set objCommand = CreateObject("ADODB.Command" )
objConnection.Provider = "ADsDSOObject"
objConnection.Open "Active Directory Provider"
Set objCommand.ActiveConnection = objConnection

objCommand.Properties("Page Size" ) = 1000
objCommand.Properties("Searchscope" ) = ADS_SCOPE_SUBTREE

objCommand.CommandText = _
"SELECT ADsPath FROM 'LDAP://dc=fabrikam,dc=com' WHERE objectCategory='computer' " & _
"AND name='atl-ws-01'"
Set objRecordSet = objCommand.Execute

objRecordSet.MoveFirst
Do Until objRecordSet.EOF
strADsPath = objRecordSet.Fields("ADsPath" ).Value
Set objOU = GetObject("LDAP://OU=Research,DC=fabrikam,DC=com" )
intReturn = objOU.MoveHere(strADsPath, vbNullString)
objRecordSet.MoveNext
Loop

J’espère que je suis compréhensible. Si vous avez des idées n'hésitez pas !

Je vous remercie d'avance .

Publicité

Je@nb

Modérateur
Kindly give dime

Pour l'OS c'est facile, pour l'IP tu l'as pas il faut donc faire une résolution IP via le DNS

masterconker

Bon finalement, ils ne sont plus très chaud pour que j’utilise un script sur l'ad :s. Je te remercie de ta réponse Je@nb .

FORUM HardWare.fr

Systèmes & Réseaux Pro

Logiciels d'entreprise

comment déplacer des comptes ordinateurs automatiquement ?

Sujets relatifs
[OK] Donner des droits d'admin automatiquement	Question FTP: comptes multiples et droits d'accès
NETOPIA 3386 et VPN PPTP qui se monte automatiquement	Désactiver le glisser/déplacer des utilisateurs AD
Windows 2008 R2 - Gestion de 250 comptes eleves	Copier/déplacer certificat IIS - "Classe non enregistrée"
créer des comptes e-mails
Plus de sujets relatifs à : comment déplacer des comptes ordinateurs automatiquement ?

Page générée en 0.023 secondes