Double condition if [Résolu]

[JFMichaud]

J'ai mon petit script mais je n'arrive pas a faire la règle pour la double condition if strPhone =Gr1 ET strOffice =Bureau1 ALORS fait ceci?

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
On Error Resume Next
Set objSysInfo = CreateObject("ADSystemInfo")
Set objUser = GetObject("LDAP://" & objSysInfo.UserName)
strPhone = objUser.telephoneNumber
strOffice = objUser.physicalDeliveryOfficeName
Set objNetwork = CreateObject("WScript.Network")
Set objUser = CreateObject("ADSystemInfo")
Set objCurrentUser = GetObject("LDAP://" & objUser.UserName)
 
Set WshShell = Wscript.CreateObject("Wscript.Shell")
WshShell.Popup "Blabla",30, "Note", 0
 
If (InStr(LCase(strPhone), "Gr1") = 1) And If (InStr(LCase(strOffice), "Bureau1") = 1) Then
objNetwork.MapNetworkDrive "X:", "\\serveur\partage\dir\"& strPhone
End If
 
If (InStr(LCase(strPhone), "Gr2") = 1) And If (InStr(LCase(strOffice), "Bureau1") = 1) Then
objNetwork.MapNetworkDrive "X:", "\\serveur\partage\dir\"& strPhone
End If

Est ce que c'est possible?

Merci de votre aide

[bbil]

Bonsoir,

t'est tu demandé à quoi servait ta fonction Lcase ?

[JFMichaud]

LCase=Convertit la chaîne string en minuscules.

je vais tester

[JFMichaud]

Je nage sans trouver

J'ai essayé en enlevant le LCase...
J'ai tout mis en minuscule/majuscule

Mais j'ai pas compris la logique?

Un autre petit hint

[bbil]

et oui si tu utilise Lcase tes chaines à comparer doivent elle aussi être en minuscule..

sinon j'avais pas vu ton 2° if en trop ...

Code :

1
2
 
If (InStr(LCase(strPhone), "gr1") = 1) And (InStr(LCase(strOffice), "bureau1") = 1) Then

[JFMichaud]

AHHH merci bbil c'était effectivement le 2ieme if en trop

mais est ce possible de m'expliquer pour voir si j'ai bien comprit

(InStr(LCase(strOffice), "bureau1") = 1)

Dans la chaine d'instruction strOffice l'information doit correspondre à bureau1...

Donc peut importe si dans AD il est écrit Bureau1 ou bureau1 ?

[bbil]

Oui, par défaut Instr fait une comparaison binaire et donc A et différent de a ..

Un troisième paramètre permet de faire une comparaison en mode texte (voir le cas "D" ci-dessous ):

Code :

1
2
3
4
Wscript.echo "A : " & InStr("Aeaje","Ae")
Wscript.echo "B : " & InStr("Aeaje","ae")
Wscript.echo "C : " & InStr(Lcase("Aeaje"),"ae",1)
Wscript.echo "D : " & InStr("Aeaje","ae",1)