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 |
Partager