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")
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Michel__D
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")
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 ?
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")
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")
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
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 ?
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 ?
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 ?