Besoin d'aide pour developpement vbs dans html

Jean-Claude BELLAMY

08/09/2004 à 16:57

Dans le message news:%23$RaK% ,
Olivier s'est ainsi exprimé:

Bonjour à tous,

J'aurais besoin d'un exemple pour un petit bout de code.

J'ai une fonction vbs qui affiche la liste des services d'une machine
w2000, le nom de cette machine étant passé en parametre à ma fonction
vbs lit_services().

Mon probleme :

Je voudrais faire une page html avec une premiere liste deroulante
dans laquelle je peux choisir le nom de la machine (les noms seront
préalablement saisies), quand une machine est selectionnée je clic
sur "valider" => execution de ma fonction lit_service(nom_machine) le
nom de la machine selectionnée est passé en parametre, le resultat de
ma fonction rempli une seconde liste deroulante.

Mon probleme est que je ne sais absolument pas comment faire
interagir les fonction vbs avec le code html !!!!

Si quelqu'un pouvais me fournir un exemple ....

Principes :
http://www.bellamyjc.org/fr/vbsavance.html#formulaires

Exemples (utilisant un formulaire HTML) :
http://www.bellamyjc.org/fr/vbsdownload.html#logusers
http://www.bellamyjc.org/fr/vbsdownload.html#processus
http://www.bellamyjc.org/fr/vbsdownload.html#setregedit
http://www.bellamyjc.org/fr/vbsdownload.html#showadm

--
May the Force be with You!
La Connaissance s'accroît quand on la partage
----------------------------------------------------------
Jean-Claude BELLAMY [MVP] - http://www.bellamyjc.org
http://www.bellamyjc.org *

Olivier

08/09/2004 à 17:38

Merci pour tes info,

Mais en fait j'ai besoin d'une page html depuis laquelle j'execute mes
fonctions VBS qui vont modifier le contenu des listes deroulante de la page
web.

Olivier

"Jean-Claude BELLAMY" a écrit dans le
message de news:

Dans le message news:%23$RaK% ,
Olivier s'est ainsi exprimé:

Bonjour à tous,

J'aurais besoin d'un exemple pour un petit bout de code.

J'ai une fonction vbs qui affiche la liste des services d'une machine
w2000, le nom de cette machine étant passé en parametre à ma fonction
vbs lit_services().

Mon probleme :

Je voudrais faire une page html avec une premiere liste deroulante
dans laquelle je peux choisir le nom de la machine (les noms seront
préalablement saisies), quand une machine est selectionnée je clic
sur "valider" => execution de ma fonction lit_service(nom_machine) le
nom de la machine selectionnée est passé en parametre, le resultat de
ma fonction rempli une seconde liste deroulante.

Mon probleme est que je ne sais absolument pas comment faire
interagir les fonction vbs avec le code html !!!!

Si quelqu'un pouvais me fournir un exemple ....

Principes :
http://www.bellamyjc.org/fr/vbsavance.html#formulaires

Exemples (utilisant un formulaire HTML) :
http://www.bellamyjc.org/fr/vbsdownload.html#logusers
http://www.bellamyjc.org/fr/vbsdownload.html#processus
http://www.bellamyjc.org/fr/vbsdownload.html#setregedit
http://www.bellamyjc.org/fr/vbsdownload.html#showadm

--
May the Force be with You!
La Connaissance s'accroît quand on la partage
----------------------------------------------------------
Jean-Claude BELLAMY [MVP] - http://www.bellamyjc.org
http://www.bellamyjc.org *

Jean

08/09/2004 à 23:32

Bonjour,

http://automation.eu.tf/double_liste.hta


<script defer language='vbscript'>
Liste_Disques
With B1
.Value="Valider"
.Onclick=GetRef("Actualiser_Liste_S2")
End With

Sub Liste_Disques
Set disques=CreateObject("Scripting.FileSystemObject")_
.Drives
For Each d in disques
With d
If .DriveType=2 Then
If .IsReady Then _
Remplir_Liste_S1(.DriveLetter)
End If
End With
Next
End Sub

Sub Remplir_Liste_S1(quoi)
Set eliste=Document.CreateElement("option")
S1.Options.Add(eliste)
With eliste
.InnerText=quoi
.Value=quoi
End With
End Sub

Sub Info_Disque(quoi)
With CreateObject("Scripting.FileSystemObject")_
.GetDrive(quoi)
Remplir_Liste_S2(.RootFolder)
Remplir_Liste_S2(.SerialNumber)
End With
End Sub

Sub Remplir_Liste_S2(quoi)
Set eliste=Document.CreateElement("option")
S2.Options.Add(eliste)
eliste.InnerText=quoi
End Sub

Sub Vider_Liste_S2
With S2.Options
For i=0 To .Length
.Remove(0)
Next
End With
End Sub

