This HTA script will take a remote machine name and domain name from input dialog boxes and will return the Computers LDAP path to the active window.
Example:
LDAP://CN=MachineName,CN=COMPUTERS,DC=DomainName,DC=COM
HTA Script:
<html>
<head>
<title>HTA Script</Title>
<style>
Body {Background-Color: CornSilk}
</style>
<HTA:Application
Caption = Yes
Border = Thick
ShowInTaskBar = No
MaximizeButton = Yes
MinimizeButton = Yes>
<script Language = VBScript>
Sub WindowsLoad
strComputer = MachineName.Value
strDomain = Domain.Value
Const ADS_SCOPE_SUBTREE = 2
Set objConnection = CreateObject("ADODB.Connection")
Set objCommand = CreateObject("ADODB.Command")
objConnection.Provider = "ADsDSOObject"
objConnection.Open "Active Directory Provider"
Set objCommand.ActiveConnection = objConnection
objCommand.Properties("Page Size") = 1000
objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE
On Error Resume Next
objCommand.CommandText = _
"Select ADsPath From 'LDAP://dc=" & strDomain & ",dc=com'" _
& "Where objectCategory='Computer' " & _
"And name=' " & strComputer & "'"
Set objRecordSet = objCommand.Execute
objRecordSet.MoveFirst
Do Until objRecordSet.EOF
strComputer = objRecordSet.Fields("ADsPath").Value
objRecordSet.MoveNext
Loop
Window.Document.Title = "Machine Name: " & UCase(MachineName.Value) & " Domain Name: " & UCase(Domain.Value)
If Err.Number <> 0 Then
strHtml = strHtml & "<td><Font color = Red>" & UCase(strComputer) & " Does Not Exist" & "</Font></Td></Br>"
Else
strHtml = strHtml & "<td><Font color = Green>" & UCase(strComputer) & "</Font></Td></Br>"
End If
DataArea.InnerHtml = strHtml
End Sub
</script><Body>
Enter Machine Name: <Input Type = "Text" Name = "MachineName">
Enter Domain Name: <Input Type = "Text" Name = "Domain">
<input Type = "Button" Value = "Run Script" Name = "Run_Button" onClick = "WindowsLoad"><P>
<span Id = "DataArea"></Span></Body><Div Align = "Center">
<p><A Href="http://myitforum.com/cs2/blogs/dhite">Created For myITforum By Don Hite</A>
No Comments