Пример сценария 1: Типовая установка

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

dim strADSKFirstName

strADSKFirstName = "Ваше имя"

dim strADSKLastName

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

dim strDealer

strDealer = "Продавец"

dim strDealerPhone

strDealerPhone = "411"

' Переменная, в которой хранится имя дилера.

& """" & "install /l /qb" & """"

strADSKCompany = "Название компании"

' Создание переменных для хранения серийного номера

Dim strADSKSNPrefix

strADSKSNPrefix = "000"

dim strADSKSNNumber

strADSKSNNumber = "00000000"

strADSKPath = "c:\Autodesk\AutoCAD 2006 Full"

' Переменная, в которой хранится путь к папке для установки (с длинным именем файла).

Dim strProgPath

strProgPath = Shell.ExpandEnvironmentStrings("%ProgramFiles%")

dim strADSKName strADSKName = "ABC Company4"

strADSKPath = strProgPath + "\AutoCAD 2006"

' Создание переменной для хранения исходного пути AutoCAD 2006

Dim strSourcePath

' Где D: соответствует компакт-диску продукта

strSourcePath = "D:\Bin\acadFeui"

'

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

shell.run strSourcePath & "\setup.exe /q /c acad:" & """" & _

"INSTALLDIR=\"& """" & strADSKPath & "\" & """" & "" &_

"REBOOT=Suppress /qb!" & " " & _

"ACAD_SILENT_LICENSE=YES" & " " & _

"ACADSERIALPREFIX=" & strADSKSNPrefix & " " & _

"ACADSERIALNUMBER=" & strADSKSNNumber & " " & _

"ACADFIRSTNAME=\" & """"& strADSKFirstName & "\" & """" & " " & _

"ACADLASTNAME=\" & """"& strADSKLastName & "\" & """" & " " & _

"ACADDEALER=\" & """"& strDealer & "\" & """" & " " & _

"ACADDEALERPHONE=\" & """"& strDealerPhone & "\" & """" & " " & _

"ACADORGANIZATION=\" & """" & strADSKCompany & "\" & """" & " " & _

"INSTALLLEVEL=3" & """"

Содержание раздела

---