Discussion :

[davidismax]

Salut à tous,

Je suis en train d'écrire un programme en VB .net 2010 afin d'afficher dans un form le no. de série (service Tag) d'un ordinateur dell.

J'arrive à afficher le no. de série du mother board mais pas le service tag.
Voici mon code:

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
Private Sub frmComputerName_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
 
        lblComputerName.Text = Environment.MachineName.ToString
        lblIpAddress.Text = GetIPAddress()
 
        Dim oMotherB As Object = ""
        Dim sMBsernumb As String = ""
        Dim oWMG As Object = GetObject("WinMgmts:")
 
        oMotherB = oWMG.InstancesOf("Win32_BaseBoard")
 
        For Each obj As Object In oMotherB
 
            sMBsernumb += obj.SerialNumber
            lblServiceTag.Text = sMBsernumb
        Next
    End Sub

Est ce quelqu'un a une idée comment je peux afficher ce service tag?
Merci.

[tomlev]

Je ne pense pas que le service tag soit accessible... à mon avis il n'est présent que sur l'étiquette sur le PC

[anonymousse]

bonjour,

Est-ce que ce post te donne les infos que tu recherches (je n'ai pas le temps de le parcourir) :

http://www.vbforums.com/showthread.php?t=326425

[davidismax]

bonjour,

Est-ce que ce post te donne les infos que tu recherches (je n'ai pas le temps de le parcourir) :

http://www.vbforums.com/showthread.php?t=326425

Le service tag d'un pc Dell se trouve dans le Bios. Je l'ai vérifié moi-même. J'ai réussi à extraire le no. de série du Motherboard (carte-mère) mais pas celui du Service Tag. Il existe aussi à l'extérieur sur une étiquette.

[edibos]

bonjour,

Est-ce que ce post te donne les infos que tu recherches (je n'ai pas le temps de le parcourir) :

http://www.vbforums.com/showthread.php?t=326425

Merci.
Il y a bien la solution, que je reporte içi :

Code :

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

1
2
3
4
5
Set objWMIservice = GetObject("winmgmts:\\.\root\cimv2")
set colitems = objWMIservice.ExecQuery("Select * from Win32_BIOS",,48)
For each objitem in colitems
  Wscript.echo "Dell Service Tag: " & objitem.serialnumber
Next

Fonctionne très bien sur mon E6440.

Pour ceux qui ne le savent pas, le numéro TAG est stocké dans le bios. Et tout les utilitaires systèmes (comme Everest, SIW) savent le lire.

Voici en passant la commande DOS : wmic bios get serialnumber