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

Ce site au démarrage

begin process at 2012 02 14 04:21:39

Accueil Codes Tutoriels Forum Livres Emploi Services Connexion

Trouver un code source :

dans

[ Dernières recherches ]

Accueil > Forum >

recuperer les resultats d un script Dans une BD heilp svp Urgent

Poser une question dans le forum ou lancer une discussion

recuperer les resultats d un script Dans une BD heilp svp Urgent

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

mohax007

6 msg

19 msg CS

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

6 msg

19 msg CS

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

6 msg

19 msg CS

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ée 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 Probleme de datareader et executenonquery [ par dedebis84 ] Bonjour, Cela fait deux jours que je m'arrache les cheveux pour trouver une solution à mon problème. En gros , dans le datareader, j'exécute un requê

Livres en rapport

Tous les livres pour Writeline, Redim, Ts, Objitem, Cnt

Nos sponsors

Derniers Blogs

XNA IS DEAD! par richardc

TECHDAYS PARIS 2012 : WINDOWS SERVER "8" QUOI DE 9 ! par ROMELARD Fabrice

[HTML5] AUTOUR DU W3C : NOUVEAUX STANDARDS ET WEB MOBILE (LILLE) par Gio

TECHDAYS PARIS 2012 : CHUCK MORRIS N'A PAS PEUR DES MALWARES, CE SONT LES MALWARES QUI ONT PEUR DE CHUCK MORRIS par ROMELARD Fabrice

[WP7] DYNAMICALLY CHANGE STARTUP PAGE par KooKiz

Forum

RE : FORMULAIRE par ap24dp

RE : FORMULAIRE par jopop

RE : FORMULAIRE par ap24dp

RE : FORMULAIRE par jopop

RE : RECHERCHE COMPOSANT DIAGRAMME AVEC INTERACTION AU CLIC, DéPLACEMENT SOURIS … par gieidea

Côté IT

Offres d'emploi

Formations Video

Appels d'offres

URGENT - Realisation d-un flux standard XML -NewsML- CAHIER DES CHARGES DISPONIBLE
Budget : 400€
Creation de newsletter sur une page Facebook
Budget : 400€
fichier d-export de site OS commerce ver plateforme logistique-CDC disponible
Budget : 1 200€

Logiciels

DocTranslate (V3.1.0.0)
DOCTRANSLATE (V3.1.0.0)

DocTranslate est un traducteur de document Microsoft Word, PowerPoint et Excel. Il permet d'autom...

Cliquez pour télécharger DocTranslate
Tribler (2012)
TRIBLER (2012)

Tribler est un client pair à pair (P2P/Peer-to-Peer) open source avec la capacité de regarder des...

Cliquez pour télécharger Tribler
OneSwarm (2012)
ONESWARM (2012)

Le peer-to-peer qui protège votre vie privée, c'est OneSwarm. Ce logiciel de peer-to-peer crypté...

Cliquez pour télécharger OneSwarm
PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)
PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)

PONAMEDIA TV DEVIENS HELLLOOO FLASH LA TV SUR VOTRE ORDINATEUR. Toute une plateforme Multi...

Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO
Academy System (17.2.1.0)
ACADEMY SYSTEM (17.2.1.0)

Logiciel de gestion des établissements. - élèves/étudiants (inscription, dossier, absence...) -...

Cliquez pour télécharger Academy System