VB を使用して AD で無効なアカウントを検索したい (90 日以上経過し、ホーム ディレクトリを削除する)。次のスクリプトは正常に機能しますが、再帰的には機能しません:(
誰でもこれを機能させるのを助けることができますか? どんな助けでも彼は高く評価します:)
Option Explicit
Dim objOU, objUser, objFSO, strHomeDirectory, objTextFile
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objOU = GetObject("LDAP://OU=users,DC=corp,DC=contoso,DC=com")
objOU.Filter = Array("user")
For Each objUser In objOU
if ( objuser.useraccountcontrol = 514 Or objuser.useraccountcontrol = 66050 ) And DateDiff("d", objUser.WhenChanged, Now) > 90 Then
' Retrieve home directory.
strHomeDirectory = objUser.homeDirectory
' Replace %username% with value of sAMAccountName attribute.
strHomeDirectory = Replace(strHomeDirectory, "%username%", objUser.sAMAccountName)
' Delete the folder.
objFSO.DeleteFolder strHomeDirectory
else
wscript.sleep 100
End If
Next