WUA on Japanese machine

Hi All,

I run the following script on japanese machines with WUA agent installed.
But It did not return me any updates. In Add-Remove program I can see updates
installed

Set updateSession = CreateObject("Microsoft.Update.Session")

Set updateSearcher = updateSession.CreateupdateSearcher()

'Search for all software updates, already installed and not installed
Set searchResult = updateSearcher.Search("Type='Software'")

Set updateToInstall = CreateObject("Microsoft.Update.UpdateColl")

'Cycle through search results to look for the update title
For i = 0 To searchResult.Updates.Count-1
Set update = searchResult.Updates.Item(i)
WScript.Echo "Update Name: " & update.Title

If update.IsInstalled = False Then
WScript.Echo vbCRLF & vbTab & "Missing."
Else
WScript.Echo vbCRLF & vbTab & "Installed."
End If

WScript.Echo vbCRLF
Next

Please let me what i am doing wrong or is there some problem with WUA agent.

Thanks,
Sumit