Hi,
versuchs mal hiermit:
Set Con = CreateObject(ADODB.Connection)
Set Com = CreateObject(ADODB.Command)
Con.Provider = ADsDSOObject
Con.Open Active Directory Provider
Set Com.ActiveConnection = Con
' XXX und YYY bitte entsprechend deiner Domain anpassen.
' Beispiel:
' AD-Domain domain.com
' XXX = domain
' YYY = com
Com.CommandText = Select Name from->LDAP://DC=XXX,DC=YYY' where objectClass='computer'
Com.Properties(Timeout) = 30
Set RecordSet = Com.Execute
RecordSet.MoveFirst
Do Until RecordSet.EOF
strComputer = RecordSet.Fields(Name).Value
Set Reg=GetObject(winmgmts:{impersonationLevel=impersonate}!\\ &_
strComputer & \root\default:StdRegProv)
strKeyPath = ___Hier dein Schlüsselpfad___
Reg.DeleteKey HKEY_LOCAL_MACHINE, strKeyPath
RecordSet.MoveNext
Loop
Das Script bekommt die Computernamen aus dem AD, und löscht dann den entsprechenden Key aus der Reg der Rechner.