Dell Service-Tags Remote per Script auslesen

On Error Resume Next
set objFSO = CreateObject("Scripting.FileSystemObject")  
strInputFile = inputBox("Where is the file containing the computer names?",vbOkOnly+vbInformation,"C:\temp\computers.txt")  
set objInputFile = objFSO.OpenTextFile(strInputFile)
set objOutputFile = objFSO.CreateTextFile("d:\kunden\****\service tag\results.txt")  
allComputers = objInputFile.ReadAll()
arrComputers = split(allComputers, vbCrLf)

For Each strComputer in arrComputers
objOutputFile.WriteLine strComputer
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")  
Set colItems = objWMIService.ExecQuery("Select * from Win32_BIOS",,48)  
For Each objItem in colItems
objOutputFile.WriteLine vbTab & objItem.SerialNumber
Next
set colItems2 = objWMIService.ExecQuery("Select * from Win32_ComputerSystem",,48)  
For Each objItem2 in colItems2
objOutputFile.WriteLine vbTab & objItem2.UserName
objOutputFile.WriteLine vbTab & objItem2.Model & vbCrLf
Next
Next

msgBox "Script finished. Results can be found at C:\temp\results.txt",vbOkOnly+vbInformation,"Finished"