'Script to prompt the user that the computermodel is not supported and fail the task sequence 'ccmexec.com 'log file to be used strFile = "\\sccm02.demiranda.nu\pkgsource$\log\model.txt" On Error Resume Next Set objWMIService = GetObject("winmgmts:\\.\root\cimv2") Set colItems = objWMIService.ExecQuery("Select * from Win32_ComputerSystem",,48) For Each objItem in colItems strManufacturer = objItem.Manufacturer strModel = objItem.Model Next Set TsProgressUI = CreateObject("Microsoft.SMS.TsProgressUI") TsProgressUI.CloseProgressDialog 'Write log file Const ForAppending = 8 set objFSO = CreateObject("Scripting.FileSystemObject") set objFile = objFSO.OpenTextFile(strFile, ForAppending, True) objFile.WriteLine("Time Stamp: " & Now & " Manufacturer = "& strManufacturer & " Model = "& strmodel) objFile.Close MsgBox "This Computer model is not supported, the installation will be aborted." & chr(13) & "Please contact servicedesk for assistance", 16,"Installation aborted!" wscript.quit(1)