gioia cara per ciò devi avere inanzitutto una macchina che monta almeno windoz 2000 e interrogare il WMI della macchina, non le variabili che legge il web server, è chiaro che ti da solamente l' IP, mica può interrogare una intranet ...
Ti posto qualche cosa, ma devi cercare sull' MSDN
codice:
<%
Function ShowNTUserAccounts(vComputerName)
Dim objLocator, objService, objWEBMCol, objWEBM
Set objLocator = Server.CreateObject("WbemScripting.SWbemLocator")
'Connettiamoci a WMI
If isEmpty(vComputerName) = True then
Set objService = objLocator.ConnectServer
Else
Set objService = objLocator.ConnectServer(vComputerName)
End If
'Recuperiamo l'oggetto al servizio Webm
Set objWEBMCol = objService.InstancesOf("Win32_Account")
Response.write "<H2>Account utenti NT:</H2><HR><UL>"
'Enumeriamoli
For Each objWEBM in objWEBMCol
Response.write "<LI>Intestazione: " & objWEBM.Caption & _
",
Descrizione: " & objWEBM.Description & _
",
Dominio: " & objWEBM.Domain & _
",
Identificativo di Sicurezza: " & objWEBM.SID & _
",
Tipo SID: " & objWEBM.SIDType & _
",
Stato: " & objWEBM.Status & "
</LI>"
Next
Response.write "[/list]"
'Chiudiamo gli oggetti
Set objLocator = Nothing
Set objService = Nothing
Set objWEBMCol = Nothing
Set objWEBM = Nothing
End Function
Call ShowNTUserAccounts("nome_server")
%>
Io la uso in C#, così è modificata per ASP 3 ma non so, ricordati che devi avere i permessi di admin della rete che vai a interrogare ..