Error 0x8007043B after XP SP2

Hi,

I am getting error number 0x8007043B in Windows Update V5 after upgrading XP
Professional to SP2.

A Google search yields two refernces in the Japanese KB to this error:

http://support.microsoft.com/default...d=kb;JA;875270
http://support.microsoft.com/default...d=kb;ja;875571

Any idea when they'll get around to translating them to English?

Also, if I explicitly select http://v4.windowsupdate.microsoft.com, why does it
kick me into v5? Isn't it possible to stick with what works?

Thanks.

wrote:

> Hi,
>
> I am getting error number 0x8007043B in Windows Update V5 after upgrading XP
> Professional to SP2.
>
> A Google search yields two refernces in the Japanese KB to this error:
>
> http://support.microsoft.com/default...d=kb;JA;875270
> http://support.microsoft.com/default...d=kb;ja;875571
>
> Any idea when they'll get around to translating them to English?
Hi

From the Windows Update v5 Trouble shouter Web site:

When searching for available updates on the Windows Update site, you
see the 0x8007043B error
http://v5.windowsupdate.microsoft.co...cleid=19&ln=en


--
torgeir, Microsoft MVP Scripting and WMI, Porsgrunn Norway
Administration scripting examples and an ONLINE version of
the 1328 page Scripting Guide:
http://www.microsoft.com/technet/scr...r/default.mspx

Hi,

Thanks for your reply.

Would you happen to know WHY these services would have gone missing from the
registry? I have another XP Pro 2002 (SP1) system, and these services are
there.....

Also, is it possible to write a REG file that would update this key, which is a
REG_MULTI_SZ, and insert these services if they are not already there? I don't
know the syntax for that....

Thanks

"Torgeir Bakken \(MVP\)" <Torgeir.Bakken-> wrote:

> wrote:
>
>> Hi,
>>
>> I am getting error number 0x8007043B in Windows Update V5 after upgrading XP
>> Professional to SP2.
>>
>> A Google search yields two refernces in the Japanese KB to this error:
>>
>> http://support.microsoft.com/default...d=kb;JA;875270
>> http://support.microsoft.com/default...d=kb;ja;875571
>>
>> Any idea when they'll get around to translating them to English?
>Hi
>
> From the Windows Update v5 Trouble shouter Web site:
>
>When searching for available updates on the Windows Update site, you
>see the 0x8007043B error
>http://v5.windowsupdate.microsoft.co...cleid=19&ln=en

wrote:

> Thanks for your reply.
>
> Would you happen to know WHY these services would have gone missing
> from the registry? I have another XP Pro 2002 (SP1) system, and these
> services are there.....

No, I don't know.


> Also, is it possible to write a REG file that would update this key,
> which is a REG_MULTI_SZ, and insert these services if they are not
> already there? I don't know the syntax for that....

No, you cannot use a REG file for this, because the list of services
in that value can be different from computer to computer.

But you can use a VBScript to do this. Below is a VBScript that
checks if BITS and wuauserv is listed in the registry value netsvcs,
and if not, adds them.


Put it 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=impersonat e}!\\" _
& 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<----------------------


--
torgeir, Microsoft MVP Scripting and WMI, Porsgrunn Norway
Administration scripting examples and an ONLINE version of
the 1328 page Scripting Guide:
http://www.microsoft.com/technet/scr...r/default.mspx

Thanks, man. Worked like a charm.

I tried using your SB script but got an error message for line 14 char
1 expecting ')'.

I am not a scripting guru. Could you please help me out with this?

Thanks,
Scott Ashby

Torgeir Bakken (MVP) wrote:
> wrote:
>
> > Thanks for your reply.
> >
> > Would you happen to know WHY these services would have gone missing
> > from the registry? I have another XP Pro 2002 (SP1) system, and
these
> > services are there.....
>
> No, I don't know.
>
>
> > Also, is it possible to write a REG file that would update this
key,
> > which is a REG_MULTI_SZ, and insert these services if they are not
> > already there? I don't know the syntax for that....
>
> No, you cannot use a REG file for this, because the list of services
> in that value can be different from computer to computer.
>
> But you can use a VBScript to do this. Below is a VBScript that
> checks if BITS and wuauserv is listed in the registry value netsvcs,
> and if not, adds them.
>
>
> Put it 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=impersonat e}!\\"
_
> & 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<----------------------
>
>
> --
> torgeir, Microsoft MVP Scripting and WMI, Porsgrunn Norway
> Administration scripting examples and an ONLINE version of
> the 1328 page Scripting Guide:
> http://www.microsoft.com/technet/scr...r/default.mspx

"" wrote:

> Hi,
>
> I am getting error number 0x8007043B in Windows Update V5 after upgrading XP
> Professional to SP2.
>
> A Google search yields two refernces in the Japanese KB to this error:
>
> http://support.microsoft.com/default...d=kb;JA;875270
> http://support.microsoft.com/default...d=kb;ja;875571
>
> Any idea when they'll get around to translating them to English?
>
> Also, if I explicitly select http://v4.windowsupdate.microsoft.com, why does it
> kick me into v5? Isn't it possible to stick with what works?
>
> Thanks.
>

"Torgeir Bakken (MVP)" wrote:

> wrote:
>
> > Hi,
> >
> > I am getting error number 0x8007043B in Windows Update V5 after upgrading XP
> > Professional to SP2.
> >
> > A Google search yields two refernces in the Japanese KB to this error:
> >
> > http://support.microsoft.com/default...d=kb;JA;875270
> > http://support.microsoft.com/default...d=kb;ja;875571
> >
> > Any idea when they'll get around to translating them to English?
> Hi
>
> From the Windows Update v5 Trouble shouter Web site:
>
> When searching for available updates on the Windows Update site, you
> see the 0x8007043B error
> http://v5.windowsupdate.microsoft.co...cleid=19&ln=en
>
>
> --
> torgeir, Microsoft MVP Scripting and WMI, Porsgrunn Norway
> Administration scripting examples and an ONLINE version of
> the 1328 page Scripting Guide:
> http://www.microsoft.com/technet/scr...r/default.mspx
>