Установка daemon4123-lite.exe+монтирование+Размонтирование

Установка daemon4123-lite.exe+монтирование+Размонтирование

almaznak

Новый участник

Сообщения: 2
Благодарности: 0

Профиль | Отправить PM | Цитировать

Изменения

Автор: jameszero
Дата: 13-06-2008

Установка по тихому daemon4123-lite.exe

Код:

Opt("TrayIconDebug", 1)
Opt("SendKeyDelay", 200)
; Executable file name
$EXECUTABLE = "daemon4123-lite.exe"
; Run Daemon Tools on Windows startup
$autostart = 0
; Detect the Operating System type (32 bit or 64 bit)
$OS = _OSBit()

If $OS = 32 Then
	; Installation folder
    $INSTALLLOCATION = @ProgramFilesDir & "\DAEMON Tools Lite"
	
	If FileExists($INSTALLLOCATION & "\daemon.exe") Then
	    MsgBox(0x40010, @ScriptName, "Please uninstall previous version of DAEMON Tools before using this script", 4)
	    Exit
    EndIf
	
    ; Disable the default internet browser (to prevent daemon.exe to open it)
    $DefBrowser = RegRead("HKCR\HTTP\shell\open\command\", "")
    RegDelete("HKCR\HTTP\shell\open\command\", "")

    ; Read from registry which is the home page of Internet Explorer (to restore it after the installation of DAEMON Tools Lite)
    $HomePage = RegRead("HKCU\Software\Microsoft\Internet Explorer\Main", "Start Page")

    ; Run the installer
    Run($EXECUTABLE & " /S")
	
	; Start checking for a window with "Please select a language." text inside
    AdlibEnable('_Adlib')
	
	ProcessWaitClose($EXECUTABLE)

    Sleep(1000)

    ; Restore the default internet browser
    RegWrite("HKCR\HTTP\shell\open\command\", "", "REG_SZ", $DefBrowser)

    ; Restore the home page of Internet Explorer
    RegWrite("HKCU\Software\Microsoft\Internet Explorer\Main", "", "REG_SZ", $HomePage)
	
	;Set Options
	IniWrite($INSTALLLOCATION & "\daemontools.ini","Global","Autostart","0")
	IniWrite($INSTALLLOCATION & "\daemontools.ini","Options","PanelIncluded","0")
	IniWrite($INSTALLLOCATION & "\daemontools.ini","View","Language","1049")
	
	;Оставляем только русский, украинский и анлийский язык
	FileMove ($INSTALLLOCATION & "\Lang\RUS.dll", $INSTALLLOCATION)
	FileMove ($INSTALLLOCATION & "\Lang\UKR.dll", $INSTALLLOCATION)
	FileMove ($INSTALLLOCATION & "\Lang\ENU.dll", $INSTALLLOCATION)
	
	DirRemove($INSTALLLOCATION & "\Lang", 1)
	DirCreate($INSTALLLOCATION & "\Lang")
	
	FileMove  ($INSTALLLOCATION & "\RUS.dll", $INSTALLLOCATION & "\Lang")
	FileMove  ($INSTALLLOCATION & "\UKR.dll", $INSTALLLOCATION & "\Lang")
	FileMove  ($INSTALLLOCATION & "\ENU.dll", $INSTALLLOCATION & "\Lang")
	
	; Block daemon.exe to run on Windows startup
	If $autostart = 0 Then
		RegDelete("HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", "DAEMON Tools Lite")
	EndIf

    ; Add uninstall entries
    RegWrite("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\DAEMON Tools Lite", "DisplayName", "REG_SZ", "DAEMON Tools Lite 4.12.3")
    RegWrite("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\DAEMON Tools Lite", "UninstallString", "REG_SZ", $INSTALLLOCATION & "\uninst.exe")
    RegWrite("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\DAEMON Tools Lite", "InstallLocation", "REG_SZ", $INSTALLLOCATION)
    RegWrite("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\DAEMON Tools Lite", "DisplayIcon", "REG_SZ", $INSTALLLOCATION & "\daemon.exe")
	
	; Stop checking for a window with "Please select a language." text inside
    AdlibDisable()
EndIf

If $OS = 64 Then
	; Installation folder
    $INSTALLLOCATION = @HomeDrive & "\Program Files (x86)\DAEMON Tools Lite"
	
	If FileExists($INSTALLLOCATION & "\daemon.exe") Then
	    MsgBox(0x40010, @ScriptName, "Please uninstall previous version of DAEMON Tools before using this script", 4)
	    Exit
    EndIf
	
    ; Disable the default internet browser (to prevent daemon.exe to open it)
    $DefBrowser = RegRead("HKCR\HTTP\shell\open\command\", "")
    RegDelete("HKCR\HTTP\shell\open\command\", "")

    ; Read from registry which is the home page of Internet Explorer (to restore it after the installation of DAEMON Tools Lite)
    $HomePage = RegRead("HKCU\Software\Microsoft\Internet Explorer\Main", "Start Page")

    ; Run the installer
    Run($EXECUTABLE & " /S")
	
	; Start checking for a window with "Please select a language." text inside
    AdlibEnable('_Adlib')
	
	ProcessWaitClose($EXECUTABLE)

    Sleep(1000)

    ; Restore the default internet browser
    RegWrite("HKCR\HTTP\shell\open\command\", "", "REG_SZ", $DefBrowser)

    ; Restore the home page of Internet Explorer
    RegWrite("HKCU\Software\Microsoft\Internet Explorer\Main", "", "REG_SZ", $HomePage)
	
	; Block daemon.exe to run on Windows startup
	If $autostart = 0 Then
		RegDelete("HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", "DAEMON Tools Lite")
	EndIf

    ; Add uninstall entries
    RegWrite("HKLM\SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall\DAEMON Tools Lite", "DisplayName", "REG_SZ", "DAEMON Tools Lite 4.12.3")
    RegWrite("HKLM\SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall\DAEMON Tools Lite", "UninstallString", "REG_SZ", $INSTALLLOCATION & "\uninst.exe")
    RegWrite("HKLM\SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall\DAEMON Tools Lite", "InstallLocation", "REG_SZ", $INSTALLLOCATION)
    RegWrite("HKLM\SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall\DAEMON Tools Lite", "DisplayIcon", "REG_SZ", $INSTALLLOCATION & "\daemon.exe")
	
	; Stop checking for a window with "Please select a language." text inside
    AdlibDisable()
EndIf

Func _Adlib()
    ; Please select a language.
	If WinExists("DAEMON Tools Lite 4.12.3", "Please select a language.") Then
        ControlClick("DAEMON Tools Lite 4.12.3", "Please select a language.", "Button1")
	EndIf
EndFunc

Func _OSBit()
	Local $tOS = DllStructCreate("char[256]")
	Local $aGSWD = DllCall("Kernel32.dll", "int", "GetSystemWow64Directory", "ptr", DllStructGetPtr($tOS), "int", 256)
	If IsArray($aGSWD) And DllStructGetData($tOS, 1) Then Return 64
	Return 32
EndFunc

Меня другое теперь волнует как монтировать и размонтировать образы в DT скриптовыми командами? Дело в том что ранее писали монтирование по типу Run ( $daemondir & '\daemon.exe -noicon -mount 0,"' & @ScriptDir & '\образ.iso"' ) Оно не пашет с версией daemon4123-lite.exe
А размонтирование RunWait ( $daemondir & '\daemon.exe -noicon -unmount 0' )
А задача стоит работа по сети
смонтировать причем если возможно сразу включить все опции защиты в даемоне перед монтированием
Установить программу с образа
Размонтировать
Удалить DT
Вот и осталось мне выяснить как монтировать и размонтировать образы? http://rapidshare.com/files/11222589...s_lite.7z.html ССылка на программу со скриптом. Прелесть установки этим скриптом что нету перезагрузки. Удаляется тоже без перезагрузки!!! Daemon Tools прекрасно монтирует образы находящиеся в любом месте локальной сети!!! Таким образом можно по локалке ставить программы из образов не копируя образы на искомый компьютер! Я сталкнулся с такой проблемой когда AUTOCAD 2008 никак не хотел ставиться по сети . Я сделал образы дисков в Daemon Tools Pro v4.10.218 (http://rapidshare.com/files/11223308...0.218.rar.html (пасс на архив 1234567890)и затем испльзовал способ с daemon4123-lite.exe и все пучком!!! Теперь надо окончательно автоматизировать процесс с монтированием.

Отправлено: 16:31, 03-05-2008