Requête sur plusieurs PC

Invité · 05/03/2013, 20h57

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

if objSerial = "H76Mjk71" Then

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Invité · 06/03/2013, 03h48

Bon je comprend pas la logique...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**ProgElecT** · 06/03/2013, 07h11

Salut

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**omen999** · 06/03/2013, 11h03

bonjour,

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 ?

Invité · 06/03/2013, 12h06

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

**ProgElecT** · 06/03/2013, 12h32

Salut (re)

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.

Invité · 06/03/2013, 13h36

Bon j'ai changé quelque peu...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**pitchalov** · 06/03/2013, 14h10

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Bonne continuation

Invité · 06/03/2013, 15h25

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

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

en référence à

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If PrefixMatch and StrInArr(arrSvcTags) = True Then

Merci

**pitchalov** · 06/03/2013, 16h21

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Bonne continuation

Invité · 06/03/2013, 16h51

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

Merci pour vos solutions

Requête sur plusieurs PC

VBScript

Discussions similaires

Partager

Partager