recuperer les resultats d un script Dans une BD heilp svp Urgent - Archives ASP & ASP.NET / VBScript, ASP / ASP.NET

CodeS-SourceS est hébergé par Frontier.fr

Ce site au démarrage

AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

begin process at 2009 07 06 07:23:42

SILVERLIGHT 3 : COMMUNICATION ET MULTICAST par KooKiz

[PERSO] DéCOUVERTES ESTIVALES : LINUX (PART I) par FREMYCOMPANY

[REFACTORING] RESHARPER POUR VISUAL STUDIO 2010 (PREVIEW) par tja

[REFACTORING] ANALYSER VOS EXCEPTIONS AVEC RESHARPER EXCEPTIONAL par tja

SHAREPOINT 2007 : PATTERNS & PRACTICES SHAREPOINT GUIDANCE par phil

RE : INTERNET EXPLOREUR 8,RESTREINTE DE L'EXECUTION DES SCRIPTS OU DES CONTRôLES ACTIVESX par cool26

RE : CONNEXION SQL - CRYSTAL REPORT par simou12

RE : INTERNET EXPLOREUR 8,RESTREINTE DE L'EXECUTION DES SCRIPTS OU DES CONTRôLES ACTIVESX par ghuysmans99

RE : INTERNET EXPLOREUR 8,RESTREINTE DE L'EXECUTION DES SCRIPTS OU DES CONTRôLES ACTIVESX par cool26

RE : INTERNET EXPLOREUR 8,RESTREINTE DE L'EXECUTION DES SCRIPTS OU DES CONTRôLES ACTIVESX par ghuysmans99

+ de logiciels à télécharger

1 465 014 membres
64 nouveaux aujourd'hui
15 046 membres club

Trouver une ressource

Trouvez une ressource parmi 40 094 codes, 1 303 049 messages d'aide etc...

Recherche: dans [ Dernières recherches ]

Filtre:Tous les codes.NET uniquementExclure .NET

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

Poser une question

Sujet : recuperer les resultats d un script Dans une BD heilp svp Urgent [ Archives ASP & ASP.NET / VBScript ] (mohax007)

Informations & options pour cette discussion

Vous êtes ici : Thèmes / Archive ASP & ASP.NET / Archives ASP & ASP.NET / VBScript / recuperer les resultats d un script Dans une BD heilp svp Urgent
Ce sujet vous interesse ? Cliquez ici pour être averti quand il y a une nouvelle réponse

vendredi 17 juin 2005 à 11:38:36 | recuperer les resultats d un script Dans une BD heilp svp Urgent

mohax007

bonjour a tous

je vous expose mon Probleme que voici:

J ai fait un script VBS Qui me permet de recuperer les infos sur mes disques c est a dire Espace totale ainsi que le pourcentage d espace Libre.Maintenant je souhaiterais que ces infos soit stocker dansune base de données et enfin envoyé vers un fichier excel pour pourvoir effectuer des statistiques et des graphes sr l evolution de mon espace disque dans la durée!!!

voila est ce possible de faire cela et si oui est ce que quelqu un pourrait m orienter merci!!!

Voila Mon script si cela peut aider la compréhension

'----------------------------------------------------------
' Script de description des Hdd dans une page web
' ----------------------------------------------------------
Dim cnt
dim Aff()
dim Aff0()
dim Aff1()
dim Aff2()
dim Aff3()

cnt = 0
Redim Aff(cnt)
Redim Aff0(cnt)
Redim Aff1(cnt)
Redim Aff2(cnt)
Redim Aff3(cnt)

Select Case WScript.Arguments.Count
Case 0
' Default if none specified is local computer (".")
Set objWMIService = GetObject( "winmgmts://./root/cimv2" )
Set colItems = objWMIService.ExecQuery( "Select * from Win32_ComputerSystem", , 48 )
For Each objItem in colItems
strComputer = objItem.Name
Next
Case 1
' Command line parameter can either be a computer name
' or "/?" to request online help
strComputer = Wscript.Arguments(0)
if InStr( strComputer, "?" ) > 0 Then Syntax
Case Else
' Maximum is 1 command line parameter
Syntax
End Select

Display( strComputer )

