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 = "HP Compaq 8510p" Then
   Wscript.Echo "Volltreffer"
End If
Next

Dim Computer
Computer = objComputer.Model
 
If Computer = "HP Compaq 8510p" Then
   Wscript.Echo "Volltreffer"
End If