Move Folder Script

[quinla01]

Hi guys, I'm not a scripter however someone kindly wrote the below script for me a while back. It allows me to enter a username (via input box) and moves the related home directory from the user Home Directroy Folder to a subfolder named "disabled folders". I'm now in the situation were i have a text file of 900 users. I was hoping somone could help me ammend the script to use the text file as username input.

==================================

Dim strUserName, objFSO

strUserName = ""
strUserName = InputBox("Enter User Name", _
"Migrate User Profile", strUserName)

Set objFSO = CreateObject("Scripting.FileSystemObject")


IF objFSO.FolderExists("\\sspct-fs01\users$\"&strUserName) THEN

IF Not objFSO.FolderExists("\\sspct-fs01\users$\disabledusers\Mig."& strUserName) Then

objFSO.MoveFolder "\\sspct-fs01\users$\"& strUserName , "\\sspct-fs01\users$\disabledusers\Mig."& strUserName

'WScript.Echo "The profile has been renamed: Mig."&strUserName & " and moved to the location \\sspct-fs01\users$\disabledusers"

ELSE WScript.Echo "The folder del."& strUserName & _
" Already exist in the within the folder \\sspct-fs01\profiles$\MigratedProfiles.Manually delete the older profile and try again"

End If

ELSE

WScript.Echo "The profile folder " &strUserName & " does not exit"

End If



=================================


Thanks Guys

Andy

 

[PHV]

To discover how to read a text file:

http://msdn.microsoft.com/library/en-us/script56/html/af4423b2-4ee8-41d6-a704-49926cd4d2e8.asp

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[quinla01]

Its a bit beyond me that one.,,

Thanks Anyway

 

[quinla01]

The other thing that would help would be for the script not to close when i click ok (once i enter text into the input box) that way i could repeat the process over and over again.

thanks
Andy

 

[mrmovie]

do while loop, take a look at the url PHV suggests, it is not that hard honest. you just need to take the time to really really read it and really really read the code

 

[PHV]

Seems you need to have a look here too:

http://msdn.microsoft.com/library/en-us/dnanchor/html/Scriptinga.asp

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886