Save this VBScript snippet to Whatever.vbs. Create a text file with the name of each server per line, like:
server1
server2
....
Replace "C:\servers.txt" with the name of that text and run the script from a command prompt, like:
cscript /nologo Whatever.vbs
Here's the code:
serverList = "C:\servers.txt"
Set fso = CreateObject("Scripting.FileSystemObject")
servers = Split(fso.OpenTextFile(serverList, 1, False).ReadAll, vbCrLf)
For Each servername In servers
homePath = "\\" & servername & "\home"
WScript.StdOut.WriteLine "Checking '" & homePath & "'..."
If fso.FolderExists(homePath) Then
On Error Resume Next
For Each userFolder In fso.GetFolder(homePath).SubFolders
Err.Clear
WScript.StdOut.Write vbTab & "Emptying '" & userFolder & "'..."
fso.DeleteFile userFolder & "\*.*", True
For Each subFolder In fso.GetFolder(userFolder).SubFolders
fso.DeleteFolder subFolder, True
Next
If Err.Number = 0 Then
WScript.StdOut.WriteLine "Success!"
Else
WScript.StdOut.WriteLine "Failed."
End If
Next
On Error GoTo 0
End If
Next
Let me know how it goes.