对于那些仍然感兴趣的人，下面的代码将完成工作
我还想感谢基思在这件事上的帮助。
马克
'NOTE:
'AutoCAD must be closed in order for the paths to be updated in AutoCAD
Dim WshShell,WshNetwork
Dim curver, locale, cprofile
Dim username
Dim vname'= Value Name
Dim vdata'= Value Data
Set WshShell = WScript.CreateObject("WScript.Shell")
Set WshNetwork = WScript.CreateObject("WScript.Network")
username = WshNetwork.UserName
vname = "SheetSetTemplatePath"
'This reads the currently installed and last accesed version of AutoCAD
curver = WshShell.RegRead ( "HKCU\Software\Autodesk\AutoCAD\curver")
'There is an additional value under that registry key, it is unique and must be grabbed from here, or else you won't know the location of the profile
locale = WshShell.RegRead ( "HKCU\Software\Autodesk\AutoCAD\" & curver & "\curver")
'This Key holds only the current profile
cprofile = WshShell.RegRead ( "HKCU\Software\Autodesk\AutoCAD\" & curver & "\" & locale & "\Profiles\")
'New Path Goes Here
vdata = "I:\Path\Template"
'Return to Default (Local) Path
'vdata = "C:\Documents and Settings\"& Username &"\Local Settings\Application
'Data\Autodesk\Autodesk Land Desktop 2006\R16.2\enu\Template"
'Write The VName and VData (Support Path)
WshShell.RegWrite "HKCU\Software\Autodesk\AutoCAD\" & curver & "\" & locale & "\Profiles\" & cprofile & "\General\" & vname,vdata
'Return The VName and VData (Support Paths)
WScript.Echo "The Path for ValueName " & vname & " is" & VbCrLf & vdata
页:
1
[2]