Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Développement Développement Scripting Microsoft Script qui fonctionne sur Xp mais pas sur 2003

Script qui fonctionne sur Xp mais pas sur 2003

6 réponses
Avatar
Nico
Bonjour,

Bon...je viens de me mettre au script vbs... et je suis confronté a un ptit
pb:

Lorsque j'execute ce script (ci-dessous) sur un poste en XP... cela passe...
mais pas sur un serveur 2003...
Je l'execute a partir d'un compte admin... donc pas de pb de droits...
Je n'ai aucun message d'erreur...
Après avoir ajouter des Wscript.Echo avec message dans les différentes
étapes... j'ai vu que le script s'arrête à la ligne:
For Each objItem in colItems

Y'a t'il une nuance que je n'ai pas compris ? Et si oui...pouvez vous
m'ondiquer laquelle ?

Merci pour vos aide....

Nicolas.


Voici le script:

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colItems = objWMIService.ExecQuery _
("Select * from Win32_Printer")

For Each objItem in colItems
Wscript.Echo "***********************************"
Wscript.Echo "Nom: " & objItem.DeviceID
Wscript.Echo "Nom de partage: " & objItem.Sharename
Wscript.Echo "Port IP: " & objItem.Portname
Wscript.Echo "Emplacement: " & objItem.Location
Wscript.Echo "Commentaire: " & objItem.comment

Next

Wscript.Echo "***********************************"
Signaler un problème avec ce contenu

6 réponses

Supprimer
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
Avatar
Fred
Dans : news:%23aAQUL$,
Nico disait :
Bonjour,


Bonsoir,

Bon...je viens de me mettre au script vbs... et je suis confronté a
un ptit pb:
Lorsque j'execute ce script (ci-dessous) sur un poste en XP... cela
passe... mais pas sur un serveur 2003...


Quel est le message d'erreur ?
Es-tu certain que la collection retournée n'est pas nulle ?
Teste avec If IsNull(colItems) pour voir.

--
Fred
http://www.cerbermail.com/?3kA6ftaCvT

Avatar
Nico
Bonjour,

tout d'abord, merci pour l'aide...

En fait je n'ai pas de message d'erreur... le script semble s'executer mais
ne jamais se terminer..sans rien aficher...

J'ai essayé de rajouter la commande If IsNull(colItems) mais je dois
merdouiller... (débutant oblige !)
J'ai une erreur (23,2)... Je dois donc me tromper mais je ne vois pas où !

Voici ce que donne mon script:

strComputer = "."
Wscript.Echo "etape 1"
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!" & strComputer & "rootcimv2")
Set colItems = objWMIService.ExecQuery _
("Select * from Win32_Printer")

If IsNull(colItems) Then
Wscript.Echo "valeur Nulle"
Else
For Each objItem in colItems
Wscript.Echo "***********************************"
Wscript.Echo "Nom: " & objItem.DeviceID
Wscript.Echo "Nom de partage: " & objItem.Sharename
Wscript.Echo "Port IP: " & objItem.Portname
Wscript.Echo "Emplacement: " & objItem.Location
Wscript.Echo "Commentaire: " & objItem.comment
End If





"Fred" a écrit dans le message de news:
e2KpWm$
Dans : news:%23aAQUL$,
Nico disait :
Bonjour,


Bonsoir,

Bon...je viens de me mettre au script vbs... et je suis confronté a
un ptit pb:
Lorsque j'execute ce script (ci-dessous) sur un poste en XP... cela
passe... mais pas sur un serveur 2003...


Quel est le message d'erreur ?
Es-tu certain que la collection retournée n'est pas nulle ?
Teste avec If IsNull(colItems) pour voir.

--
Fred
http://www.cerbermail.com/?3kA6ftaCvT



Avatar
Georges MAUREL
Bonjour Nico,
Le lien ci-dessous vous donnera toutes les méthodes et propriétés de la
classe win32_printer
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/wmisdk/wmi/win32_printer.asp
Regardez en bas de page le tableau requirements.
Il vous faut aussi faire attention à certaines propriétés qui ne sont pas
disponibles sur certains OS

Cordialement
Georges



"Nico" a écrit dans le message de
news:
Bonjour,

tout d'abord, merci pour l'aide...

En fait je n'ai pas de message d'erreur... le script semble s'executer
mais

ne jamais se terminer..sans rien aficher...

J'ai essayé de rajouter la commande If IsNull(colItems) mais je dois
merdouiller... (débutant oblige !)
J'ai une erreur (23,2)... Je dois donc me tromper mais je ne vois pas où !

Voici ce que donne mon script:

strComputer = "."
Wscript.Echo "etape 1"
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!" & strComputer & "rootcimv2")
Set colItems = objWMIService.ExecQuery _
("Select * from Win32_Printer")

If IsNull(colItems) Then
Wscript.Echo "valeur Nulle"
Else
For Each objItem in colItems
Wscript.Echo "***********************************"
Wscript.Echo "Nom: " & objItem.DeviceID
Wscript.Echo "Nom de partage: " & objItem.Sharename
Wscript.Echo "Port IP: " & objItem.Portname
Wscript.Echo "Emplacement: " & objItem.Location
Wscript.Echo "Commentaire: " & objItem.comment
End If





