Discussion :

[Invité]

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é]

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]

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]

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é]

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]

Salut (re)

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.