VBScript AD durchsuchen und Verzeichnisleichen löschen

' ------ SCRIPT CONFIGURATION ------  
strDomainDN = "<DomainDN>"    ' e.g. dc=rallencorp,dc=com  
' ------ END CONFIGURATION ---------  

strBase   =  "<LDAP://" & strDomainDN & ">;"  
' To search the whole forest using the global catalog, uncomment the following line:  
' strBase   =  "<GC://" & strDomainDN & ">;"  

strFilter = "(&(objectclass=user)(objectcategory=person));"   
strAttrs  = "name;"  
strScope  = "subtree"  

set objConn = CreateObject("ADODB.Connection")  
objConn.Provider = "ADsDSOObject"  
objConn.Open "Active Directory Provider"  
set objRS = objConn.Execute(strBase & strFilter & strAttrs & strScope)
objRS.MoveFirst
while Not objRS.EOF
    Wscript.Echo objRS.Fields(0).Value
    objRS.MoveNext
wend

Const strDomainOU		= "LDAP://OU=test,DC=ads,DC=test,DC=local"  
Const strHomeDirRoot    	= "\\server\home$\"  


' Bind to Domain. Create Array of Users.  

Set objDomain = GetObject(strDomainOU)
objDomain.Filter=Array("user")  

' Output error if bind fails.  
If Err.Number <> vbEmpty Then
    WScript.Quit
End If

set objFileSystem = CreateObject("Scripting.FileSystemObject")  
set objFolder = objFileSystem.GetFolder(strHomeDirRoot)

'Check every folder for existing user  

For Each objSubFolder in objFolder.SubFolders

    bool = false   			'No existing user   

     For Each objUser in objDomain	
         If objSubFolder.Name=objUser.sAMAccountName then
         bool=true					        'Folder match User   
         End If
     Next    ' End of objUser  
        
     'check for matched user   
     if not bool then
        set objDeleteFileSystem = CreateObject("Scripting.FileSystemObject")   
        set objDeleteFolder = objFileSystem.GetFolder(strHomeDirRoot&objSubFolder.Name)
'	Wscript.Echo("Folder gelöscht:" & objDeleteFolder.Name)  
        objDeleteFolder.Delete true     
     End If


Next    ' End of objSubFolder