"Fred" a écrit dans le message de news:
e2KpWm$
Dans : news:%23aAQUL$,
Nico disait :
Bonjour,


Bonsoir,

Bon...je viens de me mettre au script vbs... et je suis confronté a
un ptit pb:
Lorsque j'execute ce script (ci-dessous) sur un poste en XP... cela
passe... mais pas sur un serveur 2003...


Quel est le message d'erreur ?
Es-tu certain que la collection retournée n'est pas nulle ?
Teste avec If IsNull(colItems) pour voir.

--
Fred
http://www.cerbermail.com/?3kA6ftaCvT







Avatar
Nico
Alors...
Je suis allez voir le lien qui m'indique comme prerequis:
MOF Declared in Cimwin32.mof.

DLL Requires Cimwin32.dll.
Namespace Defined in rootcimv2.



Savez comment je peux vérifier cela ?

J'ai testé d'autres scripts sur ce serveur 2003... ils ne passent pas non
plus....
Je vais donc m'orienté vers un pb technique.... Si vous aviez des infos sur
le sujet...

Je vais de mon coté faire qques recherches sur le net...

Merci bcp,

Nico



"Georges MAUREL" <georges.maurel_at_free.fr> a écrit dans le message de
news: %
Bonjour Nico,
Le lien ci-dessous vous donnera toutes les méthodes et propriétés de la
classe win32_printer
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/wmisdk/wmi/win32_printer.asp
Regardez en bas de page le tableau requirements.
Il vous faut aussi faire attention à certaines propriétés qui ne sont pas
disponibles sur certains OS

Cordialement
Georges



"Nico" a écrit dans le message de
news:
Bonjour,

tout d'abord, merci pour l'aide...

En fait je n'ai pas de message d'erreur... le script semble s'executer
mais

ne jamais se terminer..sans rien aficher...

J'ai essayé de rajouter la commande If IsNull(colItems) mais je dois
merdouiller... (débutant oblige !)
J'ai une erreur (23,2)... Je dois donc me tromper mais je ne vois pas où
!

Voici ce que donne mon script:

strComputer = "."
Wscript.Echo "etape 1"
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!" & strComputer &
"rootcimv2")
Set colItems = objWMIService.ExecQuery _
("Select * from Win32_Printer")

If IsNull(colItems) Then
Wscript.Echo "valeur Nulle"
Else
For Each objItem in colItems
Wscript.Echo "***********************************"
Wscript.Echo "Nom: " & objItem.DeviceID
Wscript.Echo "Nom de partage: " & objItem.Sharename
Wscript.Echo "Port IP: " & objItem.Portname
Wscript.Echo "Emplacement: " & objItem.Location
Wscript.Echo "Commentaire: " & objItem.comment
End If





"Fred" a écrit dans le message de news:
e2KpWm$
Dans : news:%23aAQUL$,
Nico disait :
Bonjour,


Bonsoir,

Bon...je viens de me mettre au script vbs... et je suis confronté a
un ptit pb:
Lorsque j'execute ce script (ci-dessous) sur un poste en XP... cela
passe... mais pas sur un serveur 2003...


Quel est le message d'erreur ?
Es-tu certain que la collection retournée n'est pas nulle ?
Teste avec If IsNull(colItems) pour voir.

--
Fred
http://www.cerbermail.com/?3kA6ftaCvT











Avatar
Georges MAUREL
Re bonjour Nico,
Le lien suivant vous donnera quelques pistes à étudier pour vérifier que wmi
fonctionne correctement sur votre machine, notamment la question 8
http://www.microsoft.com/technet/scriptcenter/resources/wmifaq.mspx/#EJAA

Cordialement
Georges


"Nico" a écrit dans le message de
news:OjmMq%
Alors...
Je suis allez voir le lien qui m'indique comme prerequis:
MOF Declared in Cimwin32.mof.

DLL Requires Cimwin32.dll.
Namespace Defined in rootcimv2.



Savez comment je peux vérifier cela ?

J'ai testé d'autres scripts sur ce serveur 2003... ils ne passent pas non
plus....
Je vais donc m'orienté vers un pb technique.... Si vous aviez des infos
sur

le sujet...

Je vais de mon coté faire qques recherches sur le net...

Merci bcp,

Nico



"Georges MAUREL" <georges.maurel_at_free.fr> a écrit dans le message de
news: %
Bonjour Nico,
Le lien ci-dessous vous donnera toutes les méthodes et propriétés de la
classe win32_printer

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/wmisdk/wmi/win32_printer.asp


Regardez en bas de page le tableau requirements.
Il vous faut aussi faire attention à certaines propriétés qui ne sont
pas


disponibles sur certains OS

Cordialement
Georges



"Nico" a écrit dans le message de
news:
Bonjour,

tout d'abord, merci pour l'aide...

En fait je n'ai pas de message d'erreur... le script semble s'executer
mais

