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
62
63
64
65
66
67
68
69
70
71
72
73
74
| <HTML>
<HEAD>
<TITLE> Menu Principal </TITLE>
<HTA:APPLICATION
ID="Personalisation"
APPLICATIONNAME="Personalisation"
SCROLL="no"
SINGLEINSTANCE="yes"
WINDOWSTATE = "normal"
CAPTION="yes"
MAXIMIZEBUTTON="NO"
>
<!-- ----- dans le HEAD pour dimessionner et placer avant d'être visible ----- -->
<SCRIPT language="VBScript" type="text/vbscript">ResizeTo 288,334: MoveTo (Screen.Width-288)/2,(Screen.Height - 334) / 2</SCRIPT>
</HEAD>
<!-- ------------------------------------------------------------------------------------------------------------------------------ -->
<SCRIPT language="VBScript">
'----------------------------------------------------------------------------------------------------------------------
'Déclarations utilisables dans toute la partie VBScript
Dim DossierRacineDuProg
Dim C1, C2, C3, C4
'----------------------------------------------------------------------------------------------------------------------
Sub Window_Onload()
Dim ChemNomComplet
ChemNomComplet = Personalisation.CommandLine ' ChemNomComplet = Id du programme.CommandLine
DossierRacineDuProg = Left(ChemNomComplet, (InStrRev(ChemNomComplet, "\", -1, vbTextCompare)))
DossierRacineDuProg = Replace(DossierRacineDuProg,Chr(34),"")
Const ForReading = 1
Dim FichierINI
FichierINI = DossierRacineDuProg & "Config.ini"
Dim FSO, oFich, ContenuFichierIni
Set FSO = CreateObject("Scripting.FileSystemObject")
Set oFich = FSO.OpenTextFile(FichierINI, ForReading)
ContenuFichierIni = oFich.ReadAll
oFich.Close
Set FSO = Nothing
C1 = FindParams("Chem1", ContenuFichierIni)
C2 = FindParams("Serveur", ContenuFichierIni)
C3 = FindParams("Version", ContenuFichierIni)
C4 = FindParams("Install", ContenuFichierIni)
' pour la demo
MsgBox "Valeur de C1 ---> " & C1 & vbNewLine & "Valeur de C2 ---> " & C2 & vbNewLine & "Valeur de C3 ---> " & C3 & vbNewLine & "Valeur de C4 ---> " & C4
End Sub
'---------------------------------------------- Fonction de recherche : ---------------------------------------------------------
Function FindParams(BaliseRechercher, Dans)
Dim PosDeb, PosFin
PosDeb = InStr(1, Dans, BaliseRechercher, vbBinaryCompare)
If PosDeb <> 0 Then
PosDeb = PosDeb + Len(BaliseRechercher) + 1
PosFin = InStr(PosDeb, Dans, vbNewLine, vbTextCompare) - 2
If PosFin = 0 Then
PosFin = Len(Dans)
Else
PosFin = PosFin + 1
End If
FindParams = Mid(Dans, PosDeb, (PosFin - PosDeb) + 1)
End If
End Function
'---------------------------------------------- Sub DemoShell : ---------------------------------------------------------
Sub DemoShell()
MsgBox C1 & "Memory.vbs"
'Dim objShell
'Set objShell = CreateObject("Wscript.Shell")
'objShell.Run C1 & "Memory.vbs"
'Set WSH= nothing
End Sub
</SCRIPT>
<!-- ------------------------------------------------------------------------------------------------------------------------------ -->
<body style="font-family:MS Sans Serif, Arial, Verdana, serif; font-size=10px; font-weight:bold; background-color:#DDFFA8" >
<Input Type="button" Value="Verifier le Shell" id="BtEssais" onClick="DemoShell"
style="position:absolute; left:4px; top:0px; height:22px; width:130px;
font-family:MS Sans Serif, Arial, Verdana, serif; font-size=10px; Color:#000000 ">
</Body>
</HTML> |
