Discussion :

[logic-steph]

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 :

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
 
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 :

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

[ebastien]

Bonjour,

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

Quelle est l'erreur ?

eb.

[logic-steph]

parametre invalide

[ebastien]

Le code est fonctionnel chez moi (en Windows Forms). C'est sur quel type d'application et quelle Framework ?
eb.

[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 ?

[ebastien]

Je confirme :

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 ...

[logic-steph]

tu peu m uploader ton projet quelque part stp ? (multiupload etc...)
ou par mail , je t envoi ca en pm

[ebastien]

Ok c'est fait.

[_Ez3kiel]

Et si tu remplaces :

Code :

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

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 :

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

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 ?

[logic-steph]

Et si tu remplaces :

Code :

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

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 :

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

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 :

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

[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

[ebastien]

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 vb.net :

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

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.

[logic-steph]

Bonjours

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

Version Assembly qui fonctionne

Code :

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

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 :

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

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 :

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

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

[logic-steph]

voici le message d erreur complet :

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
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)

[AcidLines]

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