[Benehom]

Собственно вопрос, присутствуют ли где-то конфигурационный файл, куда прописываются данные пути?
Интересна возможность задания и изменения с сервера настроек autocad для множества клиентов.

[alex101000]

Для дополнения-изменения путей использовал реестр HKEY_CURRENT_USER\Software\Autodesk\AutoCAD\R20.1\ACAD-F001:419\Profiles\<<Профиль без имени>>\General\ACAD
Скрипт для добавления:

Код:

[Выделить все]

const HKEY_CURRENT_USER = &H80000001
const HKEY_LOCAL_MACHINE = &H80000002

strComputer = "."
strSoft = "AutoCAD"
strKey = "Software\Autodesk"
strKeyPath = "Software\Autodesk\AutoCAD\R18.2\ACAD-A001:419\Profiles\"
endPath="General"
strSharePath="%USERPROFILE%\AppData\Roaming\Autodesk\AutoCAD 2012 - Russian\R18.2\rus\Support;"
strEndPath="%USERPROFILE%\AppData\Roaming\Autodesk\AutoCAD 2012 - Russian\R18.2\rus\Support;"

SharePathLen=len(strSharePath)

Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _ 
    strComputer & "\root\default:StdRegProv")


if	oReg.EnumKey (HKEY_LOCAL_MACHINE, strKey, arrSubKeys) <> 0 then
    WScript.Quit
end if

	oReg.EnumKey HKEY_LOCAL_MACHINE, strKey, arrSubKeys

For Each subkey In arrSubKeys
	if subkey = strSoft Then

		strKeyPath = "Software\Autodesk\AutoCAD\R18.2\ACAD-A001:419\Profiles\"
		oReg.EnumKey HKEY_CURRENT_USER, strKeyPath, arrHKCUsubkeys, arrValues

		For Each HKCUsubkey In arrHKCUsubkeys
'    Wscript.Echo HKCUsubkey

			sKeyName = strKeyPath & HKCUsubkey & "\" & endPath
			oReg.GetStringValue HKEY_CURRENT_USER, sKeyName, "ACAD", sValue
 
			if Right(sValue,SharePathLen) <> strSharePath Then
					If Right(sValue,1) = ";" Then
						ttt = sValue & strEndPath
						oReg.SetStringValue HKEY_CURRENT_USER, sKeyName, "ACAD", ttt
					else
						ttt = sValue & ";" & strEndPath
						oReg.SetStringValue HKEY_CURRENT_USER, sKeyName, "ACAD", ttt
					End if
			End if	
'    Wscript.Echo ttt
		Next	
	
'Wscript.Echo subkey
	


	End if
Next