Sub Actualiser_Liste_S2
Vider_Liste_S2
With S1
Info_Disque(.Options(.SelectedIndex).Value)
End With
End Sub
</script>

<select id=S1></select><select id=S2></select><br>
<input id± type='button'>


Amicalement,

Jean - JMST
Belgium

"Olivier" a écrit dans le message de news: %23$RaK%

Bonjour à tous,

J'aurais besoin d'un exemple pour un petit bout de code.

J'ai une fonction vbs qui affiche la liste des services d'une machine w2000,
le nom de cette machine étant passé en parametre à ma fonction vbs
lit_services().

Mon probleme :

Je voudrais faire une page html avec une premiere liste deroulante dans
laquelle je peux choisir le nom de la machine (les noms seront préalablement
saisies), quand une machine est selectionnée je clic sur "valider" =>
execution de ma fonction lit_service(nom_machine) le nom de la machine
selectionnée est passé en parametre, le resultat de ma fonction rempli une
seconde liste deroulante.

Mon probleme est que je ne sais absolument pas comment faire interagir les
fonction vbs avec le code html !!!!

Si quelqu'un pouvais me fournir un exemple ....

Merci d'avance

Olivier

Bonjour,

http://automation.eu.tf/double_liste.hta


<script defer language='vbscript'>
Liste_Disques
With B1
.Value="Valider"
.Onclick=GetRef("Actualiser_Liste_S2")
End With

Sub Liste_Disques
Set disques=CreateObject("Scripting.FileSystemObject")_
.Drives
For Each d in disques
With d
If .DriveType=2 Then
If .IsReady Then _
Remplir_Liste_S1(.DriveLetter)
End If
End With
Next
End Sub

Sub Remplir_Liste_S1(quoi)
Set eliste=Document.CreateElement("option")
S1.Options.Add(eliste)
With eliste
.InnerText=quoi
.Value=quoi
End With
End Sub

Sub Info_Disque(quoi)
With CreateObject("Scripting.FileSystemObject")_
.GetDrive(quoi)
Remplir_Liste_S2(.RootFolder)
Remplir_Liste_S2(.SerialNumber)
End With
End Sub

Sub Remplir_Liste_S2(quoi)
Set eliste=Document.CreateElement("option")
S2.Options.Add(eliste)
eliste.InnerText=quoi
End Sub

Sub Vider_Liste_S2
With S2.Options
For i=0 To .Length
.Remove(0)
Next
End With
End Sub

Sub Actualiser_Liste_S2
Vider_Liste_S2
With S1
Info_Disque(.Options(.SelectedIndex).Value)
End With
End Sub
</script>

<select id=S1></select><select id=S2></select><br>
<input id± type='button'>


Amicalement,

Jean - JMST
Belgium

"Olivier" <olivier.cordiero@wanadoo.fr> a écrit dans le message de news: %23$RaK%23alEHA.2340@TK2MSFTNGP11.phx.gbl...

Bonjour à tous,

J'aurais besoin d'un exemple pour un petit bout de code.

J'ai une fonction vbs qui affiche la liste des services d'une machine w2000,
le nom de cette machine étant passé en parametre à ma fonction vbs
lit_services().

Mon probleme :

Je voudrais faire une page html avec une premiere liste deroulante dans
laquelle je peux choisir le nom de la machine (les noms seront préalablement
saisies), quand une machine est selectionnée je clic sur "valider" =>
execution de ma fonction lit_service(nom_machine) le nom de la machine
selectionnée est passé en parametre, le resultat de ma fonction rempli une
seconde liste deroulante.

Mon probleme est que je ne sais absolument pas comment faire interagir les
fonction vbs avec le code html !!!!

Si quelqu'un pouvais me fournir un exemple ....

Merci d'avance

Olivier

Vous avez filtré cet utilisateur ! Consultez son message

Bonjour,

http://automation.eu.tf/double_liste.hta


<script defer language='vbscript'>
Liste_Disques
With B1
.Value="Valider"
.Onclick=GetRef("Actualiser_Liste_S2")
End With

Sub Liste_Disques
Set disques=CreateObject("Scripting.FileSystemObject")_
.Drives
For Each d in disques
With d
If .DriveType=2 Then
If .IsReady Then _
Remplir_Liste_S1(.DriveLetter)
End If
End With
Next
End Sub

Sub Remplir_Liste_S1(quoi)
Set eliste=Document.CreateElement("option")
S1.Options.Add(eliste)
With eliste
.InnerText=quoi
.Value=quoi
End With
End Sub

Sub Info_Disque(quoi)
With CreateObject("Scripting.FileSystemObject")_
.GetDrive(quoi)
Remplir_Liste_S2(.RootFolder)
Remplir_Liste_S2(.SerialNumber)
End With
End Sub

