HTA Script - DSQuery

Hi Experts,

Can you help me for HTA script for the below query:

dsquery * "CN=Sites,CN=Configuration,DC=nestle,DC=com" -filter "&(objectcategory=site)(name=CHENNAI-SITE)" -attr siteObjectBL description distinguishedName whenCreated whenChanged

The above query will give the result. But my aim to have that done in HTA script.

HTA Script:

Input Will be site name = CHENNAI-SITE
Output should give:

siteObjectBL
description
distinguishedName
whenCreated
whenChanged

HTA script will be great for me.

Any questions, please let me know.

Thanks,
Prem
LVL 17
Premkumar YogeswaranAnalyst II - System AdministratorAsked:
Who is Participating?
 
RobSampsonCommented:
Oh sorry.  Just change this line:
            strBase = "<LDAP://" & strDNSDomain & ">"

to this
            strBase = "<LDAP://CN=Sites,CN=Configuration," & strDNSDomain & ">"


Regards,

Rob.
0
 
RobSampsonCommented:
Hi there,

See if this works.

Regards,

Rob.

<head>
<title>Active Directory Site Information</title>
<HTA:APPLICATION 
     APPLICATIONNAME="Active Directory Site Information"
     BORDER="thin"
     SCROLL="no"
     SINGLEINSTANCE="yes"
     WINDOWSTATE="normal"
>
</head>

<script language="VBScript">

Sub Window_onLoad
	intWidth = 800
	intHeight = 600
	Me.ResizeTo intWidth, intHeight
    Me.MoveTo ((Screen.Width / 2) - (intWidth / 2)),((Screen.Height / 2) - (intHeight / 2))
    lstResults.Style.Width = 300

		 ' Search entire Active Directory domain.
		Set adoCommand = CreateObject("ADODB.Command")
		Set adoConnection = CreateObject("ADODB.Connection")
		adoConnection.Provider = "ADsDSOObject"
		adoConnection.Open "Active Directory Provider"
		adoCommand.ActiveConnection = adoConnection

		Set objRootDSE = GetObject("LDAP://RootDSE")
		
		strDNSDomain = objRootDSE.Get("defaultNamingContext")
		strBase = "<LDAP://" & strDNSDomain & ">"
		
		strFilter = "(&(objectcategory=site))"
		
		' Comma delimited list of attribute values to retrieve.
		strAttributes = "name,distinguishedName"
		
		' Construct the LDAP syntax query.
		strQuery = strBase & ";" & strFilter & ";" & strAttributes & ";subtree"
		adoCommand.CommandText = strQuery

		adoCommand.Properties("Page Size") = 100
		adoCommand.Properties("Timeout") = 30
		adoCommand.Properties("Cache Results") = False
		
		' Run the query.
		Set adoRecordset = adoCommand.Execute
		 
		' Enumerate the resulting recordset.
		Do Until adoRecordset.EOF
		    ' Retrieve values and display.
			Set objNewOption = Document.CreateElement("OPTION")
			objNewOption.Text = adoRecordset.Fields("name").Value
			objNewOption.Value = adoRecordset.Fields("distinguishedName").Value
			lstResults.Add(objNewOption)
		    ' Move to the next record in the recordset.
		    adoRecordset.MoveNext
		Loop
		
		' Clean up.
		adoRecordset.Close
		Set adoRecordset = Nothing
		
		adoConnection.Close
		Get_Details
End Sub

Sub Get_Details
	On Error Resume Next
	Set objObject = GetObject("LDAP://" & lstResults.Value)
	txt_siteobjectbl.Value = objObject.siteobjectBL
	txt_description.Value = objObject.description
	txt_dn.Value = objObject.distinguishedName
	txt_whencreated.Value = objObject.whenCreated
	txt_whenchanged.Value = objObject.whenChanged
	Err.Clear
	On Error GoTo 0
End Sub

</script>

<body STYLE="background-color:#B0C4DE; font-family: arial">
	<table width='90%' height = '90%' align='center' border='0'>
		<tr>
			<td colspan="4" align="center">
				<h2>
					Active Directory Site Information
				</h2>
			</td>
		</tr>
		<tr>
			<td align='center' colspan="2">
				Choose a Site Name:
				<select size='1' name='lstResults' onchange="vbs:Get_Details">
				</select>
			</td>
		</tr>
		<tr>
			<td align="left">
				SiteObjectBL:
			</td>
			<td align="left">
				<input type="text" maxlength="30" size="40" id="txt_siteobjectbl" name="txt_siteobjectbl" readonly>
			</td>
		</tr>
		<tr>
			<td align="left">
				Description:
			</td>
			<td align="left">
				<input type="text" maxlength="30" size="40" id="txt_description" name="txt_description" readonly>
			</td>
		</tr>
		<tr>
			<td align="left">
				DistinguishedName:
			</td>
			<td align="left">
				<input type="text" maxlength="30" size="40" id="txt_dn" name="txt_dn" readonly>
			</td>
		</tr>
		<tr>
			<td align="left">
				WhenCreated:
			</td>
			<td align="left">
				<input type="text" maxlength="30" size="40" id="txt_whencreated" name="txt_whencreated" readonly>
			</td>
		</tr>
		<tr>
			<td align="left">
				WhenChanged:
			</td>
			<td align="left">
				<input type="text" maxlength="30" size="40" id="txt_whenchanged" name="txt_whenchanged" readonly>
			</td>
		</tr>
	</table>
</body>

Open in new window

0
 
Premkumar YogeswaranAnalyst II - System AdministratorAuthor Commented:
Hi Rob,

Unable to input the site information.
Screenshot attached-a
HTA-Error.jpg
0
Simplify Active Directory Administration

