[R] Automatiser l'installation/mise à jour de VirtualBox ?

[foozoor]

J'ai quelques problèmes pour faire une installation automatique de VirtualBox avec son pack d'extension.

Les paramètres pour l'installation silencieuse sont assez/trop bizarres.
http://www.virtualbox.org/manual/ch02.h ... on_windows
Il y a des drivers à installer en cas d'une nouvelle installation.

Alors, si quelqu'un se sent l'âme charitable ou si vous avez déjà un script qui fait cela.

Voici le début de ma fonction.
Pour le moment elle ne fait que télécharger la dernière version de VirtualBox et de son pack.

► Afficher le texte

Code : Tout sélectionner

#include <Array.au3>

virtualboxInstall()

Func virtualboxInstall()

    ; Sorties
    $setup = @DesktopDir & "\virtualbox.exe"
    $pack =  @DesktopDir & "\virtualbox.vbox-extpack"

    ; Traitements
    $html = BinaryToString(InetRead("https://www.virtualbox.org/wiki/Downloads"))
    $setup_result = StringRegExp($html, "(http://download.virtualbox.org/virtualbox/.*-Win.exe)", 2)
    $pack_result = StringRegExp($html, "(http://download.virtualbox.org/virtualbox/.*.vbox-extpack)", 2)

    ; Urls et téléchargements
    $setup_url = $setup_result[0]
    $pack_url = $pack_result[0]

    InetGet($setup_url, $setup)
    InetGet($pack_url, $pack)

    ; Installation silencieuse ou automatique

    ; Debug
    _ArrayDisplay($setup_result, 'Résultats pour le setup')
    _ArrayDisplay($pack_result, 'Résultats pour le pack')
    MsgBox(0,0, $setup_url & @CRLF & @CRLF & $pack_url)

EndFunc

Merci d'avance !

[jguinch]

Bonjour.
Pourtant la doc est claire et plutôt simple...
Le plus pénible c'est le driver, mais ça à l'air de fonctionner.
L'idéal serait d'ajouter un contrôle du checksum (MD5) après le téléchargement pour être sûr que le programme d'installation est bien téléchargé

► Afficher le texte

Code : Tout sélectionner

$setup = "VirtualBox-4.2.6-82870-Win.exe"                                ; Programme d'installation
$pack   = "Oracle_VM_VirtualBox_Extension_Pack-4.2.6-82870.vbox-extpack"  ; Extension

; Extraction des fichiers dans %temp%\VirtualBox_Files
RunWait($setup & ' -extract -path "' & @TempDir & '\VirtualBox_Files" -silent')

; Recherche du fichier en fonction de l'architecture (par exemple)
$arch = "x86"
IF @OSArch = "X64" OR @OSArch = "IA64" Then $arch = "amd64"
$search = FileFindFirstFile( @TempDir & "\VirtualBox_Files\*" & $arch & ".msi")
If $search = -1 Then Exit MsgBox(16, "VirtualBox Installation", "Impossible de trouver le programme d'installation")

$msiFile = FileFindNextFile($search)
If @error Then  Exit MsgBox(16, "VirtualBox Installation", "Impossible de trouver le programme d'installation")