Sub Remplir_Liste_S2(quoi)
Set eliste=Document.CreateElement("option")
S2.Options.Add(eliste)
eliste.InnerText=quoi
End Sub

Sub Vider_Liste_S2
With S2.Options
For i=0 To .Length
.Remove(0)
Next
End With
End Sub

Sub Actualiser_Liste_S2
Vider_Liste_S2
With S1
Info_Disque(.Options(.SelectedIndex).Value)
End With
End Sub
</script>

<select id=S1></select><select id=S2></select><br>
<input id± type='button'>


Amicalement,

Jean - JMST
Belgium

"Olivier" a écrit dans le message de news: %23$RaK%

Bonjour à tous,

J'aurais besoin d'un exemple pour un petit bout de code.

J'ai une fonction vbs qui affiche la liste des services d'une machine w2000,
le nom de cette machine étant passé en parametre à ma fonction vbs
lit_services().

Mon probleme :

Je voudrais faire une page html avec une premiere liste deroulante dans
laquelle je peux choisir le nom de la machine (les noms seront préalablement
saisies), quand une machine est selectionnée je clic sur "valider" =>
execution de ma fonction lit_service(nom_machine) le nom de la machine
selectionnée est passé en parametre, le resultat de ma fonction rempli une
seconde liste deroulante.

Mon probleme est que je ne sais absolument pas comment faire interagir les
fonction vbs avec le code html !!!!

Si quelqu'un pouvais me fournir un exemple ....

Merci d'avance

Olivier

Olivier

09/09/2004 à 15:52

Super !!!

Merci pour ton aide.

Olivier

"Jean" <http:// a écrit dans le message de
news:

Bonjour,

http://automation.eu.tf/double_liste.hta


<script defer language='vbscript'>
Liste_Disques
With B1
.Value="Valider"
.Onclick=GetRef("Actualiser_Liste_S2")
End With

Sub Liste_Disques
Set disques=CreateObject("Scripting.FileSystemObject")_
.Drives
For Each d in disques
With d
If .DriveType=2 Then
If .IsReady Then _
Remplir_Liste_S1(.DriveLetter)
End If
End With
Next
End Sub

Sub Remplir_Liste_S1(quoi)
Set eliste=Document.CreateElement("option")
S1.Options.Add(eliste)
With eliste
.InnerText=quoi
.Value=quoi
End With
End Sub

Sub Info_Disque(quoi)
With CreateObject("Scripting.FileSystemObject")_
.GetDrive(quoi)
Remplir_Liste_S2(.RootFolder)
Remplir_Liste_S2(.SerialNumber)
End With
End Sub

Sub Remplir_Liste_S2(quoi)
Set eliste=Document.CreateElement("option")
S2.Options.Add(eliste)
eliste.InnerText=quoi
End Sub

Sub Vider_Liste_S2
With S2.Options
For i=0 To .Length
.Remove(0)
Next
End With
End Sub

Sub Actualiser_Liste_S2
Vider_Liste_S2
With S1
Info_Disque(.Options(.SelectedIndex).Value)
End With
End Sub
</script>

<select id=S1></select><select id=S2></select><br>
<input id± type='button'>


Amicalement,

Jean - JMST
Belgium

"Olivier" a écrit dans le message de news:
%23$RaK%

Bonjour à tous,

J'aurais besoin d'un exemple pour un petit bout de code.

J'ai une fonction vbs qui affiche la liste des services d'une machine
w2000,

le nom de cette machine étant passé en parametre à ma fonction vbs
lit_services().

Mon probleme :

Je voudrais faire une page html avec une premiere liste deroulante dans
laquelle je peux choisir le nom de la machine (les noms seront
préalablement

saisies), quand une machine est selectionnée je clic sur "valider" =>
execution de ma fonction lit_service(nom_machine) le nom de la machine
selectionnée est passé en parametre, le resultat de ma fonction rempli
une

seconde liste deroulante.

Mon probleme est que je ne sais absolument pas comment faire interagir
les

fonction vbs avec le code html !!!!

Si quelqu'un pouvais me fournir un exemple ....

Merci d'avance

Olivier

Super !!!

Merci pour ton aide.

Olivier

"Jean" <http://courrier@jmst.be.tf> a écrit dans le message de
news:O62QetelEHA.1244@TK2MSFTNGP15.phx.gbl...

Bonjour,

http://automation.eu.tf/double_liste.hta


<script defer language='vbscript'>
Liste_Disques
With B1
.Value="Valider"
.Onclick=GetRef("Actualiser_Liste_S2")
End With

Sub Liste_Disques
Set disques=CreateObject("Scripting.FileSystemObject")_
.Drives
For Each d in disques
With d
If .DriveType=2 Then
If .IsReady Then _
Remplir_Liste_S1(.DriveLetter)
End If
End With
Next
End Sub

