comment déplacer des comptes ordinateurs automatiquement ?
comment déplacer des comptes ordinateurs automatiquement ? - Logiciels d'entreprise - Systèmes & Réseaux Pro
Marsh Posté le 30-11-2012 à 11:42:50
Pour l'OS c'est facile, pour l'IP tu l'as pas il faut donc faire une résolution IP via le DNS
Marsh Posté le 03-12-2012 à 13:31:56
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 
.
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
Marsh Posté le 30-11-2012 à 10:51:43
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 :
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