Tom's Guide | Tom's Hardware | Tom's Games
![]() |
![]() |
![]() |
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) THENIF 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 GuysAndy

![]() |
Public Folder access prio...
|
ISA 2004 / Real Player
|

This post is quite old and has been locked from receiving new replies. Please create a new posting instead.
| Ads by Google |