This does not work in Windows 2000, I get a "Class not found" error, do I need to install something? or this will simply not work in Win 2000/NT?

oWinSocket = CreateObject("MSWinsock.Winsock")
If type('oWinSocket')='O'
cIP = oWinSocket.LocalIP
cHost=oWinSocket.localhostname
rele oWinSocket
Endif