Discussion :

[Sysmic76]

Bonjour à tous et par avance merci pour votre aide.

J'ai élaboré un HTA contenant uniquement des scripts en VBS. Mon outil fonctionnait très bien jusqu'à ce qu'on migre sous IE10...

Dorénavant j'ai pleins de petites erreurs, certaines que j'ai pu contourner et d'autres que je n'arrive pas à corriger.
Par exemple, j'ai un compteur qui tourne pour faire boucler un Sub toutes les 30s. Une fois que j'ai trouvé la valeur souhaitée (réponse d'un serveur), je quitte le script afin d'arrêter l'exécution du compteur. J'utilise un "Wscript.Quit" lorsque la valeur est trouvée et affichée à l'écran.

Depuis IE10, j'ai toujours un message "Objet requis : 'wscript'"... Ce que je n'avais pas avec IE8...

J'ai bien tenté en faisant un Exit Sub, sauf que mon compteur est démarré indépendamment et du coup je ne fais que stopper ma boucle en cours et non le script au complet...

Auriez vous une idée ?

Au besoin je peux vous transmettre un zip de mon outil.

[hackoofr]

Postez votre code et

[Sysmic76]

Postez votre code et

Je tiens vraiment à préciser qu'avec IE8, je n'avais aucun problème, cette anomalie apparaît depuis que je suis passé sous IE10.

Voici un bout du code car mon fichier HTA fait 900 lignes :

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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
 
 ' fonction alerte
 
Sub AlerteParc
 
' Recherche de la personne détenant le fichier Parc
 
' Appel du fichier .bat pour écriture dans fichier txt
 
set WshShell = CreateObject("WScript.Shell")
 
' 0 = invisible true = attendre la fin de l'exécution du script
 
oProgramFiles = WshShell.ExpandEnvironmentStrings("%PROGRAMFILES%")
oCheminLANMANSERVER = oProgramFiles&"\GMA-Tools\Config\LanManServer.bat"
	if inStr(oCheminLANMANSERVER," ") > 0 then 
	oCheminLANMANSERVER = """" & oCheminLANMANSERVER & """" 
	WshShell.Run oCheminLANMANSERVER,0 , true 'chemin program files
	end if
 
' définition du fichier Parc pour recherche dans base sur serveur SRVINST
 
FichierAlerteParc = ("D:\..\GMA\Commun\Parc.xlsm")
 
' ouverture du fichier de log pour recherche
 
Set MyObject = CreateObject("Scripting.FileSystemObject") 
Set MyFile = MyObject.GetFile("C:\temp\LanManServer.txt") 
Set OpenFile = MyFile.OpenAsTextStream(1) 
 
' Recherche de la ligne contenant la chaine FichierAlerteParc
 
While Not OpenFile.AtEndOfStream
 
 CurrentLine = OpenFile.ReadLine 
 
 If Instr(UCase(CurrentLine), UCase(FichierAlerteParc)) > 0 Then 
 
	Exit Sub
 
 End If
 
Wend
 
If OpenFile.AtEndOfStream = True then
 
Msgbox "Le fichier Parc.xlsm est libre.", vbSystemModal + vbInformation
 
wscript.quit
 
End If
 
End Sub
 
' mise en place fonction temps actu toutes les 5 secondes
 
Sub TimerParc
 
window.setInterval "AlerteParc", 5000, "VBScript"
 
End Sub

[ProgElecT]

Salut
Avec une boucle Do....Loop ? ligne 33 à 43 de ton code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Do While Not OpenFile.AtEndOfStream
 
 CurrentLine = OpenFile.ReadLine
 
 If InStr(UCase(CurrentLine), UCase(FichierAlerteParc)) > 0 Then
 
    Exit Do
 
 End If
 
Loop

[Sysmic76]

Salut
Avec une boucle Do....Loop ? ligne 33 à 43 de ton code

Je ne comprend pas ce que tu veux dire... En modifiant ma boucle je ne ferai que stopper l'exécution du Sub AlerteParc mais mon Timer va le relancer après le temps imparti... J'aurai donc mon msgbox en boucle...

Code :

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

1
2
3
4
5
Sub TimerParc
 
window.setInterval "AlerteParc", 5000, "VBScript"
 
End Sub

Mon problème ce situe sur le wscript.quit qui me permet de stopper le Timer et me rapporte une erreur "Objet requis : wscript".

[hackoofr]

Au besoin je peux vous transmettre un zip de mon outil.

Oui, je crois que c'est mieux en pièce-jointe

[Sysmic76]

Oui, je crois que c'est mieux en pièce-jointe

Je viens de modifier mon post en conséquence. Vous n'aurez pas accès à beaucoup de choses mais l'anomalie principal ce situe sur les alertes qui sont exécutées par les Timer (en début du HTA). La sortie du script par le wscript.quit est possible mais provoque l'erreur "objet requis : wscript".

Pour expliquer le but de l'outil, il permet de vérifier si les fichiers sont utilisés et par qui. Si le fichier est utilisé, je demande si l'utilisateur veut être alerté par un message lorsque le fichier sera disponible en écriture.

Je reste à votre disposition au besoin.

Merci.

[Sysmic76]

Hello à tous !

Après avoir vu des dizaines de forum sur le sujet du Wscript.Quit + HTA, personne ne semble avoir de réel solution.

Auriez-vous une idée d'alternative au Wscript.Quit afin de stopper toutes les Sub en cours. Tout en prenant en compte que le Exit Sub ne peut fonctionner puisque j'ai une Sub qui tourne indépendamment...

Peut-être une fonction ? Je n'ai pas trop d'idée...

Merci par avance pour votre aide.

[Sysmic76]

A l'heure actuelle, je n'ai pu trouver qu'une solution... Ce n'est pas très beau mais ça a le mérite de fonctionner...

Je ferme mon HTA et le relance. Ainsi mes procédures de Timer se stoppent.

Code :

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

1
2
3
4
5
6
7
8
9
Self.close 'ferme la fenetre hta...
 
	'rouvrir gma-tools
 
	oProgramFiles = WshShell.ExpandEnvironmentStrings("%PROGRAMFILES%")
	oCheminGMATools = oProgramFiles&"\GMA-Tools\GMA-Tools.hta"
	oCheminGMATools = """" & oCheminGMATools & """" 
 
	WshShell.Run oCheminGMATools,0 , true 'chemin program files

Si quelqu'un a une solution plus "propre" je suis preneur !

[cerkyr]

Bonjour,
Avez-vous trouvé une solution à ce problème ?
Cdlt,

[l_autodidacte]

Auriez-vous une idée d'alternative au Wscript.Quit ....

Une approche peut-être plus sure est d'utiliser WMI :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Option Explicit
 Sub ArreterWscript    
    Dim objWMIService, colItems, objItem
    Set objWMIService = GetObject("winmgmts:\\.\root\CIMV2") 
    Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_Process",,48) 
    For Each objItem in colItems 
        If  LCase(objItem.Caption) = "wscript.exe" Then 
           objItem.Terminate
        End If
    Next
 End Sub  
 Call ArreterWscript

Mais si tu as d'autre instances de Wscript qui tournent, elles seront arrêtées.