Suppression de la validation manuelle vbs
Bonjour à tous et à toutes,
J'ai actuellement un script qui me permet de générer automatiquement trois signatures mail au format html en fonction de l'appartenance de l'utilisateur. Le soucis c'est que ce script attend une validation manuelle des informations récupérées dans l'AD et que j'aimerai que, lorsque je lance mon vbs, tout ce fasse automatiquement sans que j'ai à cliquer où que ce soit.
Je ne suis pas développeur du tout et là je sèche... Le but étant d'intégrer ce script dans une GPO.
Autrement le script fonctionne parfaitement sauf ce soucis:
- Un premier bouton lors de l'affichage "Creation signature Outlook en cours ... Veuillez patientez, s'il vous plait"
- et un second pour valider les informations trouvées dans l'AD.
Voici le début du code en question:
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
|
'---------------------------------------------------------------------------------------------------------
'Définition de la signature Outlook via paramètres utilisateur Active Directory
'
' ### PREMIER SCRIPT ### LE SECOND SE TROUVE A LA FIN DE CELUI-CI ###
'---------------------------------------------------------------------------------------------------------
'
'
' Test l'existence d'un fichier
Set FSO = CreateObject("Scripting.FileSystemObject" )
Set oshell = createobject("wscript.shell")
If FSO.FileExists (oshell.expandenvironmentstrings("%userprofile%") &"\Application Data\Microsoft\Signatures\Signature.htm" ) Then
Wscript.Echo "Le fichier existe."
Else
'Définition des variables et vérification de l'existance du dossier ....\Microsoft\Signatures
set netw=createobject("wscript.network")
Set FileSystem = WScript.CreateObject("Scripting.FileSystemObject")
set oshell = createobject("wscript.shell")
if not FileSystem.folderexists (oshell.expandenvironmentstrings("%userprofile%") & "\Application Data\Microsoft\Signatures") then
FileSystem.CreateFolder(oshell.expandenvironmentstrings("%userprofile%") & "\Application Data\Microsoft\Signatures")
End If
Set OutPutFileHtml = FileSystem.CreateTextFile(oshell.expandenvironmentstrings("%userprofile%") & "\Application Data\Microsoft\Signatures\Signature.htm", True)
'Send START Message
WScript.Echo "Creation signature Outlook en cours ... Veuillez patientez, s'il vous plait"
'Définition des OU Active Directory
'
'
'
'!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
'!!!! xxxx = A définir suivant votre configuration AD !!!!!
'!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
'
'
'
Set oContainer=GetObject("LDAP:// ou=Users, dc=domaine, dc=com")
EnumerateUsers oContainer
'
'
'Message de fin de procédure sur Erreur
WScript.Echo "Erreur: utilisateur inconnu ou mauvaise definition Active Directory ..."
WScript.Quit
'Sub Programme de recherche "EnumerateUsers"
Sub EnumerateUsers(oCont)
Dim oUser
strCOMPANY ="Company A"
strCOMPANY2 = "Company B"
strCOMPANY3 = "Company C"
For Each oUser In oCont
Select Case LCase(oUser.Class)
Case "user"
If oUser.sAMAccountName=netw.username Then
'Affichage des paramètres de l'utilisateur
BtnCode = oshell.Popup("Prénom: " & oUser.givenname & chr(13) & "Nom: " & oUser.sn & chr(13) & "Adresse: " & oUser.streetAddress & ", " & oUser.postalCode & " " & oUser.l & chr(13) & "Société :" & oUser.company & chr (13) & "Tél : " & oUser.telephoneNumber & chr(13) & "Port : " & oUser.mobile & chr(13) & "Mail: " & oUser.mail & chr(13) & chr(13), 0, "Voulez-vous continuer: ?", 4 + 64)
If BtnCode=6 then |
Merci pour votre aide.
Cordialement.
9project
