Erreur sur un JOIN... - VB/VBA/VBS - Programmation
MarshPosté le 21-07-2005 à 09:44:32
Bonjour, j'ai un VB Script d'ouverture de session et au début, je récupère quelques informations comme décrit ci-dessous. Lors de l'ouverture d'une session appartenant au groupe ADMIN, ça fonctionne nickel. Si j'essaie avec une session n'ayant pas les droits ADMIN, il se plante sur "strGroups = LCase(Join(CurrentUser.MemberOf)) "
Const ADMIN_GROUP = "cn=admins du domaine"
'Récupération des informations client '------------------------------------ Set ADSysInfo = CreateObject("ADSystemInfo" ) Set CurrentUser = GetObject("LDAP://" & ADSysInfo.UserName) strGroups = LCase(Join(CurrentUser.MemberOf)) Wscript.echo strGroups
Le message d'erreur est
Erreur : Type incompatible: 'Join' Code : 800A000D Source : Erreur d'exécution Microsoft VBScript
Marsh Posté le 21-07-2005 à 09:44:32
Bonjour,
j'ai un VB Script d'ouverture de session et au début, je récupère quelques informations comme décrit ci-dessous. Lors de l'ouverture d'une session appartenant au groupe ADMIN, ça fonctionne nickel. Si j'essaie avec une session n'ayant pas les droits ADMIN, il se plante sur "strGroups = LCase(Join(CurrentUser.MemberOf))
"
Const ADMIN_GROUP = "cn=admins du domaine"
'Récupération des informations client
'------------------------------------
Set ADSysInfo = CreateObject("ADSystemInfo" )
Set CurrentUser = GetObject("LDAP://" & ADSysInfo.UserName)
strGroups = LCase(Join(CurrentUser.MemberOf))
Wscript.echo strGroups
Le message d'erreur est
Erreur : Type incompatible: 'Join'
Code : 800A000D
Source : Erreur d'exécution Microsoft VBScript