Administration of Active Directory does not have to be hard.  Too often what should be a simple task is made more difficult than it needs to be.The solution?  Hyena from SystemTools Software.  With ease-of-use as well as powerful importing and bulk updating capabilities.

 
Premkumar YogeswaranAnalyst II - System AdministratorAuthor Commented:
RobSampson....!!!

                           You are Great....!!!

Thanks a TON..

Cheers,
Prem
0
 
Premkumar YogeswaranAnalyst II - System AdministratorAuthor Commented:
Rob,

Additionally, instead of drop down box for site in the script..

Please could you help me to enter the site name manually to trigger the output in the script...??

Thanks,
Prem
0
 
RobSampsonCommented:
Yep, this should work.

Regards,

Rob.

<head>
<title>Active Directory Site Information</title>
<HTA:APPLICATION 
     APPLICATIONNAME="Active Directory Site Information"
     BORDER="thin"
     SCROLL="no"
     SINGLEINSTANCE="yes"
     WINDOWSTATE="normal"
>
</head>

<script language="VBScript">

Sub Window_onLoad
	intWidth = 800
	intHeight = 600
	Me.ResizeTo intWidth, intHeight
    Me.MoveTo ((Screen.Width / 2) - (intWidth / 2)),((Screen.Height / 2) - (intHeight / 2))
    txt_SiteName.focus
End Sub

Sub Default_Buttons
	If Window.Event.KeyCode = 13 Then
		btn_getdetails.Click
	End If
End Sub

Sub Get_Details
	If Trim(txt_sitename.Value) = "" Then
		MsgBox "Please enter a site name."
		txt_sitename.focus
	Else
		txt_siteobjectbl.Value = ""
		txt_description.Value = ""
		txt_dn.Value = ""
		txt_whencreated.Value = ""
		txt_whenchanged.Value = ""

		 ' Search entire Active Directory domain.
		Set adoCommand = CreateObject("ADODB.Command")
		Set adoConnection = CreateObject("ADODB.Connection")
		adoConnection.Provider = "ADsDSOObject"
		adoConnection.Open "Active Directory Provider"
		adoCommand.ActiveConnection = adoConnection
	
		Set objRootDSE = GetObject("LDAP://RootDSE")
		
		strDNSDomain = objRootDSE.Get("defaultNamingContext")
		strBase = "<LDAP://CN=Sites,CN=Configuration," & strDNSDomain & ">"
		
		strFilter = "(&(objectcategory=site)(name=" & txt_SiteName.Value & "))"
		
		' Comma delimited list of attribute values to retrieve.
		strAttributes = "name,distinguishedName,siteobjectBL,description,whenCreated,whenChanged"
		
		' Construct the LDAP syntax query.
		strQuery = strBase & ";" & strFilter & ";" & strAttributes & ";subtree"
		adoCommand.CommandText = strQuery
	
		adoCommand.Properties("Page Size") = 100
		adoCommand.Properties("Timeout") = 30
		adoCommand.Properties("Cache Results") = False
		
		' Run the query.
		Set adoRecordset = adoCommand.Execute
		 
		' Enumerate the resulting recordset.
		blnFound = False
		Do Until adoRecordset.EOF
			blnFound = True
			On Error Resume Next
		    ' Retrieve values and display.
			txt_siteobjectbl.Value = adoRecordset("siteobjectBL").Value
			txt_description.Value = adoRecordset("description").Value
			txt_dn.Value = adoRecordset("distinguishedName").Value
			txt_whencreated.Value = adoRecordset("whenCreated").Value
			txt_whenchanged.Value = adoRecordset("whenChanged").Value
			Err.Clear
			On Error GoTo 0
		    ' Move to the next record in the recordset.
		    adoRecordset.MoveNext
		Loop
		
		' Clean up.
		adoRecordset.Close
		Set adoRecordset = Nothing
		
		adoConnection.Close
		
		If blnFound = False Then MsgBox "Unable to find site specified."
	End If
End Sub

</script>

<body STYLE="background-color:#B0C4DE; font-family: arial" onkeypress='vbs:Default_Buttons'>
	<table width='90%' height = '90%' align='center' border='0'>
		<tr>
			<td colspan="4" align="center">
				<h2>
					Active Directory Site Information
				</h2>
			</td>
		</tr>
		<tr>
			<td align='center' colspan="2">
				Enter a Site Name:
				<input type="text" maxlength="30" size="40" id="txt_sitename" name="txt_sitename">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<input type="button" name="btn_getdetails" id="btn_getdetails" onclick="Get_Details" value="Get Details">
			</td>
		</tr>
		<tr>
			<td align="left">
				SiteObjectBL:
			</td>
			<td align="left">
				<input type="text" maxlength="30" size="40" id="txt_siteobjectbl" name="txt_siteobjectbl" readonly>
			</td>
		</tr>
		<tr>
			<td align="left">
				Description:
			</td>
			<td align="left">
				<input type="text" maxlength="30" size="40" id="txt_description" name="txt_description" readonly>
			</td>
		</tr>
		<tr>
			<td align="left">
				DistinguishedName:
			</td>
			<td align="left">
				<input type="text" maxlength="30" size="40" id="txt_dn" name="txt_dn" readonly>
			</td>
		</tr>
		<tr>
			<td align="left">
				WhenCreated:
			</td>
			<td align="left">
				<input type="text" maxlength="30" size="40" id="txt_whencreated" name="txt_whencreated" readonly>
			</td>
		</tr>
		<tr>
			<td align="left">
				WhenChanged:
			</td>
			<td align="left">
				<input type="text" maxlength="30" size="40" id="txt_whenchanged" name="txt_whenchanged" readonly>
			</td>
		</tr>
	</table>
</body>

Open in new window

0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.