Function Display( strComputer )
On Error Resume Next
Set objWMIService = GetObject( "winmgmts://" & strComputer & "/root/cimv2" )
If Err.Number Then
WScript.Echo vbCrLf & "Error # " & CStr( Err.Number ) & _
" " & Err.Description
Err.Clear
Syntax
End If
On Error GoTo 0
' Set colItems = objWMIService.ExecQuery("Select * from Win32_LogicalDisk where MediaType=12",,48)
Set colItems = objWMIService.ExecQuery("Select * from Win32_LogicalDisk where DriveType=3",,48)
For Each objItem in colItems
Aff(cnt) = strComputer
Aff0(cnt) = objItem.Name & vbTab
Aff1(cnt) = CStr( Int( 0.5 + ( objItem.Size / 1073741824 ) ) )
Aff2(cnt) = CStr( Int( 0.5 + ( objItem.FreeSpace / 1073741824 ) ) )
Aff3(cnt) = CStr( Int( 0.5 + ( 100 * objItem.FreeSpace / objItem.Size) ) ) & _
vbCrLf
cnt = cnt + 1
Redim Preserve Aff(cnt)
Redim Preserve Aff0(cnt)
Redim Preserve Aff1(cnt)
Redim Preserve Aff2(cnt)
Redim Preserve Aff3(cnt)
Next
End Function

' ----------------------------------------------------------
Dim fso
Set fso = WScript.CreateObject("Scripting.FileSystemObject")
DestHtml = "hd.html"
CreateHTML DestHTML

Sub CreateHTML(filename)
dim ts
set ts=fso.CreateTextFile(filename,true)
ts.writeline "<HTML>"
ts.WriteLine "<BODY>"
ts.WriteLine "<CENTER><H3>Affiche les informations des HDD</H3>"
ts.writeline "<table border=1 cellspacing=1 width=100%>"
ts.writeline "<tr>"
ts.writeline "<td width=20%>"
ts.writeline "Name</td>"
ts.writeline "<td width=20%>"
ts.writeline "Drive</td>"
ts.writeline "<td width=20%>"
ts.writeline "Size</td>"
ts.writeline "<td width=20%>"
ts.writeline "Free</td>"
ts.writeline "<td width=20%>"
ts.writeline "% Free</td>"
ts.writeline "</tr>"
ts.writeline "<tr>"
for i = 0 to cnt
ts.writeline "<td width=20%>" & Aff(i) & "</td>"
ts.writeline "<td width=20%>" & Aff0(i) & "</td>"
ts.writeline "<td width=20%>" & Aff1(i) & "</td>"
ts.writeline "<td width=20%>" & Aff2(i) & "</td>"
ts.writeline "<td width=20%>" & Aff3(i) & "</td>"
ts.writeline "</tr>"
next

ts.writeline "</table>"
ts.writeline " "
ts.writeline " "
ts.writeline " "
ts.writeline " "
ts.writeline " "
ts.writeline " "
ts.writeline " "
ts.writeline " "
ts.writeline " "
ts.writeline " "
ts.writeline " "
ts.writeline "Fait le 14 juin 2005 par Mohax qui pète un plomb lol"
ts.WriteLine "</CENTER></BODY>"
ts.WriteLine "</HTML>"
ts.close
End Sub

merci davance a tous

mercredi 22 juin 2005 à 09:24:35 | Re : recuperer les resultats d un script Dans une BD help svp Urgent

mohax007

Réponse acceptée !
En faite avec le code ci dessus ca creer Une nouvelle Base de donnée si j ai bien compris biensur desolé je debute lool

En faite MOi ma base est deja creé sous Access elle est Nommé "BdDisque" avec une Table Applée "EspaceDisque" ET qui contient les champs suivants:
"Nom"
"Drive"
"Size"
"Free"
"Pourcentage"
"Date "
Moi je souhaite UNIQUEMENT ENVOYER LES DONNEES RENVOYe PAR MON SCRIPT dans ma base de données que j ai deja creé sur Access . Il faut que a chaque lancement du script les données soit memorise dans cette base voila
ALors si quelqu un pouvait m aider se serais sympa merci
voici mon script qui fonctionne deja pour la recuperation des données:

'----------------------------------------------------------
' Script de description des Hdd dans une page web
' ----------------------------------------------------------
Dim cnt
dim Aff()
dim Aff0()
dim Aff1()
dim Aff2()
dim Aff3()

