Put it in a file named e.g.
NetsvcsWUChk.vbs
'--------------------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"
'--------------------8<----------------------