Sub Remplir_Liste_S1(quoi)
Set eliste=Document.CreateElement("option")
S1.Options.Add(eliste)
With eliste
.InnerText=quoi
.Value=quoi
End With
End Sub

Sub Info_Disque(quoi)
With CreateObject("Scripting.FileSystemObject")_
.GetDrive(quoi)
Remplir_Liste_S2(.RootFolder)
Remplir_Liste_S2(.SerialNumber)
End With
End Sub

Sub Remplir_Liste_S2(quoi)
Set eliste=Document.CreateElement("option")
S2.Options.Add(eliste)
eliste.InnerText=quoi
End Sub

Sub Vider_Liste_S2
With S2.Options
For i=0 To .Length
.Remove(0)
Next
End With
End Sub

Sub Actualiser_Liste_S2
Vider_Liste_S2
With S1
Info_Disque(.Options(.SelectedIndex).Value)
End With
End Sub
</script>

<select id=S1></select><select id=S2></select><br>
<input id± type='button'>


Amicalement,

Jean - JMST
Belgium

"Olivier" <olivier.cordiero@wanadoo.fr> a écrit dans le message de news:
%23$RaK%23alEHA.2340@TK2MSFTNGP11.phx.gbl...

Bonjour à tous,

J'aurais besoin d'un exemple pour un petit bout de code.

J'ai une fonction vbs qui affiche la liste des services d'une machine
w2000,

le nom de cette machine étant passé en parametre à ma fonction vbs
lit_services().

Mon probleme :

Je voudrais faire une page html avec une premiere liste deroulante dans
laquelle je peux choisir le nom de la machine (les noms seront
préalablement

saisies), quand une machine est selectionnée je clic sur "valider" =>
execution de ma fonction lit_service(nom_machine) le nom de la machine
selectionnée est passé en parametre, le resultat de ma fonction rempli
une

seconde liste deroulante.

Mon probleme est que je ne sais absolument pas comment faire interagir
les

fonction vbs avec le code html !!!!

Si quelqu'un pouvais me fournir un exemple ....

Merci d'avance

Olivier

Vous avez filtré cet utilisateur ! Consultez son message

Super !!!

Merci pour ton aide.

Olivier

"Jean" <http:// a écrit dans le message de
news:

Bonjour,

http://automation.eu.tf/double_liste.hta


<script defer language='vbscript'>
Liste_Disques
With B1
.Value="Valider"
.Onclick=GetRef("Actualiser_Liste_S2")
End With

Sub Liste_Disques
Set disques=CreateObject("Scripting.FileSystemObject")_
.Drives
For Each d in disques
With d
If .DriveType=2 Then
If .IsReady Then _
Remplir_Liste_S1(.DriveLetter)
End If
End With
Next
End Sub

Sub Remplir_Liste_S1(quoi)
Set eliste=Document.CreateElement("option")
S1.Options.Add(eliste)
With eliste
.InnerText=quoi
.Value=quoi
End With
End Sub

Sub Info_Disque(quoi)
With CreateObject("Scripting.FileSystemObject")_
.GetDrive(quoi)
Remplir_Liste_S2(.RootFolder)
Remplir_Liste_S2(.SerialNumber)
End With
End Sub

Sub Remplir_Liste_S2(quoi)
Set eliste=Document.CreateElement("option")
S2.Options.Add(eliste)
eliste.InnerText=quoi
End Sub

Sub Vider_Liste_S2
With S2.Options
For i=0 To .Length
.Remove(0)
Next
End With
End Sub

Sub Actualiser_Liste_S2
Vider_Liste_S2
With S1
Info_Disque(.Options(.SelectedIndex).Value)
End With
End Sub
</script>

<select id=S1></select><select id=S2></select><br>
<input id± type='button'>


Amicalement,

Jean - JMST
Belgium

"Olivier" a écrit dans le message de news:
%23$RaK%

Bonjour à tous,

J'aurais besoin d'un exemple pour un petit bout de code.

J'ai une fonction vbs qui affiche la liste des services d'une machine
w2000,

le nom de cette machine étant passé en parametre à ma fonction vbs
lit_services().

Mon probleme :

Je voudrais faire une page html avec une premiere liste deroulante dans
laquelle je peux choisir le nom de la machine (les noms seront
préalablement

saisies), quand une machine est selectionnée je clic sur "valider" =>
execution de ma fonction lit_service(nom_machine) le nom de la machine
selectionnée est passé en parametre, le resultat de ma fonction rempli
une

seconde liste deroulante.

Mon probleme est que je ne sais absolument pas comment faire interagir
les

fonction vbs avec le code html !!!!

Si quelqu'un pouvais me fournir un exemple ....

Merci d'avance

Olivier

Besoin d'aide pour developpement vbs dans html

4 réponses

Veuillez sélectionner un problème