Delete user folders from multiple servers

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

Delete user folders from multiple servers

Logged in as: Guest

arrSession:exec spGetSession 2,2,61865

	Active Users: There are 0 members and 0 guests.
	Users viewing this topic: none

Printable Version

All Forums >> [Scripting] >> WSH & Client Side VBScript >> Delete user folders from multiple servers
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Message

<< Older Topic Newer Topic >>

Delete user folders from multiple servers - 6/25/2008 1:55:28 PM

gregt812

Posts: 1
Score: 0
Joined: 6/25/2008
Status: offline

I am not sure what I am doing wrong here. I am trying to delete a users folder form multiple servers but I keep getting the "Path not found" error.
Here is what I have so far:
Any suggestions?

user = "jsmith"
'********************************************************************************
target2 = "\\server02\d$\documents and settings\"
target3 = "\\server03\d$\documents and settings\"
target4 = "\\server04\d$\documents and settings\"
target6 = "\\server06\d$\documents and settings\"
target7 = "\\server07\d$\documents and settings\"
target8 = "\\server08\d$\documents and settings\"
target9 = "\\server09\d$\documents and settings\"
target10 = "\\server10\d$\documents and settings\"
target11 = "\\server11\d$\documents and settings\"
target12 = "\\server12\d$\documents and settings\"
target13 = "\\server13\d$\documents and settings\"
target14 = "\\server14\d$\documents and settings\"
target15 = "\\server15\d$\documents and settings\"
target16 = "\\server16\d$\documents and settings\"
target17 = "\\server17\d$\documents and settings\"
target18 = "\\server18\d$\documents and settings\"
target19 = "\\server19\d$\documents and settings\"
target20 = "\\server20\d$\documents and settings\"
target21 = "\\server21\d$\documents and settings\"
target22 = "\\server22\d$\documents and settings\"
target23 = "\\server23\d$\documents and settings\"
target24 = "\\server24\d$\documents and settings\"
target25 = "\\server25\d$\documents and settings\"
target26 = "\\server26\d$\documents and settings\"
target27 = "\\server27\d$\documents and settings\"
target30 = "\\server30\d$\documents and settings\"
target31 = "\\server31\d$\documents and settings\"
target32 = "\\server32\d$\documents and settings\"
target33 = "\\server33\d$\documents and settings\"
target34 = "\\server34\d$\documents and settings\"

'*********************************************************************************

Set fso = CreateObject("Scripting.FileSystemObject")

'*********************************************************************************
If fso.FolderExists(target2 & user) Then
fso.DeleteFolder target2 & user, True
End If
If fso.FolderExists(target3 & user) Then
fso.DeleteFolder target3 & user, True
End If
If fso.FolderExists(target4 & user) Then
fso.DeleteFolder target4 & user, True
End If
If fso.FolderExists(target5 & user) Then
fso.DeleteFolder target5 & user, True
End If
If fso.FolderExists(target6 & user) Then
fso.DeleteFolder target6 & user, True
End If
If fso.FolderExists(target7 & user) Then
fso.DeleteFolder target7 & user, True
End If
If fso.FolderExists(target8 & user) Then
fso.DeleteFolder target8 & user, True
End If
If fso.FolderExists(target9 & user) Then
fso.DeleteFolder target9 & user, True
End If
If fso.FolderExists(target10 & user) Then
fso.DeleteFolder target10 & user, True
End If
If fso.FolderExists(target11 & user) Then
fso.DeleteFolder target11 & user, True
End If
If fso.FolderExists(target12 & user) Then
fso.DeleteFolder target12 & user, True
End If
If fso.FolderExists(target13 & user) Then
fso.DeleteFolder target13 & user, True
End If
If fso.FolderExists(target14 & user) Then
fso.DeleteFolder target14 & user, True
End If
If fso.FolderExists(target15 & user) Then
fso.DeleteFolder target15 & user, True
End If
If fso.FolderExists(target16 & user) Then
fso.DeleteFolder target16 & user, True
End If
If fso.FolderExists(target17 & user) Then
fso.DeleteFolder target17 & user, True
End If
If fso.FolderExists(target18 & user) Then
fso.DeleteFolder target18 & user, True
End If
If fso.FolderExists(target19 & user) Then
fso.DeleteFolder target19 & user, True
End If
If fso.FolderExists(target20 & user) Then
fso.DeleteFolder target20 & user, True
End If
If fso.FolderExists(target21 & user) Then
fso.DeleteFolder target21 & user, True
End If
If fso.FolderExists(target22 & user) Then
fso.DeleteFolder target22 & user, True
End If
If fso.FolderExists(target23 & user) Then
fso.DeleteFolder target23 & user, True
End If
If fso.FolderExists(target24 & user) Then
fso.DeleteFolder target24 & user, True
End If
If fso.FolderExists(target25 & user) Then
fso.DeleteFolder target25 & user, True
End If
If fso.FolderExists(target26 & user) Then
fso.DeleteFolder target26 & user, True
End If
If fso.FolderExists(target27 & user) Then
fso.DeleteFolder target27 & user, True
End If
If fso.FolderExists(target30 & user) Then
fso.DeleteFolder target30 & user, True
End If
If fso.FolderExists(target31 & user) Then
fso.DeleteFolder target31 & user, True
End If
If fso.FolderExists(target32 & user) Then
fso.DeleteFolder target32 & user, True
End If
If fso.FolderExists(target33 & user) Then
fso.DeleteFolder target33 & user, True
End If
If fso.FolderExists(target34 & user) Then
fso.DeleteFolder target34 & user, True
End If
'*************************************************************************

Post #: 1

RE: Delete user folders from multiple servers - 6/25/2008 2:29:08 PM

dm_4ever

Posts: 2434
Score: 38
Joined: 6/29/2006
From: Orange County, California
Status: offline

This would be something you should use a loop to accomplish.

(not tested)

_____________________________

dm_4ever

My philosophy: K.I.S.S - Keep It Simple Stupid
Read Me: http://www.visualbasicscript.com/m_24727/tm.htm
Frequently Asked Stuff: http://www.visualbasicscript.com/m_47117/tm.htm

(in reply to gregt812)

Post #: 2

If you found our site useful please link to us <a href="http://www.visualbasicscript.com">VisualBasicScript.com</a>.

All Forums >> [Scripting] >> WSH & Client Side VBScript >> Delete user folders from multiple servers

Page: [1]

Jump to:

New Messages	No New Messages
Hot Topic w/ New Messages	Hot Topic w/o New Messages
Locked w/ New Messages	Locked w/o New Messages

Post New Thread

Reply to Message

Post New Poll

Submit Vote

Delete My Own Post

Delete My Own Thread

Rate Posts