Руководство сетевого администратора AutoCAD 2008  > Использование сценариев для развертывания программы > 
Пример сценария установки
 
 
 

В примере сценария в этом разделе программа устанавливается в типовой конфигурации Для упрощения копирования этого примера сценария и подстановки собственной информации во всех пунктах используются одинаковые имена. Имя файла журнала определяется устанавливаемым продуктом. Имя файла журнала в сценарии можно оставить неизменным или заменить на другое.

Префикс серийного номера: 123

Серийный номер: 12345678

Имя: Ваше имя

Фамилия: Ваша фамилия

Организация: Название компании

В примере сценария автоматической установки этой программы используется синтаксис, описанный в данном разделе

Пакетная установка для AutoCAD 2008

' Пакетная установка для AutoCAD 2008

option explicit (явно заданные опции) 

' 

' Создание переменных 

dim x64bit

dim shell

dim productType

dim featuresToInstall

dim strADSKFirstName

dim strADSKLastName

dim strADSKOrganization

dim strADSKSercirity

dim strADSKSerialIsvalid

dim strADSKAccept

dim strADSKEula

dim strADSKReInstall

dim strADSKRemove

dim strADSKSNPrefix

dim strADSKSNNumber

dim strInstallLevel

dim strACADStandaloneNetworkType

dim strADSKLicenseServerType

dim strADSKLicenseType

dim strADSKServerFmtPath

dim strADSKServerPath

dim strADSKServerHostID

dim strADSKPath 

dim strSourcePath

dim strAdditionalStuff

' 

' Инициализация пакета

Set shell = CreateObject("wscript.Shell")

x64bit = false ' change to true if this is AutoCAD 2008 x64

productType = "acad"

strInstallLevel=3 ' 5 installs everything 3 installs typical

' 

' Информация об Организации и Имени  

strADSKFirstName = "Ваше имя" 

strADSKLastName = "Ваша фамилия" 

strADSKOrganization = "Наименование организации" 

' 

' Информация о серийном номере 

strADSKSNPrefix = "123" 

strADSKSNNumber = "12345678" 

' 

Источник для установки находится на (например, предполагается, что на D: находится носитель для установки) 

strSourcePath = "d:\" 

' 

' Размещение устанавливаемого продукта в 

strADSKPath = Shell.ExpandEnvironmentStrings("%ProgramFiles%") + "\AutoCAD 2008" 

' 

Функции для установки 

' ACS - AutoCAD Примеры 

' CADStandards - Стандарты оформления 

' Database - базы данных (DBCONNECT) 

' DCS - Примеры для DesignCenter 

' DigSig - Цифровые подписи 

' Dictionaries - Словари 

' DrawingEncryption - Шифрование чертежей 

' Express_Tools - Express Tools 

' Fonts - Шрифты 

' Impression - Панель инструментов Autodesk Impression (отсутствует в 64-разрядной версии AutoCAD 2008 ) 

' Materials - Библиотека материалов 

' Migrate - Перенос пользовательских настроек 

' NFW - Семинар по новым возможностям 

' PLM - Утилита перемещения лицензий 

' RefMan - Диспетчер ссылок 

' System_Files - Требуемые системные файлы (установленные  по умолчанию в этом пакете) 

' TM - Текстуры 

' VBA - Visual Basic for Applications 

' VLS - Примеры Visual LISP 

' VLT - Учебные пособия по Visual LISP 

' 

' Примеры ниже - Примечания предваряются запятой на первом знакоместе ву строке 

featuresToInstall = ",DigSig,TM,CADStandards,Database,Dictionaries,DrawingEncryption,Express_Tools,Fonts,NFW,Migrate,RefMan,Samples,ACS,DCS,VBA,Materials,PLM,VLS,VLT" 

if not x64bit then 

' Чтобы добавить Autodesk Impression к установке 

featuresToInstall = featuresToInstall & ",Impression" 

strAdditionalStuff = "ACADSHOWIMPR=" & """" & "1" & """" 

end if 

'''''' Снимите обозначение комментария с определенной версии вашей установки - по умолчанию это Однопользовательская 

