Break On
Dim $SO
$SO=SetOption('Explicit','On')
$SO=SetOption('NoVarsInStrings','On')
 
Dim $UpdateMD,$ReadMD,$UpdateAD,$NewFolder
$NewFolder='D:\My Documents'
$UpdateMD=WriteValue('HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders','Personal',$NewFolder,REG_SZ)
$ReadMD=ReadValue('HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders','Personal')
$UpdateMD=WriteValue('HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders','My Music',$ReadMD+'\My Music',REG_SZ)
$UpdateMD=WriteValue('HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders','My Video',$ReadMD+'\My Video',REG_SZ)
$UpdateMD=WriteValue('HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders','My Pictures',$ReadMD+'\My Pictures',REG_SZ)
$UpdateAD=WriteValue('HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\DocFolderPaths',@USERID,$NewFolder,REG_SZ)

Quote:

---

Using Logon Scripts to Redirect Folders
Although using Group Policy to redirect users folders is the recommended method, there are alternate ways to achieve similar results. You can use logon scripts to set the values of the User Shell Folders key in the registry, which will give you basic functionality similar to Folder Redirection.

Alternatively, you could use Windows NT 4.0 system policies to set the appropriate values. However if you choose to do this, you loose the advantages of using Group Policy to set folder paths, such as automatic moving of files when the path changes, and the registry settings will persist.

---

Quote:

---

The information in this article applies to:
Microsoft Windows 2000 Server
Microsoft Windows 2000 Advanced Server
Microsoft Windows 2000 Professional
Microsoft Windows 2000 Datacenter Server

---

Break On

Dim $SO

$SO=SetOption('Explicit','On')

$SO=SetOption('NoVarsInStrings','On')

 

Dim $UpdateMD,$ReadMD,$Key,$NewFolder

$NewFolder  = 'D:\My Documents'

$Key          = 'HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders'

$UpdateMD  = WriteValue($Key,'Personal',$NewFolder,REG_EXPAND_SZ)

$ReadMD     = ReadValue($Key,'Personal')

$UpdateMD  = WriteValue($Key,'My Pictures',$ReadMD+'\My Pictures',REG_EXPAND_SZ)

$UpdateMD  = WriteValue($Key,'My Music',$ReadMD+'\My Music',REG_EXPAND_SZ)

$UpdateMD  = WriteValue($Key,'My Videos',$ReadMD+'\My Videos',REG_EXPAND_SZ)