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 |
Partager