strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
 
Set colSettings = objWMIService.ExecQuery _
    ("Select * from Win32_ComputerSystem")
For Each objComputer in colSettings 
    Wscript.Echo objComputer.Model
 
Dim Computer
Computer = objComputer.Model
 
If Computer = Trim("HP Compaq 8510p") Then
   Wscript.Echo "Volltreffer"
End If
 
Set fso = CreateObject("Scripting.FileSystemObject")
Set Datei=fso.CreateTextFile("bezeichnung.txt",true,true)
	Datei.WriteLine("Computer-Model: "& objComputer.Model)
Datei.Close
 
Next