Lecture WMI niveau de batterie

Version imprimable

Bonjours , je voudrais recuperer le niveau des batteries d'un ordi portable (2 batterie)
J'ai fait un prog similaire en AutoIT et cela fonctionne tres bien
Mais en visual basic quand j essai de lire j ai une erreur

Version Autoit

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Func Batt()
    Local $s_Text = ''
    Dim $Obj_WMIService = ObjGet('winmgmts:\\' & @ComputerName & '\root\cimv2');
    If (IsObj($Obj_WMIService)) And (Not @error) Then
        Dim $Col_Items = $Obj_WMIService.ExecQuery("select * from CIM_Battery") 
        Local $Obj_Item
        For $Obj_Item In $Col_Items
				$s_Text &= $Obj_Item.Name 
			    $s_Text &= " : " & $Obj_Item.EstimatedChargeRemaining 
				$s_Text &=":" & @CRLF 
		Next
		Return String($s_Text)
    Else
        Return 0
    EndIf
EndFunc

Version VB.NET

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
       Public Function Batt() As String
            Dim Txt As String = ""
            Try
                Dim searcher As ManagementObjectSearcher = New ManagementObjectSearcher("select * from CIM_Battery")
                For Each WMI_Info As ManagementObject In searcher.Get()
                    Txt &= WMI_Info("Name").ToString() + vbNewLine
 
                Next WMI_Info
                Return Txt
 
            Catch ex As Exception
 
                Return "Erreur lecture Batt " + ex.Message
            End Try
        End Function

Pour infos j'ai coder la meme fonction pour le type d os et ca fonctionne sans probleme

28/05/2013, 12h25
ebastien

Bonjour,

Citation:

Mais en visual basic quand j essai de lire j ai une erreur

Quelle est l'erreur ?

eb.
28/05/2013, 12h31
logic-steph

parametre invalide
28/05/2013, 12h42
ebastien

Le code est fonctionnel chez moi (en Windows Forms). C'est sur quel type d'application et quelle Framework ?
eb.
28/05/2013, 12h46
logic-steph

framwork 3.5 et 4 meme erreur
app WindowsForm
si cela fonctionne chez toi cela doit te donné le "nom" de ta batterie
tu confirme ?
28/05/2013, 12h55
ebastien

Je confirme :

Citation:

DELL TY3P40ADELL TY3P40A

J'ai testé en Framework 4.5 et 3.5 ! Aucun problème ! Je ne vois pas d'où ça peut venir ...
28/05/2013, 12h59
logic-steph

tu peu m uploader ton projet quelque part stp ? (multiupload etc...)
ou par mail , je t envoi ca en pm
28/05/2013, 13h11
ebastien

Ok c'est fait.

Et si tu remplaces :

Code:

1
2
3
4
5
For Each WMI_Info As ManagementObject In searcher.Get()
                    Txt &= WMI_Info("Name").ToString() + vbNewLine
 
                Next WMI_Info
                Return Txt

par :

Code:

1
2
3
4
5
For Each WMI_Info As ManagementObject In searcher.Get()
                    Txt &= WMI_Info.properties("Name").ToString() + vbNewLine
 
                Next 
                Return Txt

Mieux ?

Citation:

Envoyé par _Ez3kiel

Et si tu remplaces :

Code:

1
2
3
4
5
For Each WMI_Info As ManagementObject In searcher.Get()
                    Txt &= WMI_Info("Name").ToString() + vbNewLine
 
                Next WMI_Info
                Return Txt

par :

Code:

1
2
3
4
5
For Each WMI_Info As ManagementObject In searcher.Get()
                    Txt &= WMI_Info.properties("Name").ToString() + vbNewLine
 
                Next 
                Return Txt

Mieux ?

Non aucun changement
c'est quand meme etrange , par exemple ce code fonctionne :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Public Function OpSys() As String ' system complet
            Dim Txt As String = ""
            Try
                Dim searcher As ManagementObjectSearcher = New ManagementObjectSearcher("SELECT * FROM CIM_OperatingSystem")
                For Each WMI_Info As ManagementObject In searcher.Get()
                    Txt &= WMI_Info("Caption").ToString() + vbNewLine
                    Txt &= WMI_Info("CSDVersion").ToString() + vbNewLine
                    Txt &= WMI_Info("OSArchitecture").ToString()
                Next WMI_Info
                Return Txt
 
            Catch ex As Exception
 
                Return "Erreur lecture OS"
            End Try
        End Function

28/05/2013, 17h55
logic-steph

Bon j ai effectuer pas mal de test sur plusieurs machines differentes
avec wmi creator

Windows Seven , Xp ..
Framwork 3.5 , 4.0 , 4.5

Le bug revient plus ou moins independement de l'os et/ou le framwork installer

connaissez vous un programme qui pourrais me dire le nom des dll utilisée par mon executable ? que je verifie les version

je pense que c est lier au framework car le logiciel programmer en Autoit
fonctionne sur toutes les machines testée

par contre pourquoi juste sur la lecture de la batterie et pas celle de l os ou du bios . Mystere

