Pantage code VBA

Le
Richard_35
Bonjour à tous,

J'ai un petit soucis dans le code suivant :

Public Sub MsgBoxGroups(Optional ByVal sComputer As String, Optional ByVal
sUsername As String)
Dim oGroup As Object
Dim oUser As Object
Dim sAdsPath As String
Dim sMsg As String

If sComputer = "" Then sComputer = Environ("COMPUTERNAME")
If sUsername = "" Then sUsername = Environ("USERNAME")

sAdsPath = "WinNT://" & sComputer & "/" & sUsername & ",user"

Set oUser = GetObject(sAdsPath)

sMsg = "Liste des groupes de [" & sUsername & "] :"

For Each oGroup In oUser.Groups
sMsg = sMsg & vbCrLf & " >> " & oGroup.Name
Next oGroup

MsgBox sMsg
End Sub

Il se plante avec le message suivant :
"Erreur d'exécution '2147022675 (800708ad)
Erreur Automation
Le nom d'utilisateur est introuvable."

à l'instruction :
"Set oUser = GetObject(sAdsPath)"

Je ne vois pas la solution.

Merci d'avance de vos conseils,
Richard.
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Michel__D
Le #16432961
Bonjour,

Richard_35 a écrit :
Bonjour à tous,

J'ai un petit soucis dans le code suivant :

Public Sub MsgBoxGroups(Optional ByVal sComputer As String, Optional ByVal
sUsername As String)
Dim oGroup As Object
Dim oUser As Object
Dim sAdsPath As String
Dim sMsg As String

If sComputer = "" Then sComputer = Environ("COMPUTERNAME")
If sUsername = "" Then sUsername = Environ("USERNAME")

sAdsPath = "WinNT://" & sComputer & "/" & sUsername & ",user"

Set oUser = GetObject(sAdsPath)

sMsg = "Liste des groupes de [" & sUsername & "] :"

For Each oGroup In oUser.Groups
sMsg = sMsg & vbCrLf & " >> " & oGroup.Name
Next oGroup

MsgBox sMsg
End Sub

Il se plante avec le message suivant :
"Erreur d'exécution '2147022675 (800708ad)
Erreur Automation
Le nom d'utilisateur est introuvable."

à l'instruction :
"Set oUser = GetObject(sAdsPath)"

Je ne vois pas la solution.

Merci d'avance de vos conseils,
Richard.



Tu es allé voir les liens ci-dessous, on ne sait jamais :

http://support.microsoft.com/kb/818189/fr

http://support.microsoft.com/kb/288358/EN-US/

http://support.microsoft.com/kb/216290/

PS:Tu es sur que la variable "sAdsPath" est bien formée ?
Richard_35
Le #16433131
Bonjour Michel,

Merci de ta réponse.
En attendant d'aller voir les liens que tu m'indiques, je te confirme que la
variable "sAdsPath" est bien formée : après plantage, en mode débogage, la
valeur de la variable est bien affichée.

Merci d'avance de tes conseils,
Richard.

"Michel__D" a écrit :

Bonjour,

Richard_35 a écrit :
> Bonjour à tous,
>
> J'ai un petit soucis dans le code suivant :
>
> Public Sub MsgBoxGroups(Optional ByVal sComputer As String, Optional ByVal
> sUsername As String)
> Dim oGroup As Object
> Dim oUser As Object
> Dim sAdsPath As String
> Dim sMsg As String
>
> If sComputer = "" Then sComputer = Environ("COMPUTERNAME")
> If sUsername = "" Then sUsername = Environ("USERNAME")
>
> sAdsPath = "WinNT://" & sComputer & "/" & sUsername & ",user"
>
> Set oUser = GetObject(sAdsPath)
>
> sMsg = "Liste des groupes de [" & sUsername & "] :"
>
> For Each oGroup In oUser.Groups
> sMsg = sMsg & vbCrLf & " >> " & oGroup.Name
> Next oGroup
>
> MsgBox sMsg
> End Sub
>
> Il se plante avec le message suivant :
> "Erreur d'exécution '2147022675 (800708ad)
> Erreur Automation
> Le nom d'utilisateur est introuvable."
>
> à l'instruction :
> "Set oUser = GetObject(sAdsPath)"
>
> Je ne vois pas la solution.
>
> Merci d'avance de vos conseils,
> Richard.

Tu es allé voir les liens ci-dessous, on ne sait jamais :

http://support.microsoft.com/kb/818189/fr

http://support.microsoft.com/kb/288358/EN-US/

http://support.microsoft.com/kb/216290/

PS:Tu es sur que la variable "sAdsPath" est bien formée ?



Publicité
Poster une réponse
Anonyme