cnt = 0
Redim Aff(cnt)
Redim Aff0(cnt)
Redim Aff1(cnt)
Redim Aff2(cnt)
Redim Aff3(cnt)

Select Case WScript.Arguments.Count
Case 0
' Default if none specified is local computer (".")
Set objWMIService = GetObject( "winmgmts://./root/cimv2" )
Set colItems = objWMIService.ExecQuery( "Select * from Win32_ComputerSystem", , 48 )
For Each objItem in colItems
strComputer = objItem.Name
Next
Case 1
' Command line parameter can either be a computer name
' or "/?" to request online help
strComputer = Wscript.Arguments(0)
if InStr( strComputer, "?" ) > 0 Then Syntax
Case Else
' Maximum is 1 command line parameter
Syntax
End Select

Display( strComputer )

Function Display( strComputer )
On Error Resume Next
Set objWMIService = GetObject( "winmgmts://" & strComputer & "/root/cimv2" )
If Err.Number Then
WScript.Echo vbCrLf & "Error # " & CStr( Err.Number ) & _
" " & Err.Description
Err.Clear
Syntax
End If
On Error GoTo 0
' Set colItems = objWMIService.ExecQuery("Select * from Win32_LogicalDisk where MediaType=12",,48)
Set colItems = objWMIService.ExecQuery("Select * from Win32_LogicalDisk where DriveType=3",,48)
For Each objItem in colItems
Aff(cnt) = strComputer
Aff0(cnt) = objItem.Name & vbTab
Aff1(cnt) = CStr( Int( 0.5 + ( objItem.Size / 1073741824 ) ) )
Aff2(cnt) = CStr( Int( 0.5 + ( objItem.FreeSpace / 1073741824 ) ) )
Aff3(cnt) = CStr( Int( 0.5 + ( 100 * objItem.FreeSpace / objItem.Size) ) ) & _
vbCrLf
cnt = cnt + 1
Redim Preserve Aff(cnt)
Redim Preserve Aff0(cnt)
Redim Preserve Aff1(cnt)
Redim Preserve Aff2(cnt)
Redim Preserve Aff3(cnt)
Next
End Function

' ----------------------------------------------------------
Dim fso
Set fso = WScript.CreateObject("Scripting.FileSystemObject")
DestHtml = "hd.html"
CreateHTML DestHTML

Sub CreateHTML(filename)
dim ts
set ts=fso.CreateTextFile(filename,true)
ts.writeline "<HTML>"
ts.WriteLine "<BODY>"
ts.WriteLine "<CENTER><H3>Affiche les informations des HDD</H3>"
ts.writeline "<table border=1 cellspacing=1 width=100%>"
ts.writeline "<tr>"
ts.writeline "<td width=20%>"
ts.writeline "Name</td>"
ts.writeline "<td width=20%>"
ts.writeline "Drive</td>"
ts.writeline "<td width=20%>"
ts.writeline "Size</td>"
ts.writeline "<td width=20%>"
ts.writeline "Free</td>"
ts.writeline "<td width=20%>"
ts.writeline "% Free</td>"
ts.writeline "</tr>"
ts.writeline "<tr>"
for i = 0 to cnt
ts.writeline "<td width=20%>" & Aff(i) & "</td>"
ts.writeline "<td width=20%>" & Aff0(i) & "</td>"
ts.writeline "<td width=20%>" & Aff1(i) & "</td>"
ts.writeline "<td width=20%>" & Aff2(i) & "</td>"
ts.writeline "<td width=20%>" & Aff3(i) & "</td>"
ts.writeline "</tr>"
next

ts.writeline "</table>"
ts.writeline " "
ts.writeline " "
ts.writeline " "
ts.writeline " "
ts.writeline " "
ts.writeline " "
ts.writeline " "
ts.writeline " "
ts.writeline " "
ts.writeline " "
ts.writeline " "
ts.writeline "Fait le 14 juin 2005 par Mohax qui pète un plomb lol"
ts.WriteLine "</CENTER></BODY>"
ts.WriteLine "</HTML>"
ts.close
End Sub

mercredi 22 juin 2005 à 09:29:56 | Re : recuperer les resultats d un script Dans une BD heilp svp Urgent

mohax007

le code suivant creer une base nouvelle si j ai bien car je debute donc je ne saisie pas tout alors si quelqu un pouvai m eclairer se serai symaptocheee
voila en faite moi je ne veux pas de ca je veux juste recuperer mes infon dans une base existante voila aidé moi merccccii