C'est bien étrange en effet !
Un programme indiquant les dll chargées par un exe, je ne connais pas. Mais si tu veux, voilà une petite routine qui te charge ça dans un memo :

Code:

1
2
3
4
5
6
7
8
Private Sub SetInfoAssembliesIntoMemo()
        Memo.AppendText(Environment.NewLine & "Version du framework : " & Environment.Version.ToString)
        Memo.AppendText(Environment.NewLine & "Système d'exploitation : " & Environment.OSVersion.Platform.ToString & " " & Environment.OSVersion.Version.ToString & " " & Environment.OSVersion.ServicePack.ToString)
        Memo.AppendText(Environment.NewLine + "Modules chargés : ")
        For Each aAssembly In My.Application.Info.LoadedAssemblies
            Memo.AppendText(Environment.NewLine + aAssembly.GetName.Name + ", version " + aAssembly.GetName.Version.ToString + ", Runtime " + aAssembly.ImageRuntimeVersion)
        Next
End Sub

Bon courage !
eb.

Bonjours ;)

Bon histoire de m embrouiller un peu plus . .. . .

Version Assembly qui fonctionne

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Version du framework : 2.0.50727.5466
Système d'exploitation : Win32NT 6.1.7601.65536 Service Pack 1
Modules chargés : 
mscorlib, version 2.0.0.0, Runtime v2.0.50727
WindowsApplication2, version 1.0.0.0, Runtime v2.0.50727
Microsoft.VisualBasic, version 8.0.0.0, Runtime v2.0.50727
System, version 2.0.0.0, Runtime v2.0.50727
System.Windows.Forms, version 2.0.0.0, Runtime v2.0.50727
System.Drawing, version 2.0.0.0, Runtime v2.0.50727
System.Runtime.Remoting, version 2.0.0.0, Runtime v2.0.50727
Accessibility, version 2.0.0.0, Runtime v2.0.50727
System.Management, version 2.0.0.0, Runtime v2.0.50727

Version qui ne fonctionne pas :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Version du framework : 2.0.50727.5466
Système d'exploitation : Win32NT 6.1.7601.65536 Service Pack 1
Modules chargés : 
mscorlib, version 2.0.0.0, Runtime v2.0.50727
WindowsApplication2, version 1.0.0.0, Runtime v2.0.50727
Microsoft.VisualBasic, version 8.0.0.0, Runtime v2.0.50727
System, version 2.0.0.0, Runtime v2.0.50727
System.Windows.Forms, version 2.0.0.0, Runtime v2.0.50727
System.Drawing, version 2.0.0.0, Runtime v2.0.50727
System.Configuration, version 2.0.0.0, Runtime v2.0.50727
System.Xml, version 2.0.0.0, Runtime v2.0.50727
System.Runtime.Remoting, version 2.0.0.0, Runtime v2.0.50727
Accessibility, version 2.0.0.0, Runtime v2.0.50727
System.Management, version 2.0.0.0, Runtime v2.0.50727

j ai ceci en plus sur celle qui ne fonctionne pas

Code:

1
2
3
 
System.Configuration, version 2.0.0.0, Runtime v2.0.50727
System.Xml, version 2.0.0.0, Runtime v2.0.50727

voici le message d erreur complet :

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
25
 
Consultez la fin de ce message pour plus de détails sur l'appel du débogage
juste-à-temps (JIT) à la place de cette boîte de dialogue.
 
************** Texte de l'exception **************
System.Management.ManagementException: Paramètre non valide 
   à System.Management.ManagementException.ThrowWithExtendedInfo(ManagementStatus errorCode)
   à System.Management.ManagementPath.SetWbemPath(IWbemPath wbemPath, String path)
   à System.Management.ManagementPath.CreateWbemPath(String path)
   à System.Management.ManagementPath..ctor(String path)
   à System.Management.ManagementObject.GetManagementObject(IWbemClassObjectFreeThreaded wbemObject, ManagementScope scope)
   à System.Management.ManagementBaseObject.GetBaseObject(IWbemClassObjectFreeThreaded wbemObject, ManagementScope scope)
   à System.Management.ManagementObjectCollection.ManagementObjectEnumerator.get_Current()
   à WindowsApplication2.Form1.Main()
   à WindowsApplication2.Form1.bt_decrypt_Click(Object sender, EventArgs e)
   à System.Windows.Forms.Control.OnClick(EventArgs e)
   à System.Windows.Forms.Button.OnClick(EventArgs e)
   à System.Windows.Forms.Button.OnMouseUp(MouseEventArgs mevent)
   à System.Windows.Forms.Control.WmMouseUp(Message& m, MouseButtons button, Int32 clicks)
   à System.Windows.Forms.Control.WndProc(Message& m)
   à System.Windows.Forms.ButtonBase.WndProc(Message& m)
   à System.Windows.Forms.Button.WndProc(Message& m)
   à System.Windows.Forms.Control.ControlNativeWindow.OnMessage(Message& m)
   à System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m)
   à System.Windows.Forms.NativeWindow.Callback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)

30/05/2013, 09h34
AcidLines

Testé aussi et fonctionnel chez moi.
Pour les DLL chargées par une appli, j'utilise le logiciel Dependency Walker (depends.exe).