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
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
| <html>
<head>
<meta http-equiv="content-type" content="text/html; charset=iso-8859-1">
<title>Sauvegarde EnUser 1.5 avant migration (GUI) </title>
<link rel="stylesheet" href="/css/style.css">
<script language="JavaScript" src="/js/rollover.js"></script>
<HTA:APPLICATION
APPLICATIONNAME="SafeMigr"
ID="AppSauvegardeEndUser"
VERSION="1.5"
ICON="img\favicon.ico"
SCROLL="no"
SCROLLFLAT="yes"
CONTEXTMENU="no"
NAVIGABLE="yes"
SINGLEINSTANCE="yes"
NAVIGABLE="yes"
SELECTION="no"/>
<script language="VBScript">
Sub Window_onLoad
' msgbox "Msg de test vbs ""Bonjour le monde""",vbExclamation ,"Msg de Test"
window.moveTo 150,150
window.resizeTo 729,530
End Sub
' -------------------------------------------------------------
' 2.Récupération documents Pack Office, Multimédias, Cao Dao...
' -------------------------------------------------------------
Sub ChxMenu2
Set WshShell = CreateObject("WScript.Shell")
Lettre = WshShell.CurrentDirectory
Dim com,Result
Msgbox Lettre
com="cmd /c "& Lettre &"\code\Docs.bat"
Result=WshShell.Run(com,1,True) 'Option 1 Console Visible.Option 0 Console Invisible
Set WshShell = Nothing
End Sub
</script>
</head>
<body bgcolor="#ffffff">
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="0">
<tr>
<td align="center" valign="middle">
<table border="0" cellspacing="0" cellpadding="0" width="0">
<tr>
<td><div align="center"><img src="img/Titre.gif" alt="Gestion automatisée de la sauvegarde avant migration" width="665" height="57" />
</div>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<th scope="col"><div align="left">
<h4><strong> </strong></h4>
</div></th>
</tr>
<tr>
<th scope="row"> </th>
</tr>
<tr>
<th scope="row"><div align="left">
<h5>...<br>
</h5>
</div></th>
</tr>
<tr>
<th scope="row"> </th>
</tr>
<tr>
<th scope="row"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<th scope="col"></th>
<th scope="col"></th>
</tr>
<tr>
<th scope="row"><div align="left"><a href="#" target="_blank" onMouseOver="return rollover_on(Choix2, 'img/on/Btn_val_on.gif');"
onmouseout="return rollover_off(Choix2);" onclick=ChxMenu2()><img src="img/off/Btn_val_off.gif" alt="Choix 2 - Récupère fichiers avec extensions Pack Office, Cao/Dao, Multimédias" name="Choix2" hspace="0" vspace="0" border=0 align="absmiddle">Récupération documents PO, Multimédias, Cao/Dao...</a></div></th>
<th scope="row"></th>
</tr>
<tr>
<th colspan="2" scope="row"> </th>
</tr>
<tr>
<th scope="row"> </th>
<td> </td>
</tr>
<tr>
<th scope="row"> </th>
<td> </td>
</tr>
</table></th>
</tr>
<tr>
<th scope="row"> </th>
</tr>
<tr>
<th scope="row">
<div align="right">
<button type="button" name="Quitter"
style="background:white; cursor:pointer; border:solid 0px black; float: right;"
onclick="opener=self;self.close()"
onMouseOver="return rollover_on(Quitter, 'img/on/Btn_fer_on.gif');"
onMouseOut="return rollover_off(Quitter);">
<img src="img/off/Btn_fer_off.gif" alt="Quitter l'utilitaire..." name="Quitter" hspace="0" vspace="0" border="0" align="right" />
</button></div>
</th>
</tr>
<tr>
<th scope="row"><div align="right">
<p><a href="HowTo.chm" target="_blank" onMouseOver="return rollover_on(Aide, 'img/on/Btn_Aide_on.gif');"
onmouseout="return rollover_off(Aide);"><img src="img/off/Btn_Aide_off.gif" alt="Comment ça marche ?" name="Aide" hspace="14" vspace="0" border=0 align="absmiddle"></a></p>
</div></th>
</tr>
<tr>
<th scope="row"><div align="right"></div></th>
</tr>
<tr>
<th scope="row"><div align="center"><img src="img/Footer.gif" alt="Pied de page" width="666" height="34" /></div></th>
</tr>
</table></td>
</tr>
</table>
</td>
</tr>
</table>
<p> </p>
</body>
</html> |
