This has worked for a number of years now when run from a 32-bit Windows server to another 32-bit Windows server.

Recently, we've had some 64-bit Windows (2003) servers introduced, and when this same utility was run against them from a 32-bit server, it would not find the key on the remote 64-bit servers because it was looking in the default 64-bit hive... I updated the code to add the RegOpenFlags(1) at the top, which forces the 32-bit registry for all registry calls... this worked fine again.

Now, I am in the position where I need to run this utility from a 64-bit Windows (2003) server against other 32-bit servers, and now the utility fails to delete the key on the remote 32-bit server when run from a 64-bit server (still works fine when run from a 32-bit server). The new server is a Windows2003 Enterprise Server x64 SP1.

I tried updating all the previous RegOpenKey calls to use RegOpenKeyEX with the "FULL" parameter in case I was getting some funky permissions issues now, but this did not help.

When I enable Debug, I can see the following being logged:

RegDelRC = RegDeleteKey(OPConfigKey,StrCat(LCKey,"\Operations\Agent\Event Providers\Application Log")) (9563) VALUE INT => 0

WIL ERROR SUPPRESSED =>1229 (RegDeleteKey: Function Failed)

Immediately before this, I check the key exists and proceed only if it is there.

Note: I can manual delete that key remotely using RegEdit from the 64bit server.

I've tested the following:

• simplified the code
• used a much simpler/shorter registry key on the target machine that I want to delete
• tried the resulting WBT file on several W2K3-SP1 (x64) servers in my environment against various Win2000-SP4 (x86) servers
• tried all variations of RegOpenFlags() i.e. commented-out, set to 0, 1, 2

And to prove that permissions is not an issue, I tested:

RegCreateKey(OPConfigKey,StrCat(LCKey,"\TestNew"))
TimeDelay(5)
RegDeleteKey(OPConfigKey,StrCat(LCKey,"\TestNew"))

Incidently, I also tried replacing the RegDeleteKey() function with the lines:

RunCmdStr=StrCat('/c REG DELETE "',strComputerUNC,'\HKLM\',strKeyPath,'\Test\TestNew" /f')
Pause("RunCmdStr",RunCmdStr)
Run("CMD.EXE",RunCmdStr)