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 !

Sujet : comment afficher le resultat d un Vbscript sur une page Web !!!! [ Archives Visual Basic / VBA ] (mohax007)

lundi 13 juin 2005 à 09:12:32 | comment afficher le resultat d un Vbscript sur une page Web !!!!

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!! donc déja c est une bonne chose de faite ce que je sais pas faire c est afficher le tout sur page web!!! regardez le code ci dessous c est celui la que je veux afficher sur une page web mais je vois pas comment faire encore: alors est ce que quelqu un de caler en VBscript Wmi peu m aider si vous plait!!!!


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 )
WScript.Quit(0)


Function Display( strComputer )
    strMsg = vbCrLf & "Name:" & vbTab & "Drive:" & vbTab & "Size:" & _
             vbTab & "Free:" & vbTab & "% Free:" & vbCrLf & "=====" & _
             vbTab & "======" & vbTab & "=====" & vbTab & "=====" & _
             vbTab & "=======" & vbCrLf
    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
        strMsg = strMsg & strComputer & vbTab & _
                 objItem.Name & vbTab & _
                 CStr( Int( 0.5 + ( objItem.Size / 1073741824 ) ) ) & _
                 vbTab & _
                 CStr( Int( 0.5 + ( objItem.FreeSpace / 1073741824 ) ) ) & _
                 vbTab & _
                 CStr( Int( 0.5 + ( 100 * objItem.FreeSpace / objItem.Size) ) ) & _
                 vbCrLf
    Next
    WScript.Echo strMsg
End Function



lundi 13 juin 2005 à 23:55:44 | Re : comment afficher le resultat d un Vbscript sur une page Web !!!!

CTAC

Réponse acceptée !
Bonjour.

Il faudra ajuster la mise en page qui est différente dans une page web d'une msgbox.

Remplacer la ligne WScript.Echo strMsg par :

dim IE
set ie = createobject("Internetexplorer.application")
ie.navigate("about:blank")
do while ie.document.readystate<>"complete"
wscript.sleep 100
loop
ie.document.body.innertext = strmsg
ie.visible = true
set ie = nothing

ctac

mardi 14 juin 2005 à 10:10:23 | Re : comment afficher le resultat d un Vbscript sur une page Web !!!!

mohax007

merci CTAC d avoir pris le temps de repondre ca focntionne il me reste a poffiner tous ca



Cette discussion est classé dans : afficher, select, vbtab, strcomputer, objitem


Répondre à ce message

Sujets en rapport avec ce message

Afficher image et jouer un son wav [ par flopad ] Bonjour, j'ai une page aspx qui me permet de surveiller mes serveurs en faisant des pings.Lorsque l'un d'entre eux ne répond plus, j'affiche une certa afficher le "select ... from ..." sur un fichier excel [ par ryma_php ] Bonjour tout le mondej'ai une base de données mysql, que j'intérroge avec des pages php, je veux que le résultat s'affiche sur un fichier excel et non Lancer une requête Select via VB sans afficher le résultat ? [ par Famas54 ] Bonjour,Je cherche à lancer une requête Select via un code Vba afin de réutiliser les résultats dans la suite de mon programme mais j'ai toujours ce p afficher les données d'une requete mysql dans vb [ par patass ] Bonjour a tous,Je viens  solliciter votre aide pour une application que je dois developper en vb.En fait j'ai une table Mysql que j'appelle tble_rdv d VB.Net écrire dans un RichTextBox en changeant de ligne [ par MagDix ] Salut... J'ai un petit problème pour faire afficher plusieurs infos dans un richtextbox. J'utilise un tableau et quelque fonction pour arriver aux Rapidité graphique, DrawImage ou DrawString ? [ par taouale2 ] Bonjour, je suis en train de réaliser une application graphique en VB.NET sur PDA (WM5) qui doit tourner rapidement (25hz pour le rafraichissement). J Afficher tableau [ par Fabian26 ] Slt, Voila j'ai déclaré un fichier et je le remplis ensuite avec une variable. Et je voudrais bien afficher mon tableau ensuite pour voir si celui ci adaptation des modules en ADO.NET [ par chebmo90 ] salut j'ai un petit problème, je veux transformer un morceau de code en ADO.NET" Dim rs As New ADODB.Recordset Dim rsbase As New ADODB.Record BOUTON OPTION VBA excel [ par Clashme ] Bonjour !!!!!!!!!!!!!!!!!!!!!!, voili voilou ! jai crée 3 boutons options à l'aide du formulaire chacun appéllé : année 1 , année 2 , année 3 jvoud Suppression de lignes avec condition dans un Filtre... [ par Djrome ] Salut les Kracks,Je souhaiterai une macro qui supprime toute la ligne suite à un filtre sous condition.Je vous donne mon début mais vous averti déjà q


Nos sponsors

Sondage...

CalendriCode

Juillet 2009
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
2728293031  

Consulter la suite du CalendriCode

Téléchargements

Logiciels à télécharger sur le même thème :

Comparez les prix Nouvelle version

Photothèque Nouveau !



Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Temps d'éxécution de la page : 0,733 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.