' для  Однопользовательской 

RunStandaloneInstall() 

' 

' Для сервера однопользовательской сетевой  лицензии 

'RunSingleLicenseServerInstall() 

' 

' Для серверов избыточной сетевой лицензии 

'RunRedundantLicenseServerInstall() 

' 

' Для серверов распределенной сетевой лицензии  

'RunDistributedLicenseServerInstall() 

' 

' Конец пакета 

Wscript.quit() 

' 

Function RunStandaloneInstall 

shell.run DefaultCommand(),2,1 

end function 

' 

Function RunSingleLicenseServerInstall 

' Обновить правильной информацией для сервера лицензий 

strACADStandaloneNetworkType = "3" 

strADSKLicenseServerType = "Single Server License" 

strADSKLicenseType = "Network License" 

strADSKServerPath = "myFlexServer" 

' адрес HOSTID или MAC  

strADSKServerHOSTID = "001122334455" 

' 

' Объединение двух величин 

strADSKServerPath = strADSKServerPath & " " & strADSKServerHOSTID 

shell.run MakeCommand(),2,1 

end function 

' 

Function RunRedundantLicenseServerInstall 

' Обновить правильной информацией для сервера лицензий

strACADStandaloneNetworkType = "3" 

strADSKLicenseServerType = "Redundant Server License" 

strADSKLicenseType = "Network License" 

' 

' Формат -  SERVERNAME1 MACADDR1 PORT1;SERVERNAME2 MACADDR2 PORT2; SERVERNAME3 MACADDR3 PORT3; - Для избыточныз серверов допускается только 3  

strADSKServerPath = " myFlexServer 001122334455 27005; myFlexServer2 006622334455 27005;" 

shell.run MakeCommand(),2,1 

end function 

' 

Function RunDistributedLicenseServerInstall 

' Обновить правильной информацией для сервера лицензий

strACADStandaloneNetworkType = "3" 

strADSKLicenseServerType = "Distributed Server License" 

strADSKLicenseType = "Network License" 

' 

' Формат - @SERVERNAME1;SERVERNAME2;SERVERNAME3; 

strADSKServerPath = "@ myFlexServer;@ myFlexServer2;@ myFlexServer3;" 

' 

shell.run MakeCommand() & "ACAD_LICENSESERVER_DISTRIBUTED=1",2,1 

end function 

' 

Function DefaultCommand 

dim retString 

' /q для автоматической установки, ' /c [key] - замена параметров ключа 

retString = strSourcePath & "\setup.exe /t /q /c " & productType & ": " 

retString = retString & "INSTALLDIR=" & """" & strADSKPath & """" & " " 

retString = retString & "ACADSERIALPREFIX=" & strADSKSNPrefix & " " 

retString = retString & "ACADSERIALNUMBER=" & strADSKSNNumber & " " 

retString = retString & "ACADFIRSTNAME=" & """" & strADSKFirstName & """" & " " 

retString = retString & "ACADLASTNAME=" & """" & strADSKLastName & """" & " " 

retString = retString & "ACADORGANIZATION=" & """" & strADSKOrganization & """" & " " 

retString = retString & "InstallLevel=" & strInstallLevel & " " 

' retString = retString & "ADSK_LAUNCH_MODE=Standalone" & " " 

if strInstallLevel = 3 then 

retString = retString & "ADDLOCAL=" & """" & "System_Files" & featuresToInstall & """" & " " 

end if 

retString = retString & strAdditionalStuff ' Специально для Панели инструментов Impression 

DefaultCommand = retString & " " 

end function 

' 

Function MakeCommand 

dim retString 

retString = DefaultCommand() & " " 

retString = retString & "ACADSTANDALONENETWORKTYPE=" & """" & strACADStandaloneNetworkType & """" & " " 

retString = retString & "ACADLICENSESERVERTYPE=" & """" & strADSKLicenseServerType & """" & " " 

retString = retString & "ACADLICENSETYPE=" & """" & strADSKLicenseType & """" & " " 

retString = retString & "ACADSERVERPATH=" & """" & strADSKServerPath & """" & " " 

MakeCommand = retString 

end function