The WinOps Blog

On Error Resume Next

Dim oWMIService, cObj, oObj, ObjFile
Dim PathListModeleFile, line, here
Dim listmodel,listManufacturer
Dim RefDriverPackage

here=left(WScript.ScriptFullName,len(WScript.ScriptFullName)-len(WScript.ScriptName)-1)

CheckModelComputer()

'This fonction give Manufacturer & Model of a computer by WMI QUERY
sub CheckModelComputer()
Set ObjFile = CreateObject("Scripting.FileSystemObject")
Set oWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & "." & "\root\cimv2")
Set cObj= oWMIService.ExecQuery ("select * from Win32_ComputerSystem")
For Each oObj In cObj
    wscript.echo "Manufacturer = " & chr(34) & oObj.Manufacturer & chr(34)
    wscript.echo "Model = " & chr(34) & oObj.Model & chr(34)
Next

End sub

'//
'// Usage: Create a list of pc models
'// Name: model.vbs
'// command: cscript model.vbs "modelvariablename"
'//
'// Damien Cuvelier
'//

On Error Resume Next

Dim oWMIService, cObj, oObj, ObjFile
Dim PathListModeleFile, line, here
Dim fso,f1,modelname
Dim listmodel,listManufacturer
Dim RefDriverPackage
Const ForReading = 1, ForWriting = 2, ForAppending = 8
here=left(WScript.ScriptFullName,len(WScript.ScriptFullName)-len(WScript.ScriptName)-1)
PathListModeleFile = here &"\ListModelesDrivers.ini"
Set fso = CreateObject("Scripting.FileSystemObject")
Set f1 = fso.OpenTextFile(PathListModeleFile, ForAppending,true)

'Retrieve command line arguments:
Dim oArgs
Set oArgs=WScript.Arguments
modelname = oArgs(0)

CheckModelComputer()

'This fonction give Manufacturer & Model of a computer by WMI QUERY
sub CheckModelComputer()
Set ObjFile = CreateObject("Scripting.FileSystemObject")
Set oWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & "." & "\root\cimv2")
Set cObj= oWMIService.ExecQuery ("select * from Win32_ComputerSystem")
For Each oObj In cObj
    f1.WriteLine( oObj.Manufacturer & ";" & oObj.Model & ";" & modelname )
Next
End sub

'//
'// Usage: Create a list of pc models
'// Name: model.vbs
'// command: cscript modele.vbs (by sccm in a package in Task Sequence)
'// Damien Cuvelier
'//

On Error Resume Next
Dim oWMIService, cObj, oObj, ObjFile
Dim PathListModeleFile, line, gethomepath
Dim listmodel,listManufacturer,sModel,sManufacturer
Dim RefDriverPackage

Set ObjFile = CreateObject("Scripting.FileSystemObject")
gethomepath=left(WScript.ScriptFullName,len(WScript.ScriptFullName)-len(WScript.ScriptName)-1)
Set oOsdV4 = CreateObject("Microsoft.SMS.TSEnvironment")
CheckModelComputer()
oOsdV4("RefDriverPackage") = RefDriverPackage

'Cette fonction vérifie que le matériel est compatible avec la liste associé à ce média de déploiement
sub CheckModelComputer()
    PathListModeleFile = gethomepath &"\ListModelesDrivers.ini"
    'Recherche modele et constructeur
    Set oWMIService = GetObject("winmgmts:"  & "{impersonationLevel=impersonate}!\\" & "." & "\root\cimv2")
    Set cObj= oWMIService.ExecQuery ("select * from Win32_ComputerSystem")
    For Each oObj In cObj
    sManufacturer = oObj.Manufacturer
    sModel = oObj.Model
    msgbox sManufacturer
    msgbox sModel
                WScript.StdOut.WriteLine "Your Model:"&chr(34)&sModel&chr(34)&" is unknow, please contact your support"
        If ObjFile.FileExists(PathListModeleFile) = True Then
        'Chargement de la liste des modeles
        RefDriverPackage = ""
            For Each Line In Split(ObjFile.OpenTextFile(PathListModeleFile,1).ReadAll(),vbCrLf)
            listmodel = split(Line,":")(1)
            listManufacturer = split(line,":")(0)
            Next
                If instr(lcase(sManufacturer),lcase(listManufacturer)) > 0 _
                And instr(lcase(smodel),lcase(listmodel)) > 0 Then
                RefDriverPackage = split(line,":")(2)
                Else
                WScript.StdOut.WriteLine "Your Model:"&chr(34)&sModel&chr(34)&" is unknow, please contact your support"
                Msgbox "Your Model:"&chr(34)&sModel&chr(34)&" is unknow, please contact your support"
                End If
        End If
    Next
End sub