Discussion :

[PrinceMaster77]

Je voudrais savoir s'il est possible en VBScript de savoir si un navigateur HTML est déjà lancé sur le poste client.

Mon application tourne avec un exécutable qui me lance une fenetre HTML à chaque action précise d'un utilisateur et je voudrais au lieu d'ouvrir à chaque fois un nouveau navigateur observer si un navigater est déjà lancé afin d'ouvrir ma page web toujours dans le meme navigateur.

[Megaxel]

Si tu fais une recherche sur ce forum, sur les post traitant de la surveillance des processus tournant sur une machine, tu devrais trouver ton bonheur.
Il y en a eu un il n'y a pas longtemps.

[PrinceMaster77]

Voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
<script language="VBScript" type="text/VBScript">
    strComputer = "."
    Set objWMIService = GetObject("winmgmts:"& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
 
    Set colProcessList = objWMIService.ExecQuery("Select * from Win32_Process Where Name = 'Notepad.exe'")
 
    For Each objProcess in colProcessList
     MsgBox "Coucou"
     'objProcess.Terminate()
    Next
   </script>

Mon erreur : Un composant ActivX ne peut pas créer un composant 'GetObject'

[SfJ5Rpw8]

Je voudrais savoir s'il est possible en VBScript de savoir si un navigateur HTML est déjà lancé sur le poste client.

Mon application tourne avec un exécutable qui me lance une fenetre HTML à chaque action précise d'un utilisateur et je voudrais au lieu d'ouvrir à chaque fois un nouveau navigateur observer si un navigater est déjà lancé afin d'ouvrir ma page web toujours dans le meme navigateur.

quand tu dis navigateur ... tu parle de tous les navigateurs... ou simplement d'internet explorer .?

[PrinceMaster77]

on peut dans un premier temps faire uniquement les testes juste avec IE mais je voudrais peut etre l'étendre à tous les navigateur dans un second temps.

[Megaxel]

Une petite question: le code que tu as posté, il est inclus dans quoi?
Parce que moi, le peu d'expérience que j'ai du VBS, c'est dans un fichier texte, avec comme extension ".vbs".
Là, tu as des balises. Tu codes en ASP, JSP... ?

[PrinceMaster77]

Oui je m'excuse je développe en asp

[SfJ5Rpw8]

tiens un petit script... .vbs..

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
Dim IE
Dim Ok 'A 1 si déjà ouvert
Ok = False
Set shell = WScript.CreateObject("Shell.Application")
 
Set shellwindows = Shell.Windows
For Each Fen in Shellwindows
 
If (InStr(Fen.LocationURL,"www.google.fr") > 0) Then
	Set IE = Fen
	OK =true
	Exit For
End If
Next
If Not OK Then
   Wscript.echo "Creation IE"
   Set IE = Wscript.CreateObject("InternetExplorer.Application")
   Else
   Wscript.echo "IE Déja ouvert on utilise..."
End if
IE.Navigate("<a href="http://www.developpez.com")" target="_blank">www.developpez.com")</a>
IE.Visible = true

sinon au niveau du navigateur .. je crois que le vbScript te limite à IE...

[PrinceMaster77]

j'ai bien tester ton petit code et c'est exactement ce que je voudrais faire mais dès que je l'exécute en asp j'ai une erreur :

Erreur : Objet requis "WScript" ?

[PrinceMaster77]

j'ai un code qui me permet d'ouvrir IE si l'adresse n'est pas en cours de lecture, mais je voudrais forcer à fermer cette fenetre si elle est déjà lancé, voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
    Dim IE
    Dim Ok 'A 1 si déjà ouvert
    Ok = False
 
    Set shell = WScript.CreateObject("Shell.Application")
    Set shellwindows = Shell.Windows
    For Each Fen in Shellwindows")
     If (InStr(Fen.LocationURL,"www.google.fr") > 0) Then
      Set IE = Fen
      OK =true
      Exit For
     End If
    Next
 
    If Not OK Then
     Set IE = Wscript.CreateObject("InternetExplorer.Application")
    Else
     // Fermeture de l'IE comprenant l'adresse www.google.fr
    End If
 
    IE.Navigate("www.google.com")
    IE.Visible = true

[SfJ5Rpw8]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

IE.Quit