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 VBS avec objitem inexistant

SCript VBS avec objitem inexistant

6 réponses
Avatar
Robby
Bonjour,

Voila j'ai un script en vbs qui fait l'inventaire d'un poste à la demande.
Pas de soucis, sauf que sur cette machine la Propriété NumberOfCore n'existe
pas.
Voici mon bout de code :
Set colItems = objWMIService.ExecQuery("Select * from Win32_Processor")
For Each objitem In colItems
nbredecoeurs = objItem.NumberOfCores
If nbredecoeurs Is Null Then
strMsg = strMsg & "Type de processeur: " & objItem.Name & Chr(10) & _
"Maximum Clock Speed: " & objItem.MaxClockSpeed & Chr(10)
Else
If nbredecoeurs > 0 Then
strMsg = strMsg & "Type de processeur: " & objItem.Name & Chr(10) & _
"Maximum Clock Speed: " & objItem.MaxClockSpeed & Chr(10) & _
"Nbre de coeurs: " & objItem.NumberOfCores & Chr(10)
End If
End If
Next

La chose qui me pose probleme, c'st comment faire pour que mon script
s'effectue meme
si la machine distante n'a pas la propriété objItem.NumberOfCores car j'ai
le message d'erreur :
"Cet objet ne gere pas cette propriété..."
Par l'autre condition fonctionne bien quand il trouve un nbre de coeurs.

Merci d'avance,

Robby
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
Michel__D
Bonjour,

Robby a écrit :
Bonjour,

Voila j'ai un script en vbs qui fait l'inventaire d'un poste à la demande.
Pas de soucis, sauf que sur cette machine la Propriété NumberOfCore n'existe
pas.
Voici mon bout de code :
Set colItems = objWMIService.ExecQuery("Select * from Win32_Processor")
For Each objitem In colItems
nbredecoeurs = objItem.NumberOfCores
If nbredecoeurs Is Null Then
strMsg = strMsg & "Type de processeur: " & objItem.Name & Chr(10) & _
"Maximum Clock Speed: " & objItem.MaxClockSpeed & Chr(10)
Else
If nbredecoeurs > 0 Then
strMsg = strMsg & "Type de processeur: " & objItem.Name & Chr(10) & _
"Maximum Clock Speed: " & objItem.MaxClockSpeed & Chr(10) & _
"Nbre de coeurs: " & objItem.NumberOfCores & Chr(10)
End If
End If
Next

La chose qui me pose probleme, c'st comment faire pour que mon script
s'effectue meme
si la machine distante n'a pas la propriété objItem.NumberOfCores car j'ai
le message d'erreur :
"Cet objet ne gere pas cette propriété..."
Par l'autre condition fonctionne bien quand il trouve un nbre de coeurs.

Merci d'avance,

Robby



Tu as la réponse dans l'énoncé de la question :

...
si la machine distante n'a pas la propriété objItem.NumberOfCores car j'ai le message d'erreur :
"Cet objet ne gere pas cette propriété..."
...

Donc si tu gére les erreurs ...
Avatar
Robby
Merci, mais pourrais-tu me repondre plus precisement car je n'arrive pas
à gerer cette erreur.
Encore Merci.

"Michel__D" a écrit dans le message de
news: eV21qeI$
Bonjour,

Robby a écrit :
Bonjour,

Voila j'ai un script en vbs qui fait l'inventaire d'un poste à la
demande.
Pas de soucis, sauf que sur cette machine la Propriété NumberOfCore
n'existe pas.
Voici mon bout de code :
Set colItems = objWMIService.ExecQuery("Select * from Win32_Processor")
For Each objitem In colItems
nbredecoeurs = objItem.NumberOfCores
If nbredecoeurs Is Null Then
strMsg = strMsg & "Type de processeur: " & objItem.Name & Chr(10) &
_
"Maximum Clock Speed: " & objItem.MaxClockSpeed & Chr(10)
Else
If nbredecoeurs > 0 Then
strMsg = strMsg & "Type de processeur: " & objItem.Name & Chr(10) &
_
"Maximum Clock Speed: " & objItem.MaxClockSpeed & Chr(10) & _
"Nbre de coeurs: " & objItem.NumberOfCores & Chr(10)
End If
End If
Next

