Da ein Moderator diesen Thread geschlossen hat und auf einen anderen Thread weiterverlinkt, de mit dem NICHTS zu tun hat, mache ich dieses Thema noch mal auf!
Ich wollte nämlich nur die Lösung bekannt geben, vielleicht interessiert das ja doch jemand (nicht wundern über die Subroutinen, ist ein Auszug aus einem längeren Script, funzt aber genau so):
Sub Main()
Dim oRootDSE
Dim oDomain
Set oRootDSE = GetObject("LDAP://RootDSE")
Set oDomain = GetObject("LDAP://" + oRootDSE.Get ("defaultNamingContext"))
Call SetDomainMode(oDomain)
Set oDomain = Nothing
Set oRootDSE = Nothing
End Sub
Sub SetDomainMode(oDomain)
Dim vMixed
Dim strMode
oDomain.Put "ntMixedDomain", 0
oDomain.setinfo
End Sub
Main
