VBS + HTA - Objet requis Wscript

Version imprimable

02/10/2013, 09h20
Sysmic76

1 pièce(s) jointe(s)

VBS + HTA - Objet requis Wscript

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.
02/10/2013, 11h59
hackoofr

:salut:
Postez votre code et :tagcode:
:merci:

Citation:

Envoyé par hackoofr

:salut:
Postez votre code et :tagcode:
:merci:

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:

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

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

Code:

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

02/10/2013, 15h23
Sysmic76
Citation:

Envoyé par ProgElecT

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:

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".
02/10/2013, 15h40
hackoofr

Citation:

Envoyé par Sysmic76

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

Oui, je crois que c'est mieux en pièce-jointe :king:
02/10/2013, 15h57
Sysmic76

Citation:

Envoyé par hackoofr

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

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.
07/10/2013, 10h20
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.

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:

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 !

06/10/2016, 11h11
cerkyr

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

Citation:

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

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

Code:

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.