La chose qui me pose probleme, c'st comment faire pour que mon script
s'effectue meme
si la machine distante n'a pas la propriété objItem.NumberOfCores car
j'ai le message d'erreur :
"Cet objet ne gere pas cette propriété..."
Par l'autre condition fonctionne bien quand il trouve un nbre de coeurs.

Merci d'avance,

Robby



Tu as la réponse dans l'énoncé de la question :

...
si la machine distante n'a pas la propriété objItem.NumberOfCores car j'ai
le message d'erreur :
"Cet objet ne gere pas cette propriété..."
...

Donc si tu gére les erreurs ...



Avatar
Robby
En fait c'est les postes En XP SP2 qui ne connaissent pas la propriété
NumberOfCore, mais les XP en SP3
sont ok.
Bien-sur dans mon parc j'ai les 2 SP2- et SP3.
Comment faire, y a t-il une idée ?
encore merci,
Robby.

"Robby" a écrit dans le message de news:
e%23nqvxg$
Merci, mais pourrais-tu me repondre plus precisement car je n'arrive pas
à gerer cette erreur.
Encore Merci.

"Michel__D" a écrit dans le message
de news: eV21qeI$
Bonjour,

Robby a écrit :
Bonjour,

Voila j'ai un script en vbs qui fait l'inventaire d'un poste à la
demande.
Pas de soucis, sauf que sur cette machine la Propriété NumberOfCore
n'existe pas.
Voici mon bout de code :
Set colItems = objWMIService.ExecQuery("Select * from Win32_Processor")
For Each objitem In colItems
nbredecoeurs = objItem.NumberOfCores
If nbredecoeurs Is Null Then
strMsg = strMsg & "Type de processeur: " & objItem.Name & Chr(10) &
_
"Maximum Clock Speed: " & objItem.MaxClockSpeed & Chr(10)
Else
If nbredecoeurs > 0 Then
strMsg = strMsg & "Type de processeur: " & objItem.Name & Chr(10) &
_
"Maximum Clock Speed: " & objItem.MaxClockSpeed & Chr(10) & _
"Nbre de coeurs: " & objItem.NumberOfCores & Chr(10)
End If
End If
Next

La chose qui me pose probleme, c'st comment faire pour que mon script
s'effectue meme
si la machine distante n'a pas la propriété objItem.NumberOfCores car
j'ai le message d'erreur :
"Cet objet ne gere pas cette propriété..."
Par l'autre condition fonctionne bien quand il trouve un nbre de coeurs.

Merci d'avance,

Robby



Tu as la réponse dans l'énoncé de la question :

...
si la machine distante n'a pas la propriété objItem.NumberOfCores car
j'ai le message d'erreur :
"Cet objet ne gere pas cette propriété..."
...

Donc si tu gére les erreurs ...








Avatar
F. Dunoyer
Robby a écrit :
En fait c'est les postes En XP SP2 qui ne connaissent pas la propriété
NumberOfCore, mais les XP en SP3
sont ok.
Bien-sur dans mon parc j'ai les 2 SP2- et SP3.
Comment faire, y a t-il une idée ?
encore merci,
Robby.

"Robby" a écrit dans le message de news:
e%23nqvxg$
Merci, mais pourrais-tu me repondre plus precisement car je n'arrive pas
à gerer cette erreur.
Encore Merci.

"Michel__D" a écrit dans le message
de news: eV21qeI$
Bonjour,

Robby a écrit :
Bonjour,

Voila j'ai un script en vbs qui fait l'inventaire d'un poste à la
demande.
Pas de soucis, sauf que sur cette machine la Propriété NumberOfCore
n'existe pas.
Voici mon bout de code :
Set colItems = objWMIService.ExecQuery("Select * from Win32_Processor")
For Each objitem In colItems
nbredecoeurs = objItem.NumberOfCores
If nbredecoeurs Is Null Then
strMsg = strMsg & "Type de processeur: " & objItem.Name & Chr(10) &
_
"Maximum Clock Speed: " & objItem.MaxClockSpeed & Chr(10)
Else
If nbredecoeurs > 0 Then
strMsg = strMsg & "Type de processeur: " & objItem.Name & Chr(10) &
_
"Maximum Clock Speed: " & objItem.MaxClockSpeed & Chr(10) & _
"Nbre de coeurs: " & objItem.NumberOfCores & Chr(10)
End If
End If
Next

