为全体用户自动修改“我的文档”、“桌面”、“临时目录”的路径

    我们通常希望将我的文档、桌面的内容从默认的系统盘移至其它盘，这样，即便我们在重装系统时忘记备份我的文档及桌面文件时，其内容也不至于丢失。
    移动我的文档及桌面所在路径的方法有很多种，这里我写了一个WINSCRIPT脚本程序来自动做这件事。
做法：
1、建立一个脚本文件%windir%/system32/logon.vbs，内容为。

'********************************************************************************* ' 用户登录脚本 '     在用户目录下创建以用户名命名的目录, 再分别创建MyDocuments与Desktop、Temp目录 '     对用户目录进行授予用户独占的权限 '     更改用户的文档路径、桌面路径、Temp环境变量的路径 ' write by:  tanxiancheng.blog.163.com 谭仙成 2006-8-31 '*********************************************************************************     Const USER_HOME = "D:/Home" Dim arrEnvironment, strUserName Dim objShell, objFileSystem Set objShell = CreateObject("Wscript.Shell") Set arrEnvironment = objShell.Environment("Process") '进程的环境变量 strUserName = arrEnvironment("USERNAME") '取用户名 Set objFileSystem = CreateObject("Scripting.FileSystemObject") If Not objFileSystem.FolderExists(USER_HOME & "/" & strUserName) Then '建立用户主目录     objFileSystem.CreateFolder(USER_HOME & "/" & strUserName)     '对用户的主目录授予用户完全的权限及超级用户组完全的权限     objShell.Exec("yes.bat | cacls.exe " & USER_HOME & "/" & strUserName & " /T /G " & strUserName & ":F Administrators:F") End If If Not objFileSystem.FolderExists(USER_HOME & "/" & strUserName & "/My Documents") Then '建立用户文档目录     objFileSystem.CreateFolder(USER_HOME & "/" & strUserName & "/My Documents") End If If Not objFileSystem.FolderExists(USER_HOME & "/" & strUserName & "/My Documents/My Pictures") Then '建立用户图片目录     objFileSystem.CreateFolder(USER_HOME & "/" & strUserName & "/My Documents/My Pictures") End If If Not objFileSystem.FolderExists(USER_HOME & "/" & strUserName & "/My Documents/My Music") Then '建立用户音乐目录     objFileSystem.CreateFolder(USER_HOME & "/" & strUserName & "/My Documents/My Music") End If If Not objFileSystem.FolderExists(USER_HOME & "/" & strUserName & "/My Documents/My Video") Then '建立用户影视目录     objFileSystem.CreateFolder(USER_HOME & "/" & strUserName & "/My Documents/My Video") End If If Not objFileSystem.FolderExists(USER_HOME & "/" & strUserName & "/Desktop") Then '建立用户桌面目录     objFileSystem.CreateFolder(USER_HOME & "/" & strUserName & "/Desktop") End If If Not objFileSystem.FolderExists(USER_HOME & "/" & strUserName & "/Temp") Then '建立用户临时目录     objFileSystem.CreateFolder(USER_HOME & "/" & strUserName & "/Temp") End If '更改用户桌面、我的文档、临时目录的路径 Const REG_SHELL_FOLDER = "HKEY_CURRENT_USER/SoftWare/Microsoft/Windows/CurrentVersion/Explorer/User Shell Folders" Const REG_ENVIRONMENT = "HKEY_CURRENT_USER/Environment" objShell.RegWrite REG_SHELL_FOLDER & "/Personal", USER_HOME & "/" & strUserName & "/My Documents" objShell.RegWrite REG_SHELL_FOLDER & "/My Pictures", USER_HOME & "/" & strUserName & "/My Documents/My Pictures" objShell.RegWrite REG_SHELL_FOLDER & "/My Music", USER_HOME & "/" & strUserName & "/My Documents/My Music" objShell.RegWrite REG_SHELL_FOLDER & "/My Video", USER_HOME & "/" & strUserName & "/My Documents/My Video" objShell.RegWrite REG_SHELL_FOLDER & "/Desktop", USER_HOME & "/" & strUserName & "/Desktop" objShell.RegWrite REG_ENVIRONMENT & "/Temp", USER_HOME & "/" & strUserName & "/Temp" objShell.RegWrite REG_ENVIRONMENT & "/Tmp", USER_HOME & "/" & strUserName & "/Temp" Set objFileSystem = Nothing Set objShell = Nothing WScript.Quit(0)

2、建立一个批处理文件%windir%/system32/yes.bat，内容为：

@echo y @echo y @echo y @echo y

3、在运行中输入gpedit.msc，调出本地组策略编辑器
4、在组策略的“"本地计算机"策略->”“用户配置”->“windows设置”->脚本，双击右边的“登录”
   将%windir%/system32/logon.vbs添加进去

本方法在WinXP及Windows Server 2003下试验通过