Grazie LeleFT!
Scusa, non avevo letto il regolamento e non ero al corrente di queste norme.

Copio lo script sul quale sto cercando di lavorare, premetto che non l'ho creato io e che non so cosa voglia dire gran parte di ciò che è stato fatto.
Io mi sto concentrando sulla Sub delete_profiles, che se ho ben capito dovrebbe cancellare le cartelle che nel loro nome hanno come quarta lettera "T" (anche se non credo che Ucase sia la variabile giusta).
La funzione check_ou dovrebbe verificare che il nome della cartella sia presente in una specifica OU di Active Directory come utente.

Grazie ancora!
Ciao!

Dim fso, wshshell, wshnet
Dim script_name_full, script_path
Set fso = CreateObject("Scripting.FileSystemObject")
Set wshshell = CreateObject("WScript.Shell")
Set wshnet = CreateObject("Wscript.Network")
' Script path without closing \
script_name_full = WScript.ScriptFullName
script_path = fso.GetParentFolderName(script_name_full)
' Set variables
Delete_profiles("\\NOME_SERVER\f$\USERPROFILES\")
'---------------------------------------------------------------------------------------------
' Subs / Functions
'---------------------------------------------------------------------------------------------
Sub Delete_Content(s_start_folder, s_folders, s_excl)
Dim Dir, Dirs
On Error Resume Next
Set Dirs = fso.GetFolder(s_start_folder).Subfolders
For Each Dir In Dirs
' Check for exclusion
excl = False
For y = 0 To UBound(s_excl)
If LCase(Dir.name) = LCase(s_excl(y)) Then
excl = True
Exit For
End If
Next
If Not excl Then ' Go ahead only with not excluded folders
' Check for target folder
For x = 0 To UBound(s_folders)
If LCase(Dir.name) = LCase(s_folders(x)) Then
On error resume Next
fso.DeleteFolder Dir.path & "\*", True
fso.DeleteFile Dir.path & "\*", True
On Error goto 0
End If
Next
' Restart sub for subfolders
Delete_Content Dir, s_folders, s_excl
End If
Next
End Sub
'---------------------------------------------------------------------------------------------
Sub Delete_profiles(s_start_folder)
Dim Dir, Dirs
Set Dirs = fso.GetFolder(s_start_folder).Subfolders
For Each Dir In Dirs
If Ucase(Mid(Dir,4,1)) = "T" Then
fso.DeleteFolder Dir, True
End If

Next
End Sub
'---------------------------------------------------------------------------------------------
Function check_ou(s_ou_name)
Const ADS_SCOPE_SUBTREE = 2
check_ou = False

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://ou=Users,ou=Resources,ou=XXX,ou=XXXXXXXX,dc=XXXXXX XX,dc=XXX,dc=corp' WHERE objectCategory='organizationalUnit'"
Set objRecordSet = objCommand.Execute

objRecordSet.MoveFirst
Do Until objRecordSet.EOF
If Instr(Ucase(objRecordSet.Fields("ADsPath").Value), UCase(s_ou_name)) <> 0 Then
check_ou = true
Exit Do
' Else
' check_ou = check_ou & objRecordSet.Fields("ADsPath").Value & VbCrLf
End If

objRecordSet.MoveNext
Loop
End Function