Discussion :

[alexisoko]

Bonjour, bonsoir !

Bon je tiens à dire que je débute dans le script donc ne me blâmer pas trop ^^
Donc mon problème est que le script va chercher des infos dans l'AD, le problème est qu'il arrive que certaines informations demandées n'existe pas et donc que le script ne le lis pas, j'ai fait en sorte que de base il y a certaines infos dans un code HTML:

Code HTML :

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
<p class=MsoNormal style='text-autospace:none'><a name="_MailAutoSig"><b><span
style='font-size:8.0pt;font-family:"Arial-BoldMT",sans-serif'>Thierry LOISON</span></b></a></p>
 
<p class=MsoNormal><span style='font-size:8.0pt;font-family:"ArialMT",sans-serif'>Architecte</span></p>
 
<p class=MsoNormal><b><span style='font-size:8.0pt;font-family:"Arial",sans-serif;
color:black'>&nbsp;</span></b></p>
 
<p class=MsoNormal style='text-autospace:none'><b><span style='font-size:8.0pt;
font-family:"Arial-BoldMT",sans-serif'>AIA ARCHITECTES</span></b></p>
 
<p class=MsoNormal style='text-autospace:none'><span style='font-size:8.0pt;
font-family:"ArialMT",sans-serif'>13 Boulevard Jean Monnet</span></p>
 
<p class=MsoNormal style='text-autospace:none'><span style='font-size:8.0pt;
font-family:"ArialMT",sans-serif'>56260 Larmor Plage</span></p>
 
<p class=MsoNormal style='text-autospace:none'><b><span style='font-size:8.0pt;
font-family:"Arial-BoldMT",sans-serif'>M </span></b><span style='font-size:
8.0pt;font-family:"ArialMT",sans-serif'> / • </span><b><span
style='font-size:8.0pt;font-family:"Arial-BoldMT",sans-serif'>T </span></b><span
style='font-size:8.0pt;font-family:"ArialMT",sans-serif'>+33 2 97 64 03 40</span></p>
 
<p class=MsoNormal style='text-autospace:none'><span style='font-size:8.0pt;
font-family:"ArialMT",sans-serif'>t.loison@a-i-a.fr</span></p>

( Ses info sont des exemples )

Ensuite il y a le script qui les lis et qui les remplace par les info de l'AD

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
 if not FileSystem.fileexists (oshell.expandenvironmentstrings("%userprofile%") & "\AppData\Roaming\Microsoft\Signatures\" & UserName & "_LD.htm") then
    Set OutPutFileHtml = FileSystem.CreateTextFile(oshell.expandenvironmentstrings("%userprofile%") & "\AppData\Roaming\Microsoft\Signatures\" & UserName & "_LD.htm", True)
 
    Set tmplFile = FileSystem.OpenTextFile("\\sv0080\Nominatif\A.OKOROKOFF\tmpl_sig-aiald-ing-lyon.htm")
 
    strTextFile = tmplFile.ReadAll
 
    strTextFile  = Replace(strTextFile, "Thierry LOISON", oUser.givenName & " " & UCase(Left(oUser.sn, 1)) & LCase(right(oUser.sn, len(oUser.sn)-1)))
    strTextFile  = Replace(strTextFile, "Architecte", oUser.title)
    strTextFile  = Replace(strTextFile, "t.loison@a-i-a.fr", oUser.mail)
    strTextFile  = Replace(strTextFile, "AIA ARCHITECTES", oUser.company)
    strTextFile  = Replace(strTextFile, "13 Boulevard Jean Monnet", oUser.StreetAddress)
    strTextFile  = Replace(strTextFile, "56260", oUser.postalCode)
    strTextFile  = Replace(strTextFile, "Larmor Plage", oUser.l)
    strTextFile  = Replace(strTextFile, "M /", oUser.mobile)
    strTextFile  = Replace(strTextFile, "T +33 2 97 64 03 40", oUser.telephoneNumber)
 
 
 
    OutPutFileHtml.Write (strTextFile)
    OutPutFileHtml.close 
 
  End if

J'aimerais savoir comment faire en sorte que si une des info rechercher dans l'AD n'existe pas pour un utilisateur le champs n'apparait pas ( Exemple pour le numéraux de téléphone mobile, si la personne n'apparait pas seul le fix apparait.

Voila voila ! Merci de votre aide !

[ProgElecT]

Salut, bienvenue sur DVP

De ce que j'ai compris:

tu pars d'un fichier de base/model HTML nommé tmpl_sig-aiald-ing-lyon.htm, le contenu tu le mémorise dans une variable nommée strTextFile

tu ouvres une base de données AD qui contient les champs: givenName, title, mail, company, StreetAddress, postalCode, l, mobile et telephoneNumber

tu modifies la variable strTextFile par une suite de Replace

tu crées un fichier pour recevoir le contenu de la variable strTextFile modifiée

Si il y a bien toujours les 9 champs, remplis ou non, il suffit donc de vérifier leurs contenus.

Je te propose une fonction

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Function RetouR(ValChamp)
	If Trim(ValChamp) = "" Then retour = "Non renseigné" Else RetouR = ValChamp
End Function

et de modifier les lignes Replace par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
	strTextFile  = Replace(strTextFile, "Thierry LOISON", RetouR(Trim(oUser.givenName)))
	strTextFile  = Replace(strTextFile, "Architecte", RetouR(Trim(oUser.title)))
	strTextFile  = Replace(strTextFile, "t.loison@a-i-a.fr", RetouR(Trim(oUser.mail)))
	strTextFile  = Replace(strTextFile, "AIA ARCHITECTES", RetouR(Trim(oUser.company)))
	strTextFile  = Replace(strTextFile, "13 Boulevard Jean Monnet", RetouR(Trim(oUser.StreetAddress)))
	strTextFile  = Replace(strTextFile, "56260", RetouR(Trim(oUser.postalCode)))
	strTextFile  = Replace(strTextFile, "Larmor Plage", RetouR(Trim(oUser.l)))
	strTextFile  = Replace(strTextFile, "M /", RetouR(Trim(oUser.mobile)))
	strTextFile  = Replace(strTextFile, "T +33 2 97 64 03 40", RetouR(Trim(oUser.telephoneNumber)))

Ton fichier de sortie contiendra 9 informations, renseignées ou bien quelque une marquée comme "Non renseigné".

[alexisoko]

Merci sa a l'air super !
Je test sa lundi et je vous dit si tout est bon !