La chose qui me pose probleme, c'st comment faire pour que mon script
s'effectue meme
si la machine distante n'a pas la propriété objItem.NumberOfCores car
j'ai le message d'erreur :
"Cet objet ne gere pas cette propriété..."
Par l'autre condition fonctionne bien quand il trouve un nbre de coeurs.

Merci d'avance,

Robby



Tu as la réponse dans l'énoncé de la question :

...
si la machine distante n'a pas la propriété objItem.NumberOfCores car j'ai
le message d'erreur :
"Cet objet ne gere pas cette propriété..."
...

Donc si tu gére les erreurs ...











Teste la version du systeme et du sp.
En fonction, tu sais si ne nombre de core est representatif ou pas

--
François Dunoyer
Quelques liens pour Windows : http://fds.mvps.org/AdressesInternets.htm
Site perso : http://fds.mvps.org
Blog : http://fds34.spaces.live.com/
Avatar
Robby
ok merci j'ai fait cela.Mais j'ai teste aussi avec Error Resume Next

"F. Dunoyer" ~.net> a écrit dans le message de
news:
Robby a écrit :
En fait c'est les postes En XP SP2 qui ne connaissent pas la propriété
NumberOfCore, mais les XP en SP3
sont ok.
Bien-sur dans mon parc j'ai les 2 SP2- et SP3.
Comment faire, y a t-il une idée ?
encore merci,
Robby.

"Robby" a écrit dans le message de
news: e%23nqvxg$
Merci, mais pourrais-tu me repondre plus precisement car je n'arrive pas
à gerer cette erreur.
Encore Merci.

"Michel__D" a écrit dans le
message de news: eV21qeI$
Bonjour,

Robby a écrit :
Bonjour,

Voila j'ai un script en vbs qui fait l'inventaire d'un poste à la
demande.
Pas de soucis, sauf que sur cette machine la Propriété NumberOfCore
n'existe pas.
Voici mon bout de code :
Set colItems = objWMIService.ExecQuery("Select * from
Win32_Processor")
For Each objitem In colItems
nbredecoeurs = objItem.NumberOfCores
If nbredecoeurs Is Null Then
strMsg = strMsg & "Type de processeur: " & objItem.Name & Chr(10)
& _
"Maximum Clock Speed: " & objItem.MaxClockSpeed & Chr(10)
Else
If nbredecoeurs > 0 Then
strMsg = strMsg & "Type de processeur: " & objItem.Name & Chr(10)
& _
"Maximum Clock Speed: " & objItem.MaxClockSpeed & Chr(10) & _
"Nbre de coeurs: " & objItem.NumberOfCores & Chr(10)
End If
End If
Next

La chose qui me pose probleme, c'st comment faire pour que mon script
s'effectue meme
si la machine distante n'a pas la propriété objItem.NumberOfCores car
j'ai le message d'erreur :
"Cet objet ne gere pas cette propriété..."
Par l'autre condition fonctionne bien quand il trouve un nbre de
coeurs.

Merci d'avance,

Robby



Tu as la réponse dans l'énoncé de la question :

...
si la machine distante n'a pas la propriété objItem.NumberOfCores car
j'ai le message d'erreur :
"Cet objet ne gere pas cette propriété..."
...

Donc si tu gére les erreurs ...











Teste la version du systeme et du sp.
En fonction, tu sais si ne nombre de core est representatif ou pas

--
François Dunoyer
Quelques liens pour Windows : http://fds.mvps.org/AdressesInternets.htm
Site perso : http://fds.mvps.org
Blog : http://fds34.spaces.live.com/





Avatar
F. Dunoyer
Robby a écrit :
ok merci j'ai fait cela.Mais j'ai teste aussi avec Error Resume Next




Si tu as a l'avance le SP
tu sais que dans le cas ou c'est un SP3, pas la peine de faire le test
d'ou pas d'erreur

--
François Dunoyer
Astuces pour Windows : http://fds.mvps.org/ta/
Site perso : http://www.fdunoyer.net
Blog : http://fds34.spaces.live.com/