Solved

HTA Script - DSQuery

Posted on 2012-03-14
7
1,451 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
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 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
Is Your AD Toolbox Looking More Like a Toybox?

Managing Active Directory can get complicated.  Often, the native tools for managing AD are just not up to the task.  The largest Active Directory installations in the world have relied on one tool to manage their day-to-day administration tasks: Hyena. Start your trial today.

 
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

Online Training Solution

Drastically shorten your training time with WalkMe's advanced online training solution that Guides your trainees to action. Forget about retraining and skyrocket knowledge retention rates.

Question has a verified solution.

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

Always backup Domain, SYSVOL etc.using processes according to Microsoft Best Practices. This is meant as a disaster recovery process for small environments that did not implement backup processes and did not run a secondary domain controller that ne…
The Windows functions GetTickCount and timeGetTime retrieve the number of milliseconds since the system was started. However, the value is stored in a DWORD, which means that it wraps around to zero every 49.7 days. This article shows how to solve t…
This tutorial will walk an individual through the process of configuring their Windows Server 2012 domain controller to synchronize its time with a trusted, external resource. Use Google, Bing, or other preferred search engine to locate trusted NTP …
The viewer will learn how to dynamically set the form action using jQuery.

734 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