Upgrade HAL

Found on LANDesk archives, and posted by RLoeffen.

To replace the HAL, to enable the HT capability. For a Windows XP SP2.

Dim strTempDir, strSysDir, strDrvCacheDir, strDrvrCAB, strExtract
Dim objSHL : set objSHL = CreateObject("WScript.Shell")
Dim objFSO : set objFSO = CreateObject("Scripting.FileSystemObject")

'------------------------------' Read environment variables'------------------------------
strTempDir = objShl.ExpandEnvironmentStrings("%TEMP%") & "\$$HAL"
strSysDir = objShl.ExpandEnvironmentStrings("%SYSTEMROOT%") & "\SYSTEM32"
strDrvCacheDir = objShl.ExpandEnvironmentStrings("%SYSTEMROOT%") & "\Driver Cache\i386"

strDrvrCAB = Chr(34) & strDrvCacheDir & "\SP2.CAB" & Chr(34)

strExtract = "HALMACPI.DLL NTKRNLMP.EXE NTKRPAMP.EXE"
objShl.RUN "EXTRAC32.EXE /Y /L " & strTempDir & " " & strDrvrCAB & " " & strExtract, 0, True
objFSO.CopyFile strTempDir & "\HALMACPI.DLL", strSysDir & "\HAL.DLL", True
objFSO.CopyFile strTempDir & "\NTKRNLMP.EXE", strSysDir & "\NTOSKRNL.EXE", True
objFSO.CopyFile strTempDir & "\NTKRPAMP.EXE", strSysDir & "\NTKRNLPA.EXE", True
Set objFSO = Nothing
Set objSHL = Nothing