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

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

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