Double condition if

Version imprimable

Double condition if

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

07/02/2012, 19h45
SfJ5Rpw8

Bonsoir,

t'est tu demandé à quoi servait ta fonction Lcase ?
07/02/2012, 19h49
Invité

LCase=Convertit la chaîne string en minuscules.

je vais tester :P
07/02/2012, 20h36
Invité

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 :)
07/02/2012, 21h18
SfJ5Rpw8
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
07/02/2012, 21h42
Invité

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 ?
07/02/2012, 22h06
SfJ5Rpw8
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)