Requête sur plusieurs PC

Version imprimable

Bonjour j'aimerais faire un petit script en fonction du numéro de série de l'appareil....
actuellement j'ai mon petit script qui fonctionne bien avec l'info suivante donc pour un numéro de série..

Code:

if objSerial = "H76Mjk71" Then

J'aimerais le faire pour une série de numéro...

Code:

if objSerial = "H58YTG2" & OR & "H54TRF7" ainsi du suite?

Idéalement j'aimerais faire une double recherche en faisant en sorte que le nom du PC doit obligatoirement commencer par 001

Merci
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colBIOS = objWMIService.ExecQuery _ ("Select * from Win32_BIOS") For each objBIOS in colBIOS objSerial = objBIOS.SerialNumber Next 'Wscript.Echo "Serial Number: " & objSerial if objSerial = "YH76YH7" Then Wscript.Echo "Exécute un code" Else Wscript.Echo "Non exécute pas le code" end if

Bon je comprend pas la logique...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colBIOS = objWMIService.ExecQuery _
    ("Select * from Win32_BIOS")
For each objBIOS in colBIOS
    objSerial = objBIOS.SerialNumber
Set objWMISvc = GetObject( "winmgmts:\\.\root\cimv2" )
Set colItems = objWMISvc.ExecQuery( "Select * from Win32_ComputerSystem", , 48 )
For Each objItem in colItems
    strComputerName = objItem.Name
Next
 
if objSerial = "YT654G6" And strComputerName = "PCName" Then
Wscript.Echo "Yes" 
 
Else
Wscript.Echo "No"
wscript.echo strComputerName
wscript.echo objSerial
End If
Next

objSerial et PCName sont bien énoncé dans le echo or pourquois je ne suis pas dans le echo "yes"

Merci du coup de main...en principe ca m'aiderait dans la solution :P

Salut

En modifiant l'endroit de vérification de la condition, chez moi cela fonctionne

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colBIOS = objWMIService.ExecQuery _
    ("Select * from Win32_BIOS")
For each objBIOS in colBIOS
    objSerial = objBIOS.SerialNumber
	Set objWMISvc = GetObject( "winmgmts:\\.\root\cimv2" )
	Set colItems = objWMISvc.ExecQuery( "Select * from Win32_ComputerSystem", , 48 )
 
	For Each objItem in colItems
		strComputerName = objItem.Name
		if objSerial = "C3NML4J" And strComputerName = "USER-PC" Then
			Wscript.Echo "Yes" 
			Else
			Wscript.Echo "No"
			wscript.echo strComputerName
			wscript.echo objSerial
		End If
	Next
 
Next

06/03/2013, 11h03
omen999

bonjour,

Citation:

Idéalement j'aimerais faire une double recherche en faisant en sorte que le nom du PC doit obligatoirement commencer par 001

que veux-tu faire exactement et notamment qu'entends-tu par "double recherche" ?
le 1er critère est un nom de PC commençant par 001, ok
et le second ?
06/03/2013, 12h06
Invité

Merci pour l'aide...

ProgElecT...Je vois pas dans mon cas que je change le nom du bios ou le nom du PC j'arrive toujours j'arrive toujours à la condition "NO" or si mes 2 conditions sont vrai je devrais arriver à YES???

Omen999...Oui effectivement le no du PC doit commencer par 001 pour le premier critère...le second critère est que le numéro du bios de la machine doit être compris dans une série de 32 numéros...NM2345D5...HY765G6...ainsi de suite.

L'idée est que je veux appliquer un script sur une série de PC identifié par 001-"Numéro du bios" (ie: 001-NM2345D5, 001-HY765G6, etc)

Donc la requête est de chercher les PC commencant par 001 dans leur nom ensuite "préciser" avec le reste du nom qui est le numéro du bios.

Voilà

merci
06/03/2013, 12h32
ProgElecT

Salut (re)

Citation:

Envoyé par JFMichaud

Merci pour l'aide...

ProgElecT...Je vois pas dans mon cas que je change le nom du bios ou le nom du PC j'arrive toujours j'arrive toujours à la condition "NO" or si mes 2 conditions sont vrai je devrais arriver à YES???
.............
Voilà

merci

les modifications de la ligne if objSerial = "C3NML4J" And strComputerName = "USER-PC" Then ne m'a servi qu'à des fins de tests du code.
L'intérêt de ma proposition étant l'endroit ou devait être fait la condition (dans la boucle For Each objItem in colItems ....... Next non pas à sa suite.

Bon j'ai changé quelque peu...
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 strComputer = "." Dim WshNetwork Set WshNetwork = CreateObject("WScript.Network") ComputerName = WshNetwork.ComputerName Dim Prefix, PrefixMatch Prefix = LCase(Left(ComputerName, 4)) PrefixMatch = (Prefix = "001-") 'Bios Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colItems = objWMIService.ExecQuery("Select * from Win32_BIOS",,48) For Each objItem in colItems strSvcTag = objItem.SerialNumber Next If PrefixMatch and (strSvcTag = "H65MPJ8") Or (strSvcTag = "H76MLQ1") Then Wscript.Echo "Yes" wscript.echo ComputerName wscript.echo strSvcTag Else Wscript.Echo "No" End If
Mes tests préliminaires me disent que ça fonctionne!!!

La seule chose que je trouve lourd c'est cette notion

Code:

If PrefixMatch and (strSvcTag = "H65MPJ8") Or (strSvcTag = "H76MLQ1") Then

Au sens ou je dois inscrire le strSvcTag pour 35 ordinateurs...y a pas une autre option?

Me reste à tester le tout a plus grande échelle. En soi est ce logique comme code?

Merci

Bonjour,

Pour ne pas avoir à rentrer 35 fois le test de nom du serviceTag, tu peux utiliser cette fonction qui teste la présence d'une chaine dans un tableau de chaines :
Code:

1 2 3 4 5 6 7 8 Function StrInArr(strIn, arrIn) Dim strTmp, boolOut boolOut = False For Each strTmp In arrIn If StrComp(strTmp, strIn, vbTextCompare) = 0 Then boolOut = True Next StrInArr = boolOut REM End Function
Utilisation de la fonction dans ton cas :
Code:

1 2 3 4 5 6 arrSvcTags=Array("H65MPJ8", "H76MLQ1", "BLABLA", "...") '... If PrefixMatch and StrInArr(arrSvcTags) = True Then '... End If
Bonne continuation

06/03/2013, 15h25
Invité

Merci Pitchalov...

C'est exactement ce que j'essayait de dire...j'ai regardé ton explication mais je ne suis incapable encore de l'insérer dans mon dernier code :cry:

J'arrive avec l'erreur "nombre d'arguments ou affectation de propriété incorrects: StrInArr code 800A1C2

en référence à

Code:

If PrefixMatch and StrInArr(arrSvcTags) = True Then

Merci
06/03/2013, 16h21
pitchalov

Oula oui effectivement, je ne me suis pas relu avant de valider ma réponse.
La fonction prend en entrée 2 paramètres :
1 - la chaine à rechercher dans le tableau
2 - le tableau.
Dans l'exemple que je t'ai donné, seul le tableau a été mis en paramètre, ce qui ne pouvait pas fonctionner.
Voici donc la ligne sans erreur pour l'utilisation de la fonction dans ton cas :

Code:

If PrefixMatch and StrInArr(strSvcTag, arrSvcTags) = True Then

Bonne continuation
06/03/2013, 16h51
Invité

Oh...effectivement je viens de remplacer avec ton changement et là tout fonctionne correctement :)

Merci pour vos solutions