J'utilise le bout de code suivant pour récupérer des infos sur les
imprimantes d'un serveur d'impression.
Un des attributs de la Classe PrintQueue me pose problème : PrinShareName.
En effet lorsque je demande d'afficher sa valeur, il m'envoie un message
d'erreur
Code : 800A00D type incompatible
Pourtant une recherche ADSEDIT montre que c'est de l'unicode string
comme le printername ou le servername qui eux s'affichent correctement.
D'autre part, l'attribut contient bien une valeur...
Merci pour vos lumières....
Const ADS_SCOPE_SUBTREE = 2
Set objConnection = CreateObject("ADODB.Connection")
Set objCommand = CreateObject("ADODB.Command")
objConnection.Provider = "ADsDSOObject"
objConnection.Open "Active Directory Provider"
Set objCommand.ActiveConnection = objConnection
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
Gilles LAURENT
"François" a écrit dans le message de news: | Bonjour,
Bonjour,
| J'utilise le bout de code suivant pour récupérer des infos sur les | imprimantes d'un serveur d'impression. | Un des attributs de la Classe PrintQueue me pose problème : | PrinShareName. | | En effet lorsque je demande d'afficher sa valeur, il m'envoie un | message d'erreur | Code : 800A00D type incompatible | | Pourtant une recherche ADSEDIT montre que c'est de l'unicode string | comme le printername ou le servername qui eux s'affichent | correctement. | | D'autre part, l'attribut contient bien une valeur... | | Merci pour vos lumières.... [...]
Parce que c'est un attribut multivalué :
If Not (IsNull(objRecordSet.Fields("printShareName").Value)) Then arrShare=objRecordSet.Fields("printShareName").Value printShareName = arrShare(0) WScript.Echo printShareName End If
-- Gilles LAURENT http://glsft.free.fr
"François" <Francois.lesourdi@free.fr> a écrit dans le message de
news:ecJlXhlgHHA.4936@TK2MSFTNGP04.phx.gbl
| Bonjour,
Bonjour,
| J'utilise le bout de code suivant pour récupérer des infos sur les
| imprimantes d'un serveur d'impression.
| Un des attributs de la Classe PrintQueue me pose problème :
| PrinShareName.
|
| En effet lorsque je demande d'afficher sa valeur, il m'envoie un
| message d'erreur
| Code : 800A00D type incompatible
|
| Pourtant une recherche ADSEDIT montre que c'est de l'unicode string
| comme le printername ou le servername qui eux s'affichent
| correctement.
|
| D'autre part, l'attribut contient bien une valeur...
|
| Merci pour vos lumières....
[...]
Parce que c'est un attribut multivalué :
If Not (IsNull(objRecordSet.Fields("printShareName").Value)) Then
arrShare=objRecordSet.Fields("printShareName").Value
printShareName = arrShare(0)
WScript.Echo printShareName
End If
"François" a écrit dans le message de news: | Bonjour,
Bonjour,
| J'utilise le bout de code suivant pour récupérer des infos sur les | imprimantes d'un serveur d'impression. | Un des attributs de la Classe PrintQueue me pose problème : | PrinShareName. | | En effet lorsque je demande d'afficher sa valeur, il m'envoie un | message d'erreur | Code : 800A00D type incompatible | | Pourtant une recherche ADSEDIT montre que c'est de l'unicode string | comme le printername ou le servername qui eux s'affichent | correctement. | | D'autre part, l'attribut contient bien une valeur... | | Merci pour vos lumières.... [...]
Parce que c'est un attribut multivalué :
If Not (IsNull(objRecordSet.Fields("printShareName").Value)) Then arrShare=objRecordSet.Fields("printShareName").Value printShareName = arrShare(0) WScript.Echo printShareName End If
-- Gilles LAURENT http://glsft.free.fr
François
Merci, ça roule!
"François" a écrit dans le message de news: | Bonjour,
Bonjour,
| J'utilise le bout de code suivant pour récupérer des infos sur les | imprimantes d'un serveur d'impression. | Un des attributs de la Classe PrintQueue me pose problème : | PrinShareName. | | En effet lorsque je demande d'afficher sa valeur, il m'envoie un | message d'erreur | Code : 800A00D type incompatible | | Pourtant une recherche ADSEDIT montre que c'est de l'unicode string | comme le printername ou le servername qui eux s'affichent | correctement. | | D'autre part, l'attribut contient bien une valeur... | | Merci pour vos lumières.... [...]
Parce que c'est un attribut multivalué :
If Not (IsNull(objRecordSet.Fields("printShareName").Value)) Then arrShare=objRecordSet.Fields("printShareName").Value printShareName = arrShare(0) WScript.Echo printShareName End If
Merci, ça roule!
"François" <Francois.lesourdi@free.fr> a écrit dans le message de
news:ecJlXhlgHHA.4936@TK2MSFTNGP04.phx.gbl
| Bonjour,
Bonjour,
| J'utilise le bout de code suivant pour récupérer des infos sur les
| imprimantes d'un serveur d'impression.
| Un des attributs de la Classe PrintQueue me pose problème :
| PrinShareName.
|
| En effet lorsque je demande d'afficher sa valeur, il m'envoie un
| message d'erreur
| Code : 800A00D type incompatible
|
| Pourtant une recherche ADSEDIT montre que c'est de l'unicode string
| comme le printername ou le servername qui eux s'affichent
| correctement.
|
| D'autre part, l'attribut contient bien une valeur...
|
| Merci pour vos lumières....
[...]
Parce que c'est un attribut multivalué :
If Not (IsNull(objRecordSet.Fields("printShareName").Value)) Then
arrShare=objRecordSet.Fields("printShareName").Value
printShareName = arrShare(0)
WScript.Echo printShareName
End If
"François" a écrit dans le message de news: | Bonjour,
Bonjour,
| J'utilise le bout de code suivant pour récupérer des infos sur les | imprimantes d'un serveur d'impression. | Un des attributs de la Classe PrintQueue me pose problème : | PrinShareName. | | En effet lorsque je demande d'afficher sa valeur, il m'envoie un | message d'erreur | Code : 800A00D type incompatible | | Pourtant une recherche ADSEDIT montre que c'est de l'unicode string | comme le printername ou le servername qui eux s'affichent | correctement. | | D'autre part, l'attribut contient bien une valeur... | | Merci pour vos lumières.... [...]
Parce que c'est un attribut multivalué :
If Not (IsNull(objRecordSet.Fields("printShareName").Value)) Then arrShare=objRecordSet.Fields("printShareName").Value printShareName = arrShare(0) WScript.Echo printShareName End If