'----------------------------------------------------------
' Script de description des Hdd dans une page web
' ----------------------------------------------------------
'
'*************************************************************************
'Constante d'accèss au fichier *.mdb

Const adOpenStatic = 3
Const adLockOptimistic = 3
Const adUseClient = 3

Const MoteurDeRecherche = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" '
' Déclaration des variables de la base de données ACCESS
'
Dim oFS, Disque, Fichier, AccesFichier

Dim objConnection
Dim objRecordset
'Dim AccesFichier
'*************************************************************************

'********-----------------------------------------------------************
Dim fso
Set fso = WScript.CreateObject("Scripting.FileSystemObject")
DestHtml = "hd.html" '********-----------------------------------------------------************

Dim cnt
dim Aff()
dim Aff0()
dim Aff1() q
dim Aff2()
dim Aff3()

cnt = 0
Redim Aff(cnt)
Redim Aff0(cnt)
Redim Aff1(cnt)
Redim Aff2(cnt)
Redim Aff3(cnt)

Select Case WScript.Arguments.Count
 Case 0
 ' Default if none specified is local computer (".")
 Set objWMIService = GetObject( "winmgmts://./root/cimv2" )
 Set colItems = objWMIService.ExecQuery( "Select * from Win32_ComputerSystem", , 48 )
 For Each objItem in colItems
 strComputer = objItem.Name
 Next
 Case 1
 ' Command line parameter can either be a computer name
 ' or "/?" to request online help
 strComputer = Wscript.Arguments(0)
 if InStr( strComputer, "?" ) > 0 Then Syntax
 Case Else
 ' Maximum is 1 command line parameter
 Syntax
End Select

Display (strComputer)
CreateHTML (DestHTML )
CreateBDAccess()

Function Display( strComputer )

On Error Resume Next
Set objWMIService = GetObject( "winmgmts://" & strComputer & "/root/cimv2" )
If Err.Number Then
 WScript.Echo vbCrLf & "Error # " & CStr( Err.Number ) & _
 " " & Err.Description
 Err.Clear
 Syntax
End If
On Error GoTo 0
' Set colItems = objWMIService.ExecQuery("Select * from Win32_LogicalDisk where MediaType=12",,48)
Set colItems = objWMIService.ExecQuery("Select * from Win32_LogicalDisk where DriveType=3",,48)
For Each objItem in colItems
 Aff(cnt) = strComputer
 Aff0(cnt) = objItem.Name & vbTab
 Aff1(cnt) = CStr( Int( 0.5 + ( objItem.Size / 1073741824 ) ) )
 Aff2(cnt) = CStr( Int( 0.5 + ( objItem.FreeSpace / 1073741824 ) ) )
 Aff3(cnt) = CStr( Int( 0.5 + ( 100 * objItem.FreeSpace / objItem.Size) ) ) & _
 vbCrLf
 cnt = cnt + 1
 Redim Preserve Aff(cnt)
 ReDim Preserve Aff0(cnt)
 Redim Preserve Aff1(cnt)
 Redim Preserve Aff2(cnt)
 Redim Preserve Aff3(cnt)
Next
End Function

' ----------------------------------------------------------

Function CreateHTML(filename)
dim ts
set ts=fso.CreateTextFile(filename,true)

ts.writeline "<HTML>"
ts.WriteLine "<BODY>"
ts.WriteLine "<CENTER><H3>Affiche les informations des HDD</H3>"
ts.writeline "<table border=1 cellspacing=1 width=100%>"
ts.writeline "<tr>"
ts.writeline "<td width=20%>"
ts.writeline "Name</td>"
ts.writeline "<td width=20%>"
ts.writeline "Drive</td>"
ts.writeline "<td width=20%>"
ts.writeline "Size</td>"
ts.writeline "<td width=20%>"
ts.writeline "Free</td>"
ts.writeline "<td width=20%>"
ts.writeline "% Free</td>"
ts.writeline "</tr>"
ts.writeline "<tr>"
for i = 0 to cnt
ts.writeline "<td width=20%>" & Aff(i) & "</td>"
ts.writeline "<td width=20%>" & Aff0(i) & "</td>"
ts.writeline "<td width=20%>" & Aff1(i) & "</td>"
ts.writeline "<td width=20%>" & Aff2(i) & "</td>"
ts.writeline "<td width=20%>" & Aff3(i) & "</td>"
ts.writeline "</tr>"
 next

