Solved

HTA Script - DSQuery

Posted on 2012-03-14
7
1,433 Views
Last Modified: 2013-12-24
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
0
Comment
Question by:Premkumar Yogeswaran
  • 3
  • 3
7 Comments
 
LVL 65

Expert Comment

by:RobSampson
ID: 37723491
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
 
LVL 17

Author Comment

by:Premkumar Yogeswaran
ID: 37724020
Hi Rob,

Unable to input the site information.
Screenshot attached-a
HTA-Error.jpg
0
 
LVL 65

Accepted Solution

by:
RobSampson earned 500 total points
ID: 37727002
Oh sorry.  Just change this line:
            strBase = "<LDAP://" & strDNSDomain & ">"

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


Regards,

Rob.
0
Zoho SalesIQ

Hassle-free live chat software re-imagined for business growth. 2 users, always free.

 
LVL 17

Author Comment

by:Premkumar Yogeswaran
ID: 37734291
RobSampson....!!!

                           You are Great....!!!

Thanks a TON..

Cheers,
Prem
0
 
LVL 17

Author Closing Comment

by:Premkumar Yogeswaran
ID: 37734292
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
 
LVL 65

Expert Comment

by:RobSampson
ID: 37735730
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

Featured Post

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Synchronize a new Active Directory domain with an existing Office 365 tenant
Restoring deleted objects in Active Directory has been a standard feature in Active Directory for many years, yet some admins may not know what is available.
In this fourth video of the Xpdf series, we discuss and demonstrate the PDFinfo utility, which retrieves the contents of a PDF's Info Dictionary, as well as some other information, including the page count. We show how to isolate the page count in a…
Polish reports in Access so they look terrific. Take yourself to another level. Equations, Back Color, Alternate Back Color. Write easy VBA Code. Tighten space to use less pages. Launch report from a menu, considering criteria only when it is filled…

930 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

13 Experts available now in Live!

Get 1:1 Help Now