ne jamais se terminer..sans rien aficher...

J'ai essayé de rajouter la commande If IsNull(colItems) mais je dois
merdouiller... (débutant oblige !)
J'ai une erreur (23,2)... Je dois donc me tromper mais je ne vois pas
où



!

Voici ce que donne mon script:

strComputer = "."
Wscript.Echo "etape 1"
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!" & strComputer &
"rootcimv2")
Set colItems = objWMIService.ExecQuery _
("Select * from Win32_Printer")

If IsNull(colItems) Then
Wscript.Echo "valeur Nulle"
Else
For Each objItem in colItems
Wscript.Echo "***********************************"
Wscript.Echo "Nom: " & objItem.DeviceID
Wscript.Echo "Nom de partage: " & objItem.Sharename
Wscript.Echo "Port IP: " & objItem.Portname
Wscript.Echo "Emplacement: " & objItem.Location
Wscript.Echo "Commentaire: " & objItem.comment
End If





"Fred" a écrit dans le message de news:
e2KpWm$
Dans : news:%23aAQUL$,
Nico disait :
Bonjour,


Bonsoir,

Bon...je viens de me mettre au script vbs... et je suis confronté a
un ptit pb:
Lorsque j'execute ce script (ci-dessous) sur un poste en XP... cela
passe... mais pas sur un serveur 2003...


Quel est le message d'erreur ?
Es-tu certain que la collection retournée n'est pas nulle ?
Teste avec If IsNull(colItems) pour voir.

--
Fred
http://www.cerbermail.com/?3kA6ftaCvT















Avatar
Nico
Bon...j'ai un peu honte de moi !!!!

Après avoir consulté le lien... j'ai fait un arrêt / départ du service
"Infrastructure de Gestion Windows"...
Et depuis...tout est Ok...
En tout cas merci pour les infos et les liens !

A bientôt,

Nico


"Georges MAUREL" <georges.maurel_at_free.fr> a écrit dans le message de
news: %
Re bonjour Nico,
Le lien suivant vous donnera quelques pistes à étudier pour vérifier que
wmi
fonctionne correctement sur votre machine, notamment la question 8
http://www.microsoft.com/technet/scriptcenter/resources/wmifaq.mspx/#EJAA

Cordialement
Georges


"Nico" a écrit dans le message de
news:OjmMq%
Alors...
Je suis allez voir le lien qui m'indique comme prerequis:
MOF Declared in Cimwin32.mof.

DLL Requires Cimwin32.dll.
Namespace Defined in rootcimv2.



Savez comment je peux vérifier cela ?

J'ai testé d'autres scripts sur ce serveur 2003... ils ne passent pas non
plus....
Je vais donc m'orienté vers un pb technique.... Si vous aviez des infos
sur

le sujet...

Je vais de mon coté faire qques recherches sur le net...

Merci bcp,

Nico



"Georges MAUREL" <georges.maurel_at_free.fr> a écrit dans le message de
news: %
Bonjour Nico,
Le lien ci-dessous vous donnera toutes les méthodes et propriétés de la
classe win32_printer

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/wmisdk/wmi/win32_printer.asp


Regardez en bas de page le tableau requirements.
Il vous faut aussi faire attention à certaines propriétés qui ne sont
pas


disponibles sur certains OS

Cordialement
Georges



"Nico" a écrit dans le message de
news:
Bonjour,

tout d'abord, merci pour l'aide...

En fait je n'ai pas de message d'erreur... le script semble s'executer
mais

ne jamais se terminer..sans rien aficher...

J'ai essayé de rajouter la commande If IsNull(colItems) mais je dois
merdouiller... (débutant oblige !)
J'ai une erreur (23,2)... Je dois donc me tromper mais je ne vois pas
où



!

Voici ce que donne mon script:

strComputer = "."
Wscript.Echo "etape 1"
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!" & strComputer &
"rootcimv2")
Set colItems = objWMIService.ExecQuery _
("Select * from Win32_Printer")

If IsNull(colItems) Then
Wscript.Echo "valeur Nulle"
Else
For Each objItem in colItems
Wscript.Echo "***********************************"
Wscript.Echo "Nom: " & objItem.DeviceID
Wscript.Echo "Nom de partage: " & objItem.Sharename
Wscript.Echo "Port IP: " & objItem.Portname
Wscript.Echo "Emplacement: " & objItem.Location
Wscript.Echo "Commentaire: " & objItem.comment
End If





"Fred" a écrit dans le message de news:
e2KpWm$
Dans : news:%23aAQUL$,
Nico disait :
Bonjour,


Bonsoir,

Bon...je viens de me mettre au script vbs... et je suis confronté a
un ptit pb:
Lorsque j'execute ce script (ci-dessous) sur un poste en XP... cela
passe... mais pas sur un serveur 2003...


Quel est le message d'erreur ?
Es-tu certain que la collection retournée n'est pas nulle ?
Teste avec If IsNull(colItems) pour voir.

--
Fred
http://www.cerbermail.com/?3kA6ftaCvT