Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Akkustand als .txt Datei ausgeben (2 Akkus)
Autor: woodpecker
Datum: 28.08.18 17:52
Hallo, ich möchte den Akkustand, von den beiden Akku´s am Tablet mit Windows 10, in eine .txt Datei schreiben. Für den internen Akku ist das auch kein Problem, aber beim externen komme ich einfach nicht weiter. Vielleicht hat ja einer eine Idee oder ne Lösung für mich. mein bisheriges script: Do Set WshShell = WScript.CreateObject("WScript.Shell") strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2") Set colItems = objWMIService.ExecQuery( "SELECT * FROM Win32_Battery",,48) For Each objItem in colItems Set FSO = CreateObject("Scripting.FileSystemObject") Set MyFile = FSO.CreateTextFile("c:\VBS\akku.txt ", TRUE) MyFile.Close Set MyFile = FSO.OpenTextFile("c:\VBS\akku.txt", 8) MyFile.WriteLine ""& objItem.EstimatedChargeRemaining &"" MyFile.Close next WScript.sleep 60000 Loop

Re: Akkustand als .txt Datei ausgeben (2 Akkus)
Autor: Franki
Datum: 04.09.18 01:42
Hallo, probiere doch zuerst mal, ob du auf beide zugreifen kannst. MsgBox zB. Was du da in deiner forEach Schleife machst ist ja eine neuen *.txt Datei mit gleichem Namen zu erzeugen, die überschreibt sich ja innerhalb der Schleife. Die txt Datei müsstest du ausserhalb der Schleife erzeugnen und dann innerhalb der Schleife für jeden Akku den Wert rein schreiben und nach Beendigung der Schleife die Datei wieder schließen bzw speichern. Gruß Frank

Re: Akkustand als .txt Datei ausgeben (2 Akkus)
Autor: woodpecker
Datum: 04.09.18 20:11
Hallo Frank, genau an der Stelle harperts bei mir ja schon, ich weiß nicht wie ich auf beide bzw. den zweiten Akku drauf zugreifen kann. Das mit der TXT Datei außerhalb der Schleife Probier ich mal aus

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen