Bonjour
 
Je souhaiterai savoir si il existe ou si cela est possible un script qui rangera automatiquement une machine dans la bonne OU.
 
Exemple :
Une machine Windows XP arrive dans l'OU Stations (elle vient d'étre enrengistrée dans la domaine, elle arrive dans l'OU par défaut), et automatiquement elle est déplacée dans la sous OU WXP.....
 
1. est ce possible ?
2. Si oui, ou je peut trouver des bouts de code qui me permette de commencer mon script ?
3. Comment ca se passe ???? c'est un filtre WMI, c'est une GPO sur l'OU etc etc.....
 
PS : je suis une grosse bille en scripting.....
Désolé.....
 
Merci de votre aide

 
 
Pas qu'en scripting apparemment, en orthographe aussi....
 
exemple :  je peut trouver des bouts de code qui me permette.....

Merci de ton aide

Regarde sur le script center de technet tu as des exemples il y en a peut être pour récupérer la version de l'OS, pour déplacer des machines d'OU en OU

Déja cherché !
 
Alors j'ai trouvé cela sur HeysGuy :

On Error Resume Next
 
Const ADS_SCOPE_SUBTREE = 2
 
objOU = GetObject("LDAP://ou=Finance,dc=fabrikam,dc=com" )
 
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
    objOU.MoveHere strADsPath, vbNullString
    objRecordSet.MoveNext
Loop
 
Comme je suis une grosse bille en sripting, j'ai remplacé   "AND Name='atl-ws-01'" par "AND Operatingsystem='Windows XP Professional'"
 
Mais bon evidemment, ca marche pas !
 

 
 
Ouai je l'ai trouvé mais c'est extrémement léger :
 
Set objNewOU = GetObject("LDAP://OU=Finance,DC=fabrikam,DC=com" )
 
Set objMoveComputer = objNewOU.MoveHere _
    ("LDAP://CN=atl-pro-03,CN=Computers,DC=fabrikam,DC=com", "CN=atl-pro-03" )
 
 
 
http://www.microsoft.com/technet/s [...] x?mfr=true

l'un fait une boucle l'autre juste un déplacement

Set objNewOU = GetObject("LDAP://OU=Finance,DC=fabrikam,DC=com" )
 
c'est bien les bon nom?
ton serveur a bien se nom?