Discussion :

[poussin_44]

Quelqu'un pourrait-il m'expliquer comment faire pour exécuter ce code vbs qui fonctionne très bien dans visual basic. Et si c'est possible d'abord. J'ai créé une listeBox avec une liste de logiciel à installer silencieusement mais je n'arrive pas à faire fonctionner mon script dans visual basic 2005

merci pou votre aide


Private Sub ListBox1_SelectedIndexChanged( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged

start /wait \\nantes01\Root\Install$\"Adobe Reader" \ "AdbeRdr80_fr_FR.exe" /sPB /rs

Msiexec /i \\nantes01\Root\Install$\"Adobe Player" \install_flash_player_plugin.msi /passive

End Sub

[Aspic]

Execute le dans le DOS à partir de ton programme :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
Private Sub ListBox1_SelectedIndexChanged( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
 
Process.Start("cmd.exe", "start /wait \\nantes01\Root\Install$\"Adobe Reader" \ "AdbeRdr80_fr_FR.exe" /sPB /rs")
 
Threading.Thread.Sleep(1000) 'attends une seconde
 
Process.Start("cmd.exe", "Msiexec /i \\nantes01\Root\Install$\"Adobe Player" \install_flash_player_plugin.msi /passive")
 
End Sub

Bonne chance

[poussin_44]

pour petite rectification, ce n'est pas du vbs mais bien une commande cmd.

Mais lorsque mon formulaire se lance, il lance bien l'invite de commande mais ne l'exécute pas. J'ai remplacé la listbox par un label mais cela n'a aucune importance car de toutes façon j'ai une petite liste de logiciel défini à installer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
    Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click
        Process.Start("cmd.exe", "Msiexec /i \\nantes01\Root\\Install$\7zip\7z442.msi /quiet")
    End Sub

Pourtant lorsque je mets cette ligne dans un fichier.cmd le logiciel s'installe bien

[Aspic]

pour petite rectification, ce n'est pas du vbs mais bien une commande cmd.

Mais lorsque mon formulaire se lance, il lance bien l'invite de commande mais ne l'exécute pas. J'ai remplacé la listbox par un label mais cela n'a aucune importance car de toutes façon j'ai une petite liste de logiciel défini à installer


Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click
Process.Start("cmd.exe", "Msiexec /i \\nantes01\Root\\Install$\7zip\7z442.msi /quiet")
End Sub

Pourtant lorsque je mets cette ligne dans un fichier.cmd le logiciel s'installe bien

Je n'y connais pas grand chose en Dos mais normalement il execute la commande (chez moi ca marche). Essaye avec 'ipconfig' et tu verras bien

PS: Penses aux balises CODE

[poussin_44]

j'ai donc essayé comme ci-dessous

Process.Start("cmd.exe", "<code>ipconfig /all</code>")

mais il me retourne The syntax of the command is incorrect.

Les balises CODE ne sont-elles pas prévues pour le HTML?

[Aspic]

Non les balises CODE c'est pour le code en VB.NET, C#... sur ce forum !! Il faut pas la mettre dans le code el la commande dos...

[poussin_44]

Ok, c'est enregistré.

Avec la syntax shell() j'arrive à exécuter certains logiciels (ici par exemple juste le 1er)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Shell("Msiexec /i \\nantes01\root\Install$\7zip\7z442.msi /quiet")
Threading.Thread.Sleep(1000) 
Shell("start /wait \\nantes01\Root\Install$\Adobe Reader\AdbeRdr80_fr_FR.exe /sPB /rs")
Threading.Thread.Sleep(1000) 
Shell("start /wait \\nantes01\Root\Install$\Java\jre-6u1-windows-i586-p-s.exe /passive")

Sinon il me mets que le fichier est introuvable alors que cette commande fonctionne très bien dans un fichier.cmd

[poussin_44]

En fait un des problèmes est que pour lancer l'exécution silencieuse d'un logiciel, il n'accepte pas les espace donc je mets des "".
Mais vb ne les acceptes pas !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Shell("Msiexec /i "\\nantes.ares.ssii\root\Install$\Lotus Domino\CAS1\Lotus Notes 7.0.1 fr.msi" /passive")

[Aspic]

En fait un des problèmes est que pour lancer l'exécution silencieuse d'un logiciel, il n'accepte pas les espace donc je mets des "".
Mais vb ne les acceptes pas !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Shell("Msiexec /i "\\nantes.ares.ssii\root\Install$\Lotus Domino\CAS1\Lotus Notes 7.0.1 fr.msi" /passive")

Oui Shell est une autre solution ! Mais les espaces sont acceptés ! ?

[poussin_44]

Pour ceux que ca intéresse, voici la commande que j'ai inseré dans mon code pour l'exécution de commande cmd que je n'arrivais pas à lancer via vb2005 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

System.Diagnostics.Process.Start("chemin\du\fichier.cmd")

et la ça fonctionne nickel

[Aspic]

Mais ca aussi ca marche :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 Process.Start("cmd.Exe", "/c start Y:\Sillicon\tutos.txt")