Discussion :

[Invité]

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 :

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
 
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

[SfJ5Rpw8]

Bonsoir,

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

[Invité]

LCase=Convertit la chaîne string en minuscules.

je vais tester

[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

[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 :

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

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

[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 ?