System Upgrade broke ASDI code

[IDoNow]

We had an NT Server as our intranet server and I found some code that would let me pull information for a user in the domain. With this code I could get what groups he or she belonged to and other useful information.

Now we upgraded to a Windows 2000 Server and it seems like my code has now died... If anyone has any suggestions on how to fix this problem or a site to help lead me to a solution I would really appreciate it...

Code
-------------
Set adsUser = getobject("WinNT://" & strUserName)


Error
-------------
The page cannot be displayed
There is a problem with the page you are trying to reach and it cannot be displayed.

--------------------------------------------------------------------------------

Please try the following:

Click the Refresh button, or try again later.

Open the pignet home page, and then look for links to the information you want.
HTTP 500.100 - Internal Server Error - ASP error
Internet Information Services

--------------------------------------------------------------------------------

Technical Information (for support personnel)

Error Type:
(0x80005000)
/menu.asp, line 15


Browser Type:
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 4.0)

Page:
GET /menu.asp

Time:
Wednesday, July 09, 2003, 9:58:06 AM


More information:
Microsoft Support