[VBS]Détecter si une page Ie est lancer sur le poste

Version imprimable

30/03/2006, 11h29
PrinceMaster77

[VBS]Détecter si une page Ie est lancer sur le poste

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.
30/03/2006, 11h51
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.

Problème d'activeX

Voici mon code :

Code:

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'

30/03/2006, 14h36
SfJ5Rpw8

Re: Détecter si une page Ie est lancer sur le poste

Citation:

Envoyé par 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.

quand tu dis navigateur ... tu parle de tous les navigateurs... ou simplement d'internet explorer .?
30/03/2006, 14h43
PrinceMaster77

tous ou juste IE

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.
30/03/2006, 14h48
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... ?
30/03/2006, 15h15
PrinceMaster77

oui oubli

Oui je m'excuse je développe en asp

tiens un petit script... .vbs..

Code:

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... :wink:

30/03/2006, 16h20
PrinceMaster77

et en asp cela pourrait donner quoi

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" ?

Fermer une fenetre IE

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:

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

31/03/2006, 17h14
SfJ5Rpw8

Code:

IE.Quit