Subject: Fix winsock license problem
Date: Friday, February 21, 2003 6:07 PM

This quick little routine that uses Windows Scripting Host will
put the proper information in the registry for you for the Winsock control.

 
cKey = "HKEY_LOCAL_MACHINE\Software\CLASSES\Licenses\"
cKey += "2c49f800-c2dd-11cf-9ad6-0080c7e7b78d\"
newValue = "mlrljgrlhltlngjlthrligklpkrhllglqlrk"
currentValue = ""
x = new OleAutoClient("WScript.Shell")
try
  currentValue = x.RegRead(cKey)
catch(exception e)
endtry
if currentValue <> newValue
  x.RegWrite(ckey,newValue)
endif
release object x
x = null