envoi de variable vers une page php

Version imprimable

20/05/2011, 11h53
atchoum17

envoi de variable vers une page php

bonjour à tous,

j'ai un script en vbs qui me permet de récupérer certaines données utiles d'un fichier sur un poste client pour les mettre dans une base de données sur un poste serveur. cependant, j'aimerai envoyer mes variables de mon vbs,qui sera sur chaque poste client, vers une page php sur le serveur pour alléger le plus possible les traitement effectués par le poste client.

D'après mes recherches, il faudrait que j'utilise l'objet XMLhttp mais je ne comprend comment ça fonctionne.

Quelqu'un pourrait m'expliquer avec un exemple svp?

merci d'avance.
20/05/2011, 12h52
hackoofr

Citation:

Envoyé par atchoum17

bonjour à tous,
j'ai un script en vbs qui me permet de récupérer certaines données utiles d'un fichier sur un poste client pour les mettre dans une base de données sur un poste serveur. cependant, j'aimerai envoyer mes variables de mon vbs,qui sera sur chaque poste client, vers une page php sur le serveur pour alléger le plus possible les traitement effectués par le poste client.
D'après mes recherches, il faudrait que j'utilise l'objet XMLhttp mais je ne comprend comment ça fonctionne.
Quelqu'un pourrait m'expliquer avec un exemple svp?
merci d'avance.

:salut:
et il y a quoi comme instructions dans ton fichier VBS ? :koi: il faut faire un copier coller de ta source pour qu'on puisse comprendre mieux ta requête et n'oublies pas surtout de mettre ton code entre les balises :tagcode:
:merci:

en fait mon script VBS permet de traiter les résultats de Iperf

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
set objfichier=CreateObject("Scripting.FileSystemObject")
set monfichier=objfichier.OpenTextFile("D:\iperf\debit.txt",1)
 
Do While not monfichier.AtEndOfStream
 for i=1 to 7 step 1         'selection de la ligne 7 contenant l'Ip
 ligne=monfichier.ReadLine
 next
 tabip=split(ligne)      ' stockage des chaines dans un tableau en utilisant le délimiteur "espace"
 wscript.echo "IP consultée " & tabip(4)  'selection dans le tableau et affichage de l'emplacement de l'ip
 ligne=monfichier.ReadLine 'selection de la ligne 8 contenant le débit
 tabdebit=split(ligne)   ' stockage des chaines dans un tableau en utilisant le délimiteur "espace"
 if tabdebit(12)="" then
 wscript.echo "Voici le debit de cette adresse " & tabdebit(14) & " Mbits/s" 'selection dans le tableau et affichage du débit
 debit=tabdebit(14)
 else
 wscript.echo "Voici le debit de cette adresse " & tabdebit(12) & " Mbits/s"
 debit=tabdebit(12)
 end if
 ligne=monfichier.ReadLine
 Loop
 
 
 
 
Set conn = CreateObject("ADODB.Connection")
Connexion = "DRIVER={MySQL ODBC 5.1 Driver};SERVER=10.*.**.**;DATABASE=test_debit;UID=*****;PASSWORD=*****;"
conn.CommandTimeout = 30
conn.Open connexion
set rst=CreateObject("ADODB.Recordset")
strSQL="Insert into poste (add_ip,nom_machine) VALUES ('" & tabip(4) & "','" & debit &"');"
rst.open strSQL, conn
 
Set Rst = Nothing
conn.close
set conn= Nothing

comme tu peux le voir, je me connecte à ma BDD MySQL directement dans le VBS mais cela nécessite l'installation d'un driver. C'est pour ça que je souhaiterai passer par un page php et récupérer mes valeurs

23/05/2011, 09h48
Othasm

Bonjour, je cherche aussi à envoyer mes variables VBS vers un php, par conséquent une réponse m’intéresserais aussi SVP.