Script to move folder

[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

[tguy]

Try replacing the Inputbox code with this:

Set objArgs = WScript.Arguments

Const ForReading = 1

Set objDictionary = CreateObject("Scripting.Dictionary")

Set objFSO = CreateObject("Scripting.FileSystemObject")

Set objTextFile = objFSO.OpenTextFile(objArgs(0), ForReading)

i = 0

Do While objTextFile.AtEndOfStream <> True

strNextLine = objTextFile.Readline

objDictionary.Add i, strNextLine

i = i + 1

Loop

Then pipe the file name of your text file to the end of the script execution. For example. Users.vbs Users.txt

[quinla01]

Tried it however it tells me that the directory already exists. Is the main code meant to be placed somewere within your code?