fastslz

用Xp SP3 里的reg.exe就可以了

fastslz

既然想xp 、2000、2003通用，2000连reg export也无法使用

Set WS = WScript.CreateObject("WScript.Shell")
strFullPath ="HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders"
strNames = "AppData,Desktop,Favorites,NetHood,Personal,PrintHood,Programs,Recent,SendTo,Start Menu,Startup,Templates,My Pictures,Local Settings,Local AppData,Cache,History,My Music,Cookies"
aName = Split(strNames, ",")
For i = 1 To UBound(aName)
Wscript.Echo WS.RegRead(strFullPath & "\" & aName(i))
Next
复制代码

这个是通用的，不过需要一定的权限，既然是系统优化批处理权限应该不成问题的