Flytte computere i et Active Directory

Jeg har rodet mig ud i at skulle kigge på at lave en service, der jævntligt flytter computere rundt i et AD. Der er allerede lavet et VBS script, som jeg skal have konverteret til noget Delphi.

Jeg leder ikke efter en komplet løsning (selvom det ville være rart :o) men et eksempel eller to på hvordan man kan kommer i kontakt med et AD.

VBS koden er listet her, så der er en mulighed for at i kan se hvad jeg skal lave:

intCount=0

Do While intCount < 7

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://cn=computers,dc=undervisning,dc=local' WHERE objectCategory='computer' " & _
        "AND name = 'hg*'"
Set objRecordSet = objCommand.Execute

objRecordSet.MoveFirst
Do Until objRecordSet.EOF
    strADsPath = objRecordSet.Fields("ADsPath").Value
    Set objOU = GetObject("LDAP://OU=computere,OU=HG,OU=skoler,dc=undervisning,dc=local")
    intReturn = objOU.MoveHere(strADsPath, vbNullString)
    objRecordSet.MoveNext
Loop

WScript.Sleep 60000
Loop


Jeg håber nogen kan hjælpe.