; On ajoute l'étiteur en tant qu'éditeur de confiance (pour l'installation du driver)
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\SystemCertificates\TrustedPublisher\Certificates\A88FD9BDAA06BC0F3C491BA51E231BE35F8D1AD5", "Blob", "REG_BINARY", "0x030000000100000014000000A88FD9BDAA06BC0F3C491BA51E231BE35F8D1AD5040000000100000010000000BDAA0134CEF0AF91604A9014FF48B068190000000100000010000000513E24DD5BC926AF480BCD8AE4D6CD23140000000100000014000000D80230929A26F7AD478E6B607892707936D45A390F000000010000001400000097F0B1288E1EFBA68E4A88F6B09F2F0E93C3D3DB200000000100000076050000308205723082045AA0030201020210519BD967F908015521A20C0E9316F489300D06092A864886F70D01010505003081B4310B300906035504061302555331173015060355040A130E566572695369676E2C20496E632E311F301D060355040B1316566572695369676E205472757374204E6574776F726B313B3039060355040B13325465726D73206F66207573652061742068747470733A2F2F7777772E766572697369676E2E636F6D2F727061202863293130312E302C06035504031325566572695369676E20436C617373203320436F6465205369676E696E672032303130204341301E170D3131303230383030303030305A170D3134303230373233353935395A3081B5310B3009060355040613025553311330110603550408130A43616C69666F726E6961311730150603550407130E526564776F6F642053686F726573311B3019060355040A14124F7261636C6520436F72706F726174696F6E313E303C060355040B13354469676974616C20494420436C6173732033202D204D6963726F736F667420536F6674776172652056616C69646174696F6E207632311B3019060355040314124F7261636C6520436F72706F726174696F6E30820122300D06092A864886F70D01010105000382010F003082010A02820101008992EF11F1F037241CE997AE3C4A7EBAD5D603F947220D0D1352C3479EF92B61581D9CF198B1A1A48C573A9968F76BBFE23974E7C2BB24E4A01AEFF38EC2B40B0A7F0E57CF665DB87194FF76608D59D84FFC2D492A21FFD8C7CDEAD4C51903818E42C1CFF08BFB5629714C7DBA946301429F30C795B9DD31FE634427BBFF7B82BFDF7198199E838D168101B861F05F62EBCE4085A22A1CC9A010D8A985FB4CDA093BA7D702A9CFF8CB6F5FEF0A1AAD5DE7CAD7F3CA771E0FB8A91DB30D3DAC575FEE753DFA3C48C86CBF5EB5FE7C9CC6758829FE919FEF070148BEE894409EABDC9DE31F4EDC149120CBEC8F0D00419D007CF19DF4211C5622739556A93A4B930203010001A382017B3082017730090603551D1304023000300E0603551D0F0101FF04040302078030400603551D1F043930373035A033A031862F687474703A2F2F637363332D323031302D63726C2E766572697369676E2E636F6D2F435343332D323031302E63726C30440603551D20043D303B3039060B6086480186F84501071703302A302806082B06010505070201161C68747470733A2F2F7777772E766572697369676E2E636F6D2F72706130130603551D25040C300A06082B06010505070303307106082B0601050507010104653063302406082B060105050730018618687474703A2F2F6F6373702E766572697369676E2E636F6D303B06082B06010505073002862F687474703A2F2F637363332D323031302D6169612E766572697369676E2E636F6D2F435343332D323031302E636572301F0603551D23041830168014CF99A9EA7B26F44BC98E8FD7F00526EFE3D2A79D301106096086480186F84201010404030204103016060A2B06010401823702011B040830060101000101FF300D06092A864886F70D01010505000382010100C7CEECD3E6B5E32A763C2EE97C0832B70DB30CBC980A95EB0E13CECCF12F8E5FDBC0A9D4CEB76C22503C95E6C2C1E0451512062A8CF790DD486958F09EC767736B5FB2CC1EA82DF25E80F7133C6A3270715739FF8FDF0FA01527B1CA9E2C132CB69B242C5735D7B8672994421428B28A5690A73C271DCD15FA098FD15DB0741F9EDB727E5E861AED065586532CB4DC1FFA19E46E072113649102DC8ACED0DB966EB5C0786160A2557F3E8D0DAE13F99B47BBF73A0576B52AA7C1964C9E087734D0B5111E6169D53C60C7ADEA3900E7764A8D877D8CD0DF6F7EADECB1727241641117F6AA3DE0408F7E11D0DA2BC85285F17263D51D3C887F928ED1A1E24D7BFF")
RunWait('msiexec /i "' & $msiFile & '" /qb', @TempDir & "\VirtualBox_Files")
RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\SystemCertificates\TrustedPublisher\Certificates\A88FD9BDAA06BC0F3C491BA51E231BE35F8D1AD5", "Blob")

; On ajoute le pack d'extension
If FileExists(@ProgramFilesDir & "\Oracle\VirtualBox\VBoxManage.exe") Then
    RunWait(@ComSpec & ' /c VBoxManage.exe extpack install "' & $pack & '"', @ProgramFilesDir & '\Oracle\VirtualBox', @SW_HIDE )
Else
    ShellExecuteWait($extPack)
EndIf


DirRemove(@TempDir & "\VirtualBox_Files")

[foozoor]

Merci beaucoup !
En plus, je le découvre un jour avant Noël ! Ça c'est du cadeau.

Je ferai quelques tests plus poussés demain et si tout se passe bien je mettrai le topic en résolu.

Tests exécutés sans accros, ça fonctionne du tonerre de dieu !
Donc voici une fonction permettant d'installer VirtualBox et son pack d'extensions dans leur dernière version.

► Afficher le texte

Code : Tout sélectionner

#RequireAdmin
#include <Array.au3> ; Uniquement pour le débogage

virtualboxInstall()

Func virtualboxInstall()

    ; Traitements
    $html = BinaryToString(InetRead("https://www.virtualbox.org/wiki/Downloads"))
    $setup_result = StringRegExp($html, "(http://download.virtualbox.org/virtualbox/.*/(.*-Win.exe))", 2)
    $pack_result = StringRegExp($html, "(http://download.virtualbox.org/virtualbox/.*/(.*.vbox-extpack))", 2)

    ; Récupérer les bonnes urls
    $setup_url = $setup_result[0]
    $pack_url = $pack_result[0]

    ; Récupérer les bons noms de fichier
    ; Initialiser les destinations
    $setup = @TempDir & "\" & $setup_result[2]
    $pack  = @TempDir & "\" & $pack_result[2]

    ; Téléchargements
    InetGet($setup_url, $setup)
    InetGet($pack_url, $pack)

    ; Extraction des fichiers dans %temp%\VirtualBox_Files
    RunWait($setup & ' -extract -path "' & @TempDir & '\VirtualBox_Files" -silent')

    ; Recherche du fichier en fonction de l'architecture (par exemple)
    $arch = "x86"
    IF @OSArch = "X64" OR @OSArch = "IA64" Then $arch = "amd64"
    $search = FileFindFirstFile( @TempDir & "\VirtualBox_Files\*" & $arch & ".msi")
    If $search = -1 Then Exit MsgBox(16, "VirtualBox Installation", "Impossible de trouver le programme d'installation")

    $msiFile = FileFindNextFile($search)
    If @error Then  Exit MsgBox(16, "VirtualBox Installation", "Impossible de trouver le programme d'installation")

    ; On ajoute l'étiteur en tant qu'éditeur de confiance (pour l'installation du driver)
    RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\SystemCertificates\TrustedPublisher\Certificates\A88FD9BDAA06BC0F3C491BA51E231BE35F8D1AD5", "Blob", "REG_BINARY", "0x030000000100000014000000A88FD9BDAA06BC0F3C491BA51E231BE35F8D1AD5040000000100000010000000BDAA0134CEF0AF91604A9014FF48B068190000000100000010000000513E24DD5BC926AF480BCD8AE4D6CD23140000000100000014000000D80230929A26F7AD478E6B607892707936D45A390F000000010000001400000097F0B1288E1EFBA68E4A88F6B09F2F0E93C3D3DB200000000100000076050000308205723082045AA0030201020210519BD967F908015521A20C0E9316F489300D06092A864886F70D01010505003081B4310B300906035504061302555331173015060355040A130E566572695369676E2C20496E632E311F301D060355040B1316566572695369676E205472757374204E6574776F726B313B3039060355040B13325465726D73206F66207573652061742068747470733A2F2F7777772E766572697369676E2E636F6D2F727061202863293130312E302C06035504031325566572695369676E20436C617373203320436F6465205369676E696E672032303130204341301E170D3131303230383030303030305A170D3134303230373233353935395A3081B5310B3009060355040613025553311330110603550408130A43616C69666F726E6961311730150603550407130E526564776F6F642053686F726573311B3019060355040A14124F7261636C6520436F72706F726174696F6E313E303C060355040B13354469676974616C20494420436C6173732033202D204D6963726F736F667420536F6674776172652056616C69646174696F6E207632311B3019060355040314124F7261636C6520436F72706F726174696F6E30820122300D06092A864886F70D01010105000382010F003082010A02820101008992EF11F1F037241CE997AE3C4A7EBAD5D603F947220D0D1352C3479EF92B61581D9CF198B1A1A48C573A9968F76BBFE23974E7C2BB24E4A01AEFF38EC2B40B0A7F0E57CF665DB87194FF76608D59D84FFC2D492A21FFD8C7CDEAD4C51903818E42C1CFF08BFB5629714C7DBA946301429F30C795B9DD31FE634427BBFF7B82BFDF7198199E838D168101B861F05F62EBCE4085A22A1CC9A010D8A985FB4CDA093BA7D702A9CFF8CB6F5FEF0A1AAD5DE7CAD7F3CA771E0FB8A91DB30D3DAC575FEE753DFA3C48C86CBF5EB5FE7C9CC6758829FE919FEF070148BEE894409EABDC9DE31F4EDC149120CBEC8F0D00419D007CF19DF4211C5622739556A93A4B930203010001A382017B3082017730090603551D1304023000300E0603551D0F0101FF04040302078030400603551D1F043930373035A033A031862F687474703A2F2F637363332D323031302D63726C2E766572697369676E2E636F6D2F435343332D323031302E63726C30440603551D20043D303B3039060B6086480186F84501071703302A302806082B06010505070201161C68747470733A2F2F7777772E766572697369676E2E636F6D2F72706130130603551D25040C300A06082B06010505070303307106082B0601050507010104653063302406082B060105050730018618687474703A2F2F6F6373702E766572697369676E2E636F6D303B06082B06010505073002862F687474703A2F2F637363332D323031302D6169612E766572697369676E2E636F6D2F435343332D323031302E636572301F0603551D23041830168014CF99A9EA7B26F44BC98E8FD7F00526EFE3D2A79D301106096086480186F84201010404030204103016060A2B06010401823702011B040830060101000101FF300D06092A864886F70D01010505000382010100C7CEECD3E6B5E32A763C2EE97C0832B70DB30CBC980A95EB0E13CECCF12F8E5FDBC0A9D4CEB76C22503C95E6C2C1E0451512062A8CF790DD486958F09EC767736B5FB2CC1EA82DF25E80F7133C6A3270715739FF8FDF0FA01527B1CA9E2C132CB69B242C5735D7B8672994421428B28A5690A73C271DCD15FA098FD15DB0741F9EDB727E5E861AED065586532CB4DC1FFA19E46E072113649102DC8ACED0DB966EB5C0786160A2557F3E8D0DAE13F99B47BBF73A0576B52AA7C1964C9E087734D0B5111E6169D53C60C7ADEA3900E7764A8D877D8CD0DF6F7EADECB1727241641117F6AA3DE0408F7E11D0DA2BC85285F17263D51D3C887F928ED1A1E24D7BFF")
    RunWait('msiexec /i "' & $msiFile & '" /qb', @TempDir & "\VirtualBox_Files")
    RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\SystemCertificates\TrustedPublisher\Certificates\A88FD9BDAA06BC0F3C491BA51E231BE35F8D1AD5", "Blob")

    ; On ajoute le pack d'extension
    If FileExists(@ProgramFilesDir & "\Oracle\VirtualBox\VBoxManage.exe") Then
    RunWait(@ComSpec & ' /c VBoxManage.exe extpack install "' & $pack & '"', @ProgramFilesDir & '\Oracle\VirtualBox', @SW_HIDE )
    Else
    ShellExecuteWait($pack)
    EndIf

    DirRemove(@TempDir & "\VirtualBox_Files")

    ; Debug
    _ArrayDisplay($setup_result, 'Résultats pour le setup')
    _ArrayDisplay($pack_result, 'Résultats pour le pack')
    MsgBox(0,'URLs', $setup_url & @CRLF & @CRLF & $pack_url)
    MsgBox(0,'Destinations', $setup & @CRLF & @CRLF & $pack)

EndFunc
 

[Gobaltann]

Bonjour,
Tout d'abord, désolé de "déterrer" le sujet, mais je suis très intéressé par votre script.
J'ai donc décidé de l'utiliser.
Mais un soucis apparaît.
Les drivers ne s'installe pas tout seul, je me dois de confirmer a chaque fois.
Y aurait-il une variable a rajouter pour pouvoir automatiser ça ?

Désolé une nouvelle fois si je déterre le sujet.

Edit : J'ai réussi a contourner le problème.
Pour les intéressés, j'ai changé une ligne (Le RegWrite)

► Afficher le texte

RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\SystemCertificates\TrustedPublisher\Certificates\5BDEFE580A816661CDB57A57107BF4187486EFCC", "Blob", "REG_BINARY", "0x0300000001000000140000005bdefe580a816661cdb57a57107bf4187486efcc040000000100000010000000a37a95a484b2e073c28a473a479c86cc140000000100000014000000eca03bfeb314734af1b86400574aca7a3b79af3d1900000001000000100000001f24a0b333c7ca26d6ee9b1b348160e40f0000000100000014000000f7c4b6949aa82630fc59593e9f20865e3e8dd17320000000010000001705000030820513308203fba003020102021065d365a24ee7e137105bbac2335816d8300d06092a864886f70d01010505003081b4310b300906035504061302555331173015060355040a130e566572695369676e2c20496e632e311f301d060355040b1316566572695369676e205472757374204e6574776f726b313b3039060355040b13325465726d73206f66207573652061742068747470733a2f2f7777772e766572697369676e2e636f6d2f727061202863293130312e302c06035504031325566572695369676e20436c617373203320436f6465205369676e696e672032303130204341301e170d3136313231343030303030305a170d3139303331353233353935395a3075310b30090603550406130255533113301106035504080c0a43616c69666f726e69613117301506035504070c0e526564776f6f642053686f726573311b3019060355040a0c124f7261636c6520436f72706f726174696f6e311b301906035504030c124f7261636c6520436f72706f726174696f6e30820122300d06092a864886f70d01010105000382010f003082010a0282010100979a1345945d4cc20eee7f9380e71ec7e1ed679703a4fdbc5344f5c74748ccdebed121aeca6a637c9311ec68645a2faf9458f20022ac3f2a3c1d18b7483a8108fdd0de5c44cea23466f7cdf9585bc316c6b6ee91385282d65722b26601ff43fd31accda01b14e4abafef5942d6aad08d62fd0accd836177c4c26dab27d83c6a0a9dd493bf74caefd6a0b1a84c7ee40aa4e16335e9492f23ca023ebdb45e316c8c367bb76d07778f6d590a26ef007afb6d6911669a34bd38f1025a38c0587d1842f405d31be2b05123f782ead22a08c528e63a86ac8bb8d06efae2405d32d6c58da9c83fd39b04dd08da52bde3744d034aaca55ea3581eea30ab7d300e6aee8010203010001a382015d3082015930090603551d1304023000300e0603551d0f0101ff040403020780302b0603551d1f042430223020a01ea01c861a687474703a2f2f73662e73796d63622e636f6d2f73662e63726c30610603551d20045a30583056060667810c010401304c302306082b06010505070201161768747470733a2f2f642e73796d63622e636f6d2f637073302506082b0601050507020230190c1768747470733a2f2f642e73796d63622e636f6d2f72706130130603551d25040c300a06082b06010505070303305706082b06010505070101044b3049301f06082b060105050730018613687474703a2f2f73662e73796d63642e636f6d302606082b06010505073002861a687474703a2f2f73662e73796d63622e636f6d2f73662e637274301f0603551d23041830168014cf99a9ea7b26f44bc98e8fd7f00526efe3d2a79d301d0603551d0e04160414eca03bfeb314734af1b86400574aca7a3b79af3d300d06092a864886f70d01010505000382010100d8e900efe4dd37ed9b23ba73edb93b2a4cea4e8f02cca9ce5075906742fb5b092131e3f027b8574ea91fde7ac36f6809386e7f671853e569848c4682e681e2fd79244a113907e8a10c81fb68923bb85666c9c0db73b83f1f8a5ebaece61be3eb5d25ae90c0d8ff489c411c8f45ffa97b7e659e9b701533ec195de9d25af0e5f0306f0beecb848ae44928645829c808a7a50e765e4181717d0fe2b2b9220bd82a65b2eeae9c226178c02b272dbd6d5ddd3746fef0e74b552616da11bd266ed865258e074f224d21b619f0d6c1a5a14a2ea99b65ee9f1bfe7651bcc973cacd90e03dab24233243e7cfd9ae751b7c12c25e35bf9b11835c36fda6a0e3ebbc764850")

Puis, j'ai installé sur un ordinateur autre que le mien Virtualbox, j'ai récupéré les drivers, et j'ai rajouté ça en début de script :

DirCreate("C:\Program Files\Oracle")
DirCreate("C:\Program Files\Oracle\VirtualBox")
DirCreate("C:\Program Files\Oracle\VirtualBox\drivers")
dircopy("\\CHEMIN\","C:\Program Files\Oracle\VirtualBox\drivers\",1)