有关批处理文件

我想要在.GHO文件里加个批处理文件，
把《我的文档》和《IE收藏》都放到D盘根目录下，
这样在我用GHO给别人装系统时就不用手动去改了，
          《我的文档》就是超级用户那个。我听他们说做个批处理文件把一个注册表加进去就可以了，。哪位在这里把方法发上来。小弟先谢谢了！

不是很简单哟,要改的注册表还蛮多的!
这里有别人作的一个用AUTOIT3改的,你可以看一下:

;蓝宇网维工作室 QQ：280190411

$a=inputbox('C盘个人资料转移工具','请输入要转移的路径 By:黑夜的舞者','','',220,40)

if $a="" then
exit
else
DirCreate($a & "\Desktop")
DirCreate($a & "\Favorites")
DirCreate($a & "\My Documents")
DirCreate($a & "\OE")
DirCreate($a & "\Temp")

;写入注册表-HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders的各项内容

regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders","Cache","REG_SZ",$a & "\Temporary Internet Files")

regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders","Desktop","REG_SZ",$a & "\Desktop")

regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders","Favorites","REG_SZ",$a & "\Favorites")

regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders","Personal","REG_SZ",$a & "\My Documents")

regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders","My Music","REG_SZ",$a & "\My Documents\My Music")

regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders","My Pictures","REG_SZ",$a & "\My Documents\My Pictures")

regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders","Recent","REG_SZ",$a & "\Recent")

;写入注册表-HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders的各项内容

regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders","Cache","REG_SZ",$a & "\Temporary Internet Files")

regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders","Desktop","REG_SZ",$a & "\Desktop")

regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders","Favorites","REG_SZ",$a & "\Favorites")

regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders","Personal","REG_SZ",$a & "\My Documents")

regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders","My Music","REG_SZ",$a & "\My Documents\My Music")

regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders","My Pictures","REG_SZ",$a & "\My Documents\My Pictures")

regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders","Recent","REG_SZ",$a & "\Recent")

;写入注册表-HKEY_CURRENT_USER\Identities\{F4E98C86-4D9A-463F-920C-1DF555C3B434}\Software\Microsoft\Outlook Express\5.0的各项内容

regwrite("HKEY_CURRENT_USER\Identities\{F4E98C86-4D9A-463F-920C-1DF555C3B434}\Software\Microsoft\Outlook Express\5.0","Store Root","REG_SZ",$a & "\Outlook Express") ;操作系统类型不一样，有所不同。我是XP SP1，与此处不相同。我没去比较了。

;写入注册表-HKEY_USERS\.DEFAULT\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders的各项内容

regwrite("HKEY_USERS\.DEFAULT\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders","Desktop","REG_SZ",$a & "\Desktop")

regwrite("HKEY_USERS\.DEFAULT\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders","Cache","REG_SZ",$a & "\My Documents")

regwrite("HKEY_USERS\.DEFAULT\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders","Download Directory","REG_SZ",$a & "\My Documents")

;写入注册表-HKEY_CURRENT_USER\Environment的各项内容

regwrite("HKEY_CURRENT_USER\Environment","TEMP","REG_SZ",$a & "\TEMP")
regwrite("HKEY_CURRENT_USER\Environment","TMP","REG_SZ",$a & "\TEMP")

endif

if @OSType="WIN32_NT" then
DirCopy（@UserProfileDir& "\My Documents\", $a&"\My Documents\",1)
filecopy （@UserProfileDir& "\My Documents\*.*", $a&"\My Documents\",1)
DirCopy（@UserProfileDir& "\桌面\", $a&"\Desktop\",1)
DirCopy("C:\Docume~1\all users\桌面\", $a&"\Desktop\",1)
filecopy ("C:\Docume~1\all users\桌面\*.*", $a&"\Desktop\",1)
filecopy （@UserProfileDir& "\桌面\*.*",$a&"\Desktop\",1)
DirCopy（@UserProfileDir& "\Favori~1\", $a&"\Favori~1\",1)
filecopy （@UserProfileDir& "\Favori~1\*.*",$a&"\Favori~1\",1)
Else
DirCopy("C:\Mydocu~1\",$a&"\Mydocu~1\",1)
filecopy ("C:\Mydocu~1\*.*",$a&"\Mydocu~1\",1)
DirCopy("C:\WINDOWS\Desktop\",$a&"\Desktop\",1)
filecopy ("C:\WINDOWS\Desktop\*.*",$a&"\Desktop\",1)
DirCopy("C:\WINDOWS\Favori~1\",$a&"\Favori~1\",1)
filecopy ("C:\WINDOWS\Favori~1\*.*",$a&"\Favori~1\",1)
endif

$b=MsgBox(4+32,"恭喜","程序已完成C盘个人资料转移工作，注销即可生效，确认要注销吗？")
if $b=6 Then
Shutdown(0)
Else
Exit
endif


文件太在,不能上传!

或者可以参考:
http://autoit.8800.org/ShowPost.asp?id=943

[ 本帖最后由 je64 于 2006-6-5 15:37 编辑 ]