[VBS Script de connexion] Comment faire un choix entre 3 propositions ?

**epc** · 23/10/2008, 19h20

Bonjour,

Je souhaiterais écrire en VBS un script qui m'ouvre une fenêtre comme msgbox() avec trois boutons IMPR-ACCUEIL, IMPR-CDI et IMPR-MULTIMEDIA.
Cela me permettrait d'affecter la bonne imprimante par défaut à la salle où se trouve l'utilisateur.

Merci pour votre aide.

Marcel

**RadPAT** · 27/10/2008, 15h51

Salut,

tu peux essayer de lancer un HTA:

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
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
 
<html>
<head>
<title>Logon Script</title>
 
<HTA:APPLICATION
     ID="LogonScr"
     APPLICATIONNAME="LogonScr"
     SCROLL="no"
     SINGLEINSTANCE="yes"
     WINDOWSTATE="normal"
     CAPTION="yes"
>
</head>
 
 
<SCRIPT Language="VBScript">
 
Sub Window_Onload
 
    strComputer = "."
    Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
    Set colItems = objWMIService.ExecQuery("Select * From Win32_DesktopMonitor")
    For Each objItem in colItems
        intHorizontal = objItem.ScreenWidth
        intVertical = objItem.ScreenHeight
    Next
 
    XPos = 610
    YPos = 160
 
    intLeft = (intHorizontal - XPos) / 2
    intTop = (intVertical - YPos) / 2
 
    self.ResizeTo Xpos,YPos
    window.moveTo intLeft, intTop
 
End Sub
 
Sub Action1
 
    Msgbox "Action 1"
    Set objShell = CreateObject("Wscript.Shell")
'    Lance la suite
'    objShell.Run "xxxx.vbs"
    self.Close()
 
End Sub
 
Sub Action2
 
    Msgbox "Action 2"
    Set objShell = CreateObject("Wscript.Shell")
'    Lance la suite
'    objShell.Run "xxxx.vbs"
    self.Close()
 
End Sub
 
Sub Action3
 
    Msgbox "Action 3"
    Set objShell = CreateObject("Wscript.Shell")
'    Lance la suite
'    objShell.Run "xxxx.vbs"
    self.Close()
 
End Sub
 
 
</SCRIPT>
<body>
 
Make your choice:
<hr>
<p>
<input id=Button1 class="button" type="button" value="  IMPR-ACCUEIL   " name="Monitor_Button"  onClick="Action1">
<input id=Button2 class="button" type="button" value="     IMPR-CDI     " name="Pioute_Button"  onClick="Action2">
<input id=Button3 class="button" type="button" value="       IMPR-MULTIMEDIA        " name="Groups_Button"  onClick="Action3">
 
</body>
 
</html>

Sauvegarde ce code avec l'extension HTA.

A++

**epc** · 28/10/2008, 11h25

Merci

Super, je vais compléter mes tests.

[VBS Script de connexion] Comment faire un choix entre 3 propositions ?

VBScript

Discussions similaires

Partager

Partager