//+-------------------------------------------------------------------------
//
// THIS CODE AND INFORMATION IS PROVIDED "AS IS" WITHOUT WARRANTY OF
// ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING BUT NOT LIMITED TO
// THE IMPLIED WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A
// PARTICULAR PURPOSE.
//
// Copyright (c) Microsoft Corporation. All rights reserved.
//
// First ASP Sample: Enumerating a Computer Object using ADSI and ASP
//
//--------------------------------------------------------------------------
Description
===========
The First sample shows how to use ADSI in an Active Server Page (ASP) to bind
to a specified computer and enumerate information about the computer.
This sample uses the WinNT: provider and is suitable for Windows NT(R) 4.0
networks as well as Windows 2000 and later networks running Active Directory.
Sample Files
============
* Default.Htm
* Enum.Asp
Running the Sample
==================
This sample requires that you install Microsoft Internet Information Services
on a Web server in the domain. For example, the location of the Web server
might be www.fabrikam.com.
To run this sample
1. Copy the two sample files to the wwwroot folder of the Web server.
2. In Microsoft Internet Explorer, enter "http://www.fabrikam.com"
in the Address field and select Go.
3. In the resulting "ADSI ASP Sample: Enumerating a computer object" page,
enter a computer name to enumerate and a user name and password to use
for credentials.
Example Output
==============
The sample produces HTML output similar to the following, which is for the
computer FABRIKAMDC. Most of the output is deleted to save space.
Computer Name: fabrikamdc
Contains the following objects:
Administrator User
ASPNET User
Guest User
...
Administrators Group
Users Group
Guests Group
Print Operators Group
Backup Operators Group
...
Alerter Service
ALG Service
AppMgmt Service
appmgr Service
aspnet_state Service
AudioSrv Service
BITS Service
Browser Service
...
How the Sample Works
====================
The Default.Htm file accepts the computer name, user name and password and
posts them to the Enum.Asp file.
The Enum.Asp file contains the script statements
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)
which specify the computer object for the query. The ASP file then
enumerates the objects in the specified computer object and outputs the
Name and Class of each enumerated object.
