64965
Goto Top

.vbs Script zum Service Tag auslesen

Hi,

ich habe bereits im Netz ein Script gefunden mit dem man sich die Service Tag Nummer in einer MsgBox ausgeben lassen kann.

Set wmiobj = GetObject("winmgmts://localhost/root/cimv2:Win32_BIOS")  
For each ver in wmiobj.Instances_
MsgBox ver.SerialNumber
Next

Ich möchte den Inhalt aber an das Ende einer Datei anhängen.
Pfad zur Datei ist: "C:\info.txt"

Kann mir jemand sgen wie das geht?

Danke

Content-Key: 114961

Url: https://administrator.de/contentid/114961

Printed on: April 20, 2024 at 05:04 o'clock

Member: bastla
bastla Apr 29, 2009 at 12:33:11 (UTC)
Goto Top
Hallo cphowdy!

Etwa so:
Set wmiobj = GetObject("winmgmts://localhost/root/cimv2:Win32_BIOS")  
Set File=CreateObject("Scripting.FileSystemObject").OpenTextFile("C:\info.txt", 8, True)  
For each ver in wmiobj.Instances_
    File.WriteLine ver.SerialNumber
Next
File.Close
Grüße
bastla
Mitglied: 64965
64965 Apr 29, 2009 at 13:12:08 (UTC)
Goto Top
Jo, genau so!!
Herzlichen Dank!

Grüße