Rename Folders using VBScript

Following script renames the folder in each user profile on WindowsXP machines

Dim FSfolder
Dim subfolder
Dim i

set objshell = CreateObject(“Wscript.shell”)
Set FSO = CreateObject(“Scripting.FileSystemObject”)

SysDrv=objshell.ExpandEnvironmentStrings(“%systemdrive%”)

Profile = SysDrv & “\Documents and Settings”
Set FSfolder = FSO.GetFolder(Profile) ‘getting the user profile folders

‘starting of the loop to delete the HKCUs

For Each subfolder In FSfolder.SubFolders

   If (subfolder.Name <> “All Users” And  subfolder.Name <> “Default User”_
   and subfolder.Name <> “LocalService” and subfolder.Name <> “NetworkService”) Then

folder1=Profile & “\” & subfolder.Name & “\Application Data\Documentum\Client for Outlook”

RenameFolder(folder1)

   end if

Next

‘*******************************************************************************************************

Function  RenameFolder(FolderName)

    If FSO.FolderExists(FolderName) Then
    ‘msgbox Foldername & “.old”
FSO.MoveFolder FolderName, Foldername & “.old”

    End If

End Function