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
==================================
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