PB dans un code avec Microsoft WMI Scripting

Question

Bonjour à tous,
J'ai trouvé ce code sur une message du forum et je n'arrive pas à résoudre une erreur !
C'est pourrécup le n° de la carte mère

PublicFunction NumSerieCarteMere()AsString
 
 
 
Dim oWmi As WbemScripting.SWbemServicesEx
Dim oOS As WbemScripting.SWbemObjectSet
Dim oObj As WbemScripting.SWbemObject
Set oWmi = GetObject("WinMgmts:")
 
Set oOS = oWmi.InstancesOf("Win32_BaseBoard")
 
ForEach oObj In oOS
  NumSerieCarteMere = NumSerieCarteMere & oObj.SerialNumber
Next
 
EndFunction

VB me dit que :

WbemScripting.SWbemServicesEx
WbemScripting.SWbemObjectSet
WbemScripting.SWbemObject

ne sont pas déclarés ! C'est un souci avec WMI je suppose ?
Merci d'avance

Marneus73 · Answer

C'est bon, j'ai trouvé j'avais oublié d'ajouter la référence !
Mais j'ai toujours un souci :

J'ai modifié le code suite à quelques erreurs :

Public Function NumSerieCarteMere() As String
        Dim oWmi As WbemScripting.SWbemServicesEx
        Dim oOS As WbemScripting.SWbemObjectSet
        Dim oObj As WbemScripting.SWbemObject
        oWmi = GetObject("WinMgmts:")
        oOS = oWmi.InstancesOf("Win32_BaseBoard")
        For Each oObj In oOS
            MessageBox.Show(oObj.SerialNumber)
        Next
    End Function

VB me souligne EndFunction en vert et me dit :
La fonction 'NumSerieCarteMere' ne retourne pas une valeur pour tous les chemins de code. Une exception de référence null peut se produire au moment de l'exécution lorsque le résultat est utilisé.

PB dans un code avec Microsoft WMI Scripting

1 réponse

Votre réponse

Discussions similaires