
Set fso = WScript.CreateObject("Scripting.FileSystemObject")
' CurrentDir = fso.GetAbsolutePathName("")
' Or use the following syntax:
OldPath = fso.GetAbsolutePathName(".")

ScrPath = WScript.ScriptFullName
ScrPath = Left(ScrPath, InstrRev(ScrPath, "\"))

Set WshShell = WScript.CreateObject("WScript.Shell")

WshShell.CurrentDirectory = ScrPath

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_ComputerSystem",,48)
For Each objItem in colItems
    Model = objItem.Model
Next

ModelArray=Split(Model,"/")
Model = ModelArray(0)

ModelArray=Split(Model,"_")
Model = ModelArray(0)




install = 0


if(InStr(Model, "VPCSA3Z9E") <> 0) then install =1
if(InStr(Model, "VPCSA3V9E") <> 0) then install =1
if(InStr(Model, "VPCSA3S9E") <> 0) then install =1
if(InStr(Model, "VPCSA3Q9E") <> 0) then install =1
if(InStr(Model, "VPCSA3N9E") <> 0) then install =1
if(InStr(Model, "VPCSA3Z9R") <> 0) then install =1
if(InStr(Model, "VPCSA3X9R") <> 0) then install =1
if(InStr(Model, "VPCSA3S9R") <> 0) then install =1
if(InStr(Model, "VPCSB3Z9E") <> 0) then install =1
if(InStr(Model, "VPCSB3X9E") <> 0) then install =1
if(InStr(Model, "VPCSB3S9E") <> 0) then install =1
if(InStr(Model, "VPCSB3M9E") <> 0) then install =1
if(InStr(Model, "VPCSA3X9E") <> 0) then install =1
if(InStr(Model, "VPCSA3M9E") <> 0) then install =1
if(InStr(Model, "VPCSA3T9E") <> 0) then install =1
if(InStr(Model, "VPCSB3V9E") <> 0) then install =1
if(InStr(Model, "VPCSA3L9E") <> 0) then install =1

if(InStr(Model, "VPCSA4T9E") <> 0) then install =1
if(InStr(Model, "VPCSB4Z9E") <> 0) then install =1
if(InStr(Model, "VPCSB4V9E") <> 0) then install =1
if(InStr(Model, "VPCSB4X9E") <> 0) then install =1
if(InStr(Model, "VPCSB4S9E") <> 0) then install =1
if(InStr(Model, "VPCSB4Q9E") <> 0) then install =1
if(InStr(Model, "VPCSA4S9R") <> 0) then install =1
if(InStr(Model, "VPCSB4M9E") <> 0) then install =1
if(InStr(Model, "VPCSA4W9E") <> 0) then install =1
if(InStr(Model, "VPCSB4Y9E") <> 0) then install =1


if(install = 1) then
	Call WshShell.Run("WWAN_setup.bat", 0, true)
end if


WshShell.CurrentDirectory = OldPath
