<%
compName = Request.Form("computer")
usrName = Request.Form("userName")
password = Request.Form("password")
adsPath = "WinNT://" & compName & ",computer"
Set dso = GetObject("WinNT:")
Set comp = dso.OpenDSObject(adsPath, userName, password, 1)
%>
Computer Name:
<%Response.Write comp.Name%>
Contains the following objects:
<%for each obj in comp %>
| <%Response.Write obj.Name%> |
<%Response.Write obj.Class%> |
<% next %>