WMI ved login & asp -> aspx

I fortsættelse af mit spm/260891, som jeg ikke fik til at virke, har jeg nu fundet et asp.script som kan give mig processorens id-nr. (bl.a., men jeg er kun interesseret i at checke at brugeren er den rigtige, ved logon-fri brug af en tjeneste.

Når jeg kører scriptet fra programmørens hjemmeside http://www28.brinkster.com/wootenba/wmi_test.asp fungerer det fint.
Når jeg kører det fra en side på min egen, giver den fejl på ln. 11 - SWbemLocator (0x80041003)
Adgang nægtet.

Får jeg det til at virke i asp kan jeg jo kalde det fra en asp.net side, men egentlig ku jeg godt tænke mig at få det oversat til aspx (vb) hvis nogen kan klare det.

Jeg ved ikke hvor svært spm er for en der kender løsningen, men jeg er lydhør for at hæve points.

Spm er så:

1) hvordan får jeg det til at virke med asp
  eller
2) en oversættelse der virker i asp.net (vb) med oplysning om tjenester der evt. skal køre på min maskine.

Here goes mandens kode (uredigeret):

<%
Function ShowServices(vComputerName, vClass)

  Dim objLocator, objService, objWEBMCol, objWEBM, objProp, propitem, objItem
  Set objLocator = CreateObject("WbemScripting.SWbemLocator")

  'Establish a connection to WMI
  If isEmpty(vComputerName) = True then
    Set objService = objLocator.ConnectServer
  Else
    Set objService = objLocator.ConnectServer(vComputerName)
  End If

  'Get the Webm class object
  Set objWEBM = objService.get(vclass)

  'get collection of class
  set objWEBMCol = objWEBM.Instances_

  'Get ref to properties of obj
  set objProp = objWebm.properties_

  response.write "<table BORDER='1'>  <tr>" &chr(13)
  for each propItem in objProp
    response.write "<th>"&propItem.name&"</th>"&chr(13)
  next
  response.write "</tr>"&chr(13)

  'Enumerate
  For Each objItem in objWEBMCol
    response.write "<tr>"&chr(13)

    for each propItem in objProp
      response.write "<td>"

      response.write eval("objItem."&propItem.name)

      response.write "</td>"&chr(13)
    next

    response.write "</tr>"&chr(13)
  Next

  response.write "</table>"

  'Clean up
  Set objLocator = Nothing
  Set objService = Nothing
  Set objWEBMCol = Nothing
  Set objWEBM = Nothing
  set objProp = nothing
End Function


Call ShowServices("", "Win32_Processor")
%>