get serial number of lenovo pc's using batch warranty lookup

Dim MachineType
MachineType = InputBox("Enter Lenovo pc's machine type")
Dim SerialNumber
SerialNumber = InputBox("Now enter the computers serial number or Mei")
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = False
Set objWorkbook = objExcel.Workbooks.Open("C:\Program Files (x86)\EiToimi\Warranty_Batch_Lookup_Template.xlsx")
objExcel.Cells(2,1).Value = ""
objExcel.Cells(3,1).Value = ""
objExcel.Cells(4,1).Value = ""
objExcel.Cells(5,1).Value = ""
objExcel.Cells(2,2).Value = ""
objExcel.Cells(3,2).Value = ""
objExcel.Cells(4,2).Value = ""
objExcel.Cells(5,2).Value = ""
objExcel.Cells(2,1).Value = MachineType
objExcel.Cells(2,2).Value = SerialNumber
objWorkbook.Save
objExcel.Quit

Dim URL
Dim IE
Dim objWshShell
Set WshShell = CreateObject("WScript.Shell")
Set objWshShell = Wscript.CreateObject("Wscript.Shell")
Set IE = CreateObject("internetexplorer.application")
URL = "https://pcsupport.lenovo.com/fi/en/warrantylookup/batchquery"


IE.Visible = True
IE.Navigate URL

 Do While IE.Busy
    WScript.Sleep 100
 Loop

 WshShell.SendKeys "C:\Program Files (x86)\EiToimi\Warranty_Batch_Lookup_Template.xlsx"
 WshShell.SendKeys "{ENTER}"


 Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.MoveFile "C:\Program Files (x86)\EiToimi\Warranty_Batch_Lookup_Template.xlsx", "C:\Program Files (x86)\EiToimi\Warranty_Batch_Lookup_Template.xlsx"