If your Internet Explorer 8 installation (upgrade from 7) fails all the time.
Run this code:
<code>
‘——————–8<———————-
Const HKLM = &H80000002
arrNeededSvcs = Array(“BITS”,”wuauserv”)
strKeyPath = “SOFTWARE\Microsoft\Windows NT\CurrentVersion\SvcHost”
strValueName = “netsvcs”
strComputer = “.” ‘ “use “.” for local computer
Set objReg = GetObject(“winmgmts:{impersonationLevel=impersonate}!\\” & strComputer & “\root\default:StdRegProv”)
objReg.GetMultiStringValue HKLM, strKeyPath, strValueName, arrValues
‘ create string from array, easier to check for existence this way
strValues = “|” & Join(arrValues, “|”) & “|”
bolUpdateNeeded = False ‘ init value
For Each strNeededSvcs In arrNeededSvcs
If InStr(1, strValues, strNeededSvcs, vbTextCompare) = 0 Then
‘ service is not in array, add it
intArrCount = UBound(arrValues) + 1
ReDim Preserve arrValues(intArrCount)
arrValues(intArrCount) = strNeededSvcs
bolUpdateNeeded = True
End If
Next
If bolUpdateNeeded Then
objReg.SetMultiStringValue HKLM, strKeyPath, strValueName, arrValues
End If
MsgBox “Done!”, vbInformation + vbSystemModal, “Netsvcs check”
</code>