ts.writeline "</table>"
ts.writeline " "
ts.writeline " "
ts.writeline " "
ts.writeline " "
ts.writeline " "
ts.writeline " "
ts.writeline " "
ts.writeline " "
ts.writeline " "
ts.writeline " "
ts.writeline " "
ts.writeline "Fait le 14 juin 2005 par Mohax qui pète un plomb lol"
ts.WriteLine "</CENTER></BODY>"
ts.WriteLine "</HTML>"
ts.close
End Function

Function CreateBDAccess()

'Nom du fichier MSAccess
Fichier = InputBox(msgTexte, "Saisie du fichier à créer", "F:\BdDisque.MDB")
'Établie un objet ADO pour déplacement dans objet
Set objConnection = CreateObject("ADODB.Connection")
Set objRecordset = CreateObject("ADODB.Recordset")
'Créer un objet fichier pour atteindre le fichier mdb
Set oFS = CreateObject("Scripting.FileSystemObject")
'Lecteur courant ?
Disque = Mid(Fichier, 1, 2)
'Capture du lecteur
Set oLecteur = oFS.GetDrive(Disque)
'Lecteur prêt ?
If (oLecteur.IsReady) Then
 'Accroche le fichier sur le moteur de recherche
 AccesFichier = MoteurDeRecherche & Fichier
 'Ouverture du fichier access
 objConnection.Open AccesFichier
 'Création d'un ensemble "recordset" sur les données souhaité
 objRecordset.Open "SELECT * FROM EspaceDisque" , objConnection, adOpenStatic, adLockOptimistic
End If

For i = 0 to cnt
 objRecordset.AddNew

 objRecordset("Champs1") = Aff(i)
 objRecordset("Champs2") = Aff0(i)
 objRecordset("Champs3") = Aff1(i)
 objRecordset("Champs4") = Aff2(i)
 objRecordset("Champs5") = Aff3(i)

 objRecordset.Update

Next
End Function

Cette discussion est classé dans : writeline, redim, ts, objitem, cnt

Répondre à ce message

Sujets en rapport avec ce message

Tableau et redim preserve [ par Benz ] Salut,J'ai un problème de compréhension des tableaux (Array).J'ai besoin de les utiliser dans le cadre du développement de gestion d'un petit panier v problème pour insérer une image dans un fichier excel à partir d'ASP [ par kali121 ] Bonjour, cherche solution pour excel+aspJe m'explique, j'aimerais générer un document excel en utilisant le langage ASP. Cependant, je ne veux pas rec Probléme de création de fichier avec Visual Studio.net(ASP.NET et c#) [ par kenza_sana ] Bonjour j'ai un grand probléme pour créer un dossier j'ai taper le code suivante que j'ai trouver dans le MSDN de Visual Studioi.net en c#: // Specify aidez Moi je patoge totalement pour afficher le resultat d un VBScript sur page web [ par mohax007 ] Salut a tous en fait j ai mon script qui me permet d afficher l espace des mes disques ainsi que l espace libre et le pourcentage d espace libre!! don commnication d un script avec une base Acess [ par mohax007 ] bonjour donc voila mon souci j ai mon script qui me permet de recuperer l espace de mes disques ainsi que l espace libre en pourent je souhaiterais s lecture d'un fichier texte (encore...) [ par cherrymoon08 ] Bonjour tout le monde,Voila je débute en asp.net mais déjà certaines choses me tracasse.Lorsques que je veux lire dans un fichier texte, j'utilise une exporter une table access vers excel [ par ahmani24 ] Bonjour tout le monde,Lors de l'exportation d'une table access vers excel je rencontre le message d'erreur suivant:Microsoft Excel ne peut pas convert Problème de namespace [ par schumileboss ] Bonsoir, J'ai trouvé sur le net cette fonction. Mon problème est que VS 2003 me souligne "Outlook.Application". je ne sais pas quel namespace il fau Contenu d'un ARRAY = System.String[] ??? [ par Maroxye ] Bonjour!J'avais ce code en VS 2003 qui fonctionnait très bien :(il permet de sauvegarder le contenu d'une table HTML dans un Array et finalement le tr