vbsribt protokoll in text datei

Guten Morgen und einen wunderschönen guten Freitag!

Ich habe gestern mal ein bisschen gebastelt und mir ein script erstellt.

anschließend hätte ich versucht, das er mir das ergebniss in eine text datei erstellt,
ohne msg box. doch ich scheitere kläglich...

das script sieht mal so aus:


Set wmiobj = GetObject("winmgmts://localhost/root/cimv2:Win32_BIOS")
Set wshShell = WScript.CreateObject( "WScript.Shell" )
strComputerName = wshShell.ExpandEnvironmentStrings( "%COMPUTERNAME%" )
strUserName = wshShell.ExpandEnvironmentStrings( "%USERNAME%" )
WScript.Echo "Computer Name: " & strComputerName & strUserName
For each ver in wmiobj.Instances_
MsgBox ver.SerialNumber
Next


funktioniert ganz gut, nur möchte ich eben
das ganze in eine text datei erstellt haben, wie ich eine
text datei erstelle, würde ich so machen:


Dim FSO
Dim Datei
Set FSO = CreateObject("Scripting.FileSystemObject")
Set Datei = Fso.CreateTextFile("Beispiel.txt", True)
Datei.WriteLine("Erzeugte Datei, wahnsinn! nicht war?...")
Datei.Close


Doch wie kann ich nun die beiden scripts so verbinden das es
funktioniert? Hoffe ich finde ein kleines genie das mir helfen kann.


Liebe Grüße

Set FSO = CreateObject("Scripting.FileSystemObject")  
Set Datei = Fso.CreateTextFile("Beispiel.txt", True)  
Set wmiobj = GetObject("winmgmts://localhost/root/cimv2:Win32_BIOS")  
Set wshShell = WScript.CreateObject( "WScript.Shell" )  
strComputerName = wshShell.ExpandEnvironmentStrings( "%COMPUTERNAME%" )  
strUserName = wshShell.ExpandEnvironmentStrings( "%USERNAME%" )  
Datei.WriteLine("Computer Name: " & strComputerName & strUserName)  
For each ver in wmiobj.Instances_
Datei.WriteLine(ver.SerialNumber)
Next
Datei.Close