<html>
<!--********************************************************************
'*
'* File: EzADscripto.hta
'* Created: December 2002
'* Version: 1.0
'* Author: The Scripting Guys - Dean Tsaltas, Bob Wells,
'* Greg Stemp, and Ethan Wilansky.
'* Initial concept from ScriptoMatic by Dean Tsaltas
'* and Greg Stemp
'*
'* Description: Learning tool. Generates ADSI scripts (in VBScript)
'* to demonstrate the fundamental
'* ADSI tasks, Create, Write, Read, and Modify.
'*
'*
'* Copyright (C) 2003 Microsoft Corporation
'*
'********************************************************************-->
<head>
<HTA:APPLICATION
ID="objScriptomatic"
APPLICATIONNAME="ADSI Scriptomatic"
SCROLL="no"
SINGLEINSTANCE="yes"
WINDOWSTATE="normal"
BORDER="dialog"
CAPTION="ADSI Scriptomatic"
>
<title>EzAD Scriptomatic</title>
<style>
BODY
{
background-color: buttonface;
font-family: arial;
font-size: 8pt;
}
.button
{
font-family: arial;
font-size: 8pt;
width: 50px;
}
.buttonLong
{
font-family: arial;
font-size: 10pt;
border-style:none;
text-align: left;
color:#483D8B;
text-decoration:underline;
}
textarea
{
font-family:monospace;
font-size: 10pt;
margin-left: 0px;
padding: 0px;
}
span
{
font-family: arial;
font-size: 8pt;
margin-left: -3px;
}
select
{
font-family: arial;
font-size: 10pt;
margin-left: 0px;
}
input
{
font-family: arial;
font-size: 8pt;
margin-left: 0px;
}
div.code
{
font-family: arial;
font-size:12pt;
margin-left: 2px;
position:absolute;
color:#483D8B;
left:10px;
top:77px;
}
div.attention
{
font-family: arial;
font-size: 10pt;
margin-left: 0px;
color: red;
font-style: bold;
position:absolute;
left:230px;
top:40px;
width:280px;
}
div.notes
{
font-family: arial;
font-size: 10pt;
margin-left: 0px;
color: black;
position:absolute;
top:95px;
}
</style>
<script language="vbscript">
'***************************************************************************
'* This routine runs when the application loads. The interface is sized
'* and UI elements appear.
'***************************************************************************
Sub Window_Onload
self.ResizeTo 750,580
strHTML = "<select onChange=""TaskSelectPulldownCheck"" name=TaskSelectPulldown>" & _
"<option value=""PulldownMessage"">Select a task"
arrTasks = _
Array("Create an Object","Write an Object","Read an Object","Delete an Object")
For Each object in arrTasks
strHTML = strHTML & "<option value= " & chr(34) & _
object & chr(34) & ">" & object
Next
strHTML = strHTML & "</select>"
ADSI_tasks.insertAdjacentHTML "beforeEnd", strHTML
'Create a list of the ADSI classes available for script creation.
'A small number of Class names in the collection will populate the
'classes pulldown.
strHTML = "<select onChange=""TaskSelectPulldownCheck"" name=ClassesPulldown>" & _
"<option value=""PulldownMessage"">Select a class"
arrClassObjects = _
Array("user","computer","contact","group","organizationalUnit")
For Each object in arrClassObjects
strHTML = strHTML & "<option value= " & chr(34) & _
object & chr(34) & ">" & object
Next
strHTML = strHTML & "</select>"
ADSI_classes.insertAdjacentHTML "beforeEnd", strHTML
strImptNote = "EzAD Scriptomatic is an ADSI Scripting learning tool.<br>" & _
"The tool creates example scripts that read, write and<br>" & _
"modify Active Directory data. To successfully run<br>" & _
"scripts created with EzAD Scriptomatic, you must:<br>" & _
"1. have Administrator access to Active Directory, and<br>" & _
"2. be logged on to the target Active Directory domain.<br><br>" & _
"You should not run scripts created with EzAD Scriptomatic<br>" & _
"against a production domain without first testing the<br>"& _
"scripts in your designated testing environment."
Call InitialUIState
code.insertAdjacentHTML "beforeEnd", strImptNote
End Sub
'***************************************************************************
'* These subroutines control the state of the user interface. Each
'* routine includes descriptive text.
'***************************************************************************
'This is the state the HTA UI elements should be in
'before anything is selected.
Sub InitialUIState
TaskSelectPulldown.disabled = False
run_button.disabled = True
save_button.disabled = True
notesbuttonrun.value = ""
classesPulldown.selectedIndex = 0
classesPulldown.disabled = True
code.InnerHTML = ""
notesbutton.value = ""
End Sub
'If the operator selects a different task, reset the UI in
'preperation for selecting a class.
Sub ResetForClassesPullDown
ClassesPullDown.Disabled = False
code.InnerHTML= ""
notesbutton.value = ""
notesbuttonrun.value = ""
End Sub
'If the TaskSelectPulldown is not set to Select a task
'then enable the ClassesPulldown. Otherwise, disable
'the ClassesPulldown.
Sub TaskSelectPulldownCheck
Select Case TaskSelectPulldown.SelectedIndex
Case "0"
Call InitialUIState
Case "1"
Call ResetForClassesPullDown
Call CreateCreateScript
Case "2"
Call ResetForClassesPullDown
Call CreateWriteScript
Case "3"
Call ResetForClassesPullDown
Call CreateReadScript
Case "4"
Call ResetForClassesPullDown
Call CreateDeleteScript
End Select
End Sub
'Once a script is generated, enable the Running This Script, Run, and Save buttons.
Sub FinalUIState
notesbuttonrun.value="Read this before running the " & _
lcase(TaskSelectPulldown.Value) & " - " & ClassesPulldown.Value & " script"
run_button.disabled = False
save_button.disabled = False
End Sub
Sub ChangePointer
If window.event.srcElement.id = "notesbuttonrun" Then
notesbuttonrun.style.cursor="hand"
ElseIf window.event.srcElement.id = "notesbutton" Then
notesbutton.style.cursor="hand"
End If
End Sub
'***************************************************************************
'* These functions are called by other functions that generate the code for
'* the Read an Object task. Each function in this section generates code
'* based on attribute definitions.
'***************************************************************************
Function StrReadCodeSV(strPageName,arrName)
strHTML = strHTML & "WScript.Echo VbCrLf & " & chr(34) & "** " & strPageName & " Properties Page**" & chr(34) & chr(10)
strHTML = strHTML & "WScript.Echo " & chr(34) & "** (Single-Valued Attributes) **" & chr(34) & chr(10)
For each attrib in arrName
'Added the Instr function here because the COM+ attribute, msCOM-UserPartitionSetLink
'contains a hyphen, which a variable name should not contain.
If Instr(1,attrib,"-") = 0 Then
strHTML = strHTML & _
"str" & attrib & " = objItem.Get(" & chr(34) & attrib & chr(34) & ")" & chr(10)
strHTML = strHTML & _
"WScript.Echo " & chr(34) & attrib & ": " & chr(34) & " & str" & attrib & chr(10)
Else
strHTML = strHTML & _
"WScript.Echo " & chr(34) & attrib & ": " & chr(34) & chr(10) & _
"WScript.Echo " & chr(34) & " " & chr(34) & " & objItem.Get(" & chr(34) & attrib & chr(34) & ")" & chr(10)
End If
Next
strReadCodeSV = strHTML & chr(10)
End Function
Function StrReadCodeMV(strPageName,arrName)
strHTML = strHTML & "WScript.Echo VbCrLf & " & chr(34) & "** " & strPageName & " Properties Page**" & chr(34) & chr(10)
strHTML = strHTML & "WScript.Echo " & chr(34) & "** (MultiValued Attributes) **" & chr(34) & chr(10)
For Each attrib in arrName
strHTML = strHTML & _
"str" & attrib & " = objItem.GetEx(" & chr(34) & attrib & chr(34) & ")" & chr(10)
strHTML = strHTML & _
"WScript.Echo " & chr(34) & attrib & ":" & chr(34) & chr(10)
strHTML = strHTML & _
"For Each Item in str" & attrib & chr(10)
strHTML = strHTML & _
" WScript.Echo vbTab & Item" & chr(10)
strHTML = strHTML & "Next" & chr(10)
Next
StrReadCodeMV = strHTML & chr(10)
End Function
'For reading attributes stored as integers containing bit flags
Function IntReadCode(strPageName,attrib,arrConstant,arrValue)
strHTML = strHTML & "WScript.Echo VbCrLf & " & chr(34) & "** " & strPageName & " Properties Page**" & chr(34) & chr(10)
strHTML = strHTML & "WScript.Echo " & chr(34) & "** (The " & attrib & " attribute) **" & chr(34) & chr(10)
strHTML = strHTML & "Set objHash = CreateObject(" & chr(34) & "Scripting.Dictionary" & chr(34) & ")" & chr(10)
i = 0
For Each constant in arrConstant
strHTML = strHTML & "objHash.Add " & chr(34) & constant & chr(34) & ", " & arrValue(i) & chr(10)
i = 1 + i
Next
strHTML = strHTML & _
"int" & attrib & " = objItem.Get(" & chr(34) & attrib & chr(34) & ")" & chr(10)
strHTML = strHTML & _
"For Each Key in objHash.Keys" & chr(10)
strHTML = strHTML & _
" If objHash(Key) And " & "int" & attrib & " Then" & chr(10)
strHTML = strHTML & _
" WScript.Echo Key & " & chr(34) & " is enabled." & chr(34) & chr(10)
strHTML = strHTML & " Else" & chr(10)
strHTML = strHTML & _
" WScript.Echo Key & " & chr(34) & " is disabled." & chr(34) & chr(10)
strHTML = strHTML & " End If" & chr(10)
strHTML = strHTML & "Next"
IntReadCode = strHTML & chr(10)
End Function
Function ReadPropertiesSimple(strPageName,interfaceName,arrProp)
strHTML = strHTML & "WScript.Echo VbCrLf & " & chr(34) & "** " & strPageName & " Properties Page**" & chr(34) & chr(10)
strHTML = strHTML & "WScript.Echo " & chr(34) & "** (The " & interfaceName & " interface) **" & chr(34) & chr(10)
For Each prop in arrProp
strHTML = strHTML & "WScript.Echo " & _
chr(34) & prop & ": " & chr(34) & " & _" & chr(10) & _
" objItem." & prop & chr(10)
Next
ReadPropertiesSimple = strHTML & chr(10)
End Function
'***************************************************************************
'* These functions are called by other functions that generate the code for
'* the Write an Object task. Each function in this section generates code
'* based on attribute definitions.
'***************************************************************************
Function StrWriteCodeSV(strPageName,arrName,strValue)
If strValue = "VALUE" Then
strHTML = strHTML & "WScript.Echo VbCrLf & " & chr(34) & "** " & strPageName & " Properties Page**" & chr(34) & chr(10)
strHTML = strHTML & "WScript.Echo " & chr(34) & "** (Writing Single-Valued Attributes) **" & chr(34) & chr(10)
Else
strHTML = strHTML & "WScript.Echo VbCrLf & " & chr(34) & "**Non-standard value on " & strPageName & " Properties Page**" & chr(34) & chr(10)
strHTML = strHTML & "'See Script Notes for information on setting this value." & chr(10)
End If
For each attrib in arrName
strHTML = strHTML & _
"objItem.Put " & chr(34) & attrib & chr(34) & ", " & _
chr(34) & strValue & chr(34) & chr(10)
strHTML = strHTML & "objItem.SetInfo" & chr(10)
Next
strWriteCodeSV = strHTML & chr(10)
End Function
Function StrWriteCodeMV(strPageName,arrName,strValue)
If strValue = "VALUE" Then
strHTML = strHTML & "WScript.Echo VbCrLf & " & chr(34) & "** " & strPageName & " Properties Page**" & chr(34) & chr(10)
strHTML = strHTML & "WScript.Echo " & chr(34) & "** (Writing MultiValued Attributes) **" & chr(34) & chr(10)
Else
strHTML = strHTML & "WScript.Echo VbCrLf & " & chr(34) & "**Non-standard value on " & strPageName & " Properties Page**" & chr(34) & chr(10)
strHTML = strHTML & "'See Script Notes for information on setting this value." & chr(10)
End If
For each attrib in arrName
strHTML = strHTML & _
"objItem.PutEx ADS_PROPERTY_UPDATE, " & chr(34) & attrib & chr(34) & ", _" & chr(10) & _
" Array(" & chr(34) & strValue & "1" & chr(34) & _
", " & chr(34) & strValue & "2" & chr(34) & _
", " & chr(34) & "..." & strValue & "n" & chr(34) & ")" & chr(10)
strHTML = strHTML & "objItem.SetInfo" & chr(10)
Next
strWriteCodeMV = strHTML & chr(10)
End Function
'***************************************************************************
'* These functions write script code to the code window for the Read
'* an Object task. Each function varies based on the selected class.
'* The function name describes the class it supports.
'***************************************************************************
Function UserAttribsToRead
'All attributes on the General Properites Page
arrSVStringAttribsGP = Array("name", "givenName","initials", _
"sn","displayName","description","physicalDeliveryOfficeName", _
"telephoneNumber","mail","wWWHomePage")
strHTML = strReadCodeSV("General",arrSVStringAttribsGP)
arrMVStringAttribsGP = Array("otherTelephone", "url")
strHTML = strHTML & strReadCodeMV("General",arrMVStringAttribsGP)
'End General Properties Page
'All attributes on the Address Properties Page
arrSVStringAttribsAP = Array("streetAddress", "l", "st", _
"postalCode", "c")
strHTML = strHTML & strReadCodeSV("Address",arrSVStringAttribsAP)
arrMVStringAttribsAP = Array("postOfficeBox")
strHTML = strHTML & strReadCodeMV("Address",arrMVStringAttribsAP)
'End Address Properties Page
'Selected attributes on the Account Properties Page
arrSVStringAttribsAcP = Array("userPrincipalName", "dc", _
"sAMAccountName", "userWorkstations")
strHTML = strHTML & strReadCodeSV("Account",arrSVStringAttribsAcP)
'Read the bit flags in userAccountControl
arrUACConstants = Array("ADS_UF_SMARTCARD_REQUIRED", _
"ADS_UF_TRUSTED_FOR_DELEGATION", "ADS_UF_NOT_DELEGATED", _
"ADS_UF_USE_DES_KEY_ONLY","ADS_UF_DONT_REQUIRE_PREAUTH")
arrUACValues = Array("&h40000", "&h80000", "&h100000", _
"&h200000", "&h400000")
strHTML = strHTML & IntReadCode("Account","userAccountControl", _
arrUACConstants,arrUACValues)
'End read the bit flags in userAccountControl
'Read the IsAccountLocked property
strHTML = strHTML & "If objItem.IsAccountLocked = True Then" & chr(10)
strHTML = strHTML & _
" WScript.Echo " & chr(34) & "ADS_UF_LOCKOUT is enabled" & chr(34) & chr(10)
strHTML = strHTML & "Else" & chr(10)
strHTML = strHTML & _
" WScript.Echo " & chr(34) & "ADS_UF_LOCKOUT is disabled" & chr(34) & chr(10)
strHTML = strHTML & "End If" & chr(10) & chr(10)
'End read the IsAccountLocked property
'Read the AccountExpirationDate property
strHTML = strHTML & "If err.Number = -2147467259 OR _" & chr(10) & _
" objItem.AccountExpirationDate = " & chr(34) & "1/1/1970" & chr(34) & _
" Then" & chr(10)
strHTML = strHTML & " WScript.Echo " & chr(34) & _
"Account doesn't expire." & chr(34) & chr(10)
strHTML = strHTML & "Else" & chr(10)
strHTML = strHTML & " WScript.Echo " & chr(34) & _
"Account expires on: " & chr(34) & " & " & _
"objItem.AccountExpirationDate" & chr(10)
strHTML = strHTML & "End If" & chr(10) & chr(10)
'End read the AccountExpirationDate property
'End Account Properties Page
'All attributes on the Profile Properties Page
arrSVStringAttribsPrP = Array("profilePath", "scriptPath", _
"homeDirectory", "homeDrive")
strHTML = strHTML & strReadCodeSV("Profile",arrSVStringAttribsPrP)
'End Profile Properties Page
'All attributes on the Telephones Properties Page
arrSVStringAttribsTele = Array("homePhone","pager", _
"mobile","facsimileTelephoneNumber","ipPhone", "info")
strHTML = strHTML & strReadCodeSV("Telephone",arrSVStringAttribsTele)
arrMVStringAttribsTele = Array("otherHomePhone","otherPager", _
"otherMobile","otherFacsimileTelephoneNumber","otherIpPhone")
strHTML = strHTML & strReadCodeMV("Telephone",arrMVStringAttribsTele)
'End Telephones Properties Page
'All attributes on the Organization Properties Page
arrSVStringAttribsOrg = Array("title","department", _
"company","manager")
strHTML = strHTML & strReadCodeSV("Organization",arrSVStringAttribsOrg)
arrMVStringAttribsOrg = Array("directReports")
strHTML = strHTML & strReadCodeMV("Organization",arrMVStringAttribsOrg)
'End Organization Properties Page
'All settings on the Environment Properties Page
arrProperties = Array("TerminalServicesInitialProgram", _
"TerminalServicesWorkDirectory","ConnectClientDrivesAtLogon", _
"ConnectClientPrintersAtLogon","DefaultToMainPrinter")
strHTML = strHTML & ReadPropertiesSimple("Environment","ADSI Extension for Terminal Services",arrProperties)
'End all settings on the Environment Properties Page
'All settings on the Sessions Properties Page
arrProperties = Array("MaxDisconnectionTime","MaxConnectionTime", _
"MaxIdleTime","BrokenConnectionAction","ReconnectionAction")
strHTML = strHTML & ReadPropertiesSimple("Sessions","ADSI Extension for Terminal Services",arrProperties)
'End all settings on the Sessions Properties Page
'All settings on the Remote Control Properties page
arrProperties = Array("EnableRemoteControl")
strHTML = strHTML & ReadPropertiesSimple("Remote Control","ADSI Extension for Terminal Services",arrProperties)
strHTML = strHTML & "Select Case objItem.EnableRemoteControl" & chr(10)
strHTML = strHTML & " Case 0" & chr(10)
strHTML = strHTML & " WScript.Echo " & chr(34) & _
"Remote Control disabled" & chr(34) & chr(10)
strHTML = strHTML & " Case 1" & chr(10)
strHTML = strHTML & " WScript.Echo " & chr(34) & _
"Remote Control enabled" & chr(34) & chr(10)
strHTML = strHTML & " WScript.Echo " & chr(34) & _
"User permission required" & chr(34) & chr(10)
strHTML = strHTML & " WScript.Echo " & chr(34) & _
"Interact with the session" & chr(34) & chr(10)
strHTML = strHTML & " Case 2" & chr(10)
strHTML = strHTML & " WScript.Echo " & chr(34) & _
"Remote Control enabled" & chr(34) & chr(10)
strHTML = strHTML & " WScript.Echo " & chr(34) & _
"User permission not required" & chr(34) & chr(10)
strHTML = strHTML & " WScript.Echo " & chr(34) & _
"Interact with the session" & chr(34) & chr(10)
strHTML = strHTML & " Case 3" & chr(10)
strHTML = strHTML & " WScript.Echo " & chr(34) & _
"Remote Control enabled" & chr(34) & chr(10)
strHTML = strHTML & " WScript.Echo " & chr(34) & _
"User permission required" & chr(34) & chr(10)
strHTML = strHTML & " WScript.Echo " & chr(34) & _
"View the session" & chr(34) & chr(10)
strHTML = strHTML & " Case 4" & chr(10)
strHTML = strHTML & " WScript.Echo " & chr(34) & _
"Remote Control enabled" & chr(34) & chr(10)
strHTML = strHTML & " WScript.Echo " & chr(34) & _
"User permission not required" & chr(34) & chr(10)
strHTML = strHTML & " WScript.Echo " & chr(34) & _
"View the session" & chr(34) & chr(10)
strHTML = strHTML & "End Select" & chr(10) & chr(10)
'End all settings on the Remote Control Properties Page
'All settings on the Terminal Services Profile Properties page
arrProperties = Array("TerminalServicesProfilePath", _
"TerminalServicesHomeDirectory","TerminalServicesHomeDrive", _
"AllowLogon")
strHTML = strHTML & ReadPropertiesSimple("Terminal Services Profile","ADSI Extension for Terminal Services",arrProperties)
'End all settings on the Terminal Services Profile Properties page
'The attribute on the COM+ Properties page
arrSVStringAttribsCOM = Array("msCOM-UserPartitionSetLink")
strHTML = strHTML & strReadCodeSV("COM+",arrSVStringAttribsCOM)
'End the attribute on the COM+ Properties page
'All attributes on the Member-Of Properties Page
arrSVStringAttribsMO = Array("primaryGroupID")
strHTML = strHTML & strReadCodeSV("Member Of",arrSVStringAttribsMO)
arrMVStringAttribsMO = Array("memberOf")
strHTML = strHTML & strReadCodeMV("Member Of",arrMVStringAttribsMO)
'End all attributes on the Member-Of Properties Page
'Selected attributes on the Object Properties Page
arrSVStringAttribsObj = Array("whenCreated","whenChanged")
strHTML = strHTML & strReadCodeSV("Object",arrSVStringAttribsObj)
'Added this because canonicalName is an operational attribute
strHTML = strHTML & "objItem.GetInfoEx Array(" & _
chr(34) & "canonicalName" & chr(34) & "), 0" & chr(10)
arrMVStringAttribsObj = Array("canonicalName")
strHTML = strHTML & strReadCodeMV("Object",arrMVStringAttribsObj)
'End all attributes on the Object Properties Page
'Dial-in and Security pages skipped.
'A later version of the tool might include
'a script to read these Properties pages.
UserAttribsToRead = strHTML
End Function
Function ContactAttribsToRead
'All attributes on the General Properites Page
arrSVStringAttribsGP = Array("name", "givenName","initials", _
"sn","displayName","description","physicalDeliveryOfficeName", _
"telephoneNumber","mail","wWWHomePage")
strHTML = strReadCodeSV("General",arrSVStringAttribsGP)
arrMVStringAttribsGP = Array("otherTelephone", "url")
strHTML = strHTML & strReadCodeMV("General",arrMVStringAttribsGP)
'End General Properties Page
'All attributes on the Address Properties Page
arrSVStringAttribsAP = Array("streetAddress", "l", "st", _
"postalCode", "c")
strHTML = strHTML & strReadCodeSV("Address",arrSVStringAttribsAP)
arrMVStringAttribsAP = Array("postOfficeBox")
strHTML = strHTML & strReadCodeMV("Address",arrMVStringAttribsAP)
'End Address Properties Page
'All attributes on the Telephones Properties Page
arrSVStringAttribsTele = Array("homePhone","pager", _
"mobile","facsimileTelephoneNumber","ipPhone", "info")
strHTML = strHTML & strReadCodeSV("Telephone",arrSVStringAttribsTele)
arrMVStringAttribsTele = Array("otherHomePhone","otherPager", _
"otherMobile","otherFacsimileTelephoneNumber","otherIpPhone")
strHTML = strHTML & strReadCodeMV("Telephone",arrMVStringAttribsTele)
'End Telephones Properties Page
'All attributes on the Organization Properties Page
arrSVStringAttribsOrg = Array("title","department", _
"company","manager")
strHTML = strHTML & strReadCodeSV("Organization",arrSVStringAttribsOrg)
arrMVStringAttribsOrg = Array("directReports")
strHTML = strHTML & strReadCodeMV("Organization",arrMVStringAttribsOrg)
'End Organization Properties Page
'All attributes on the Member-Of Properties Page
arrMVStringAttribsMO = Array("memberOf")
strHTML = strHTML & strReadCodeMV("Member Of",arrMVStringAttribsMO)
'End all attributes on the Member-Of Properties Page
'Selected attributes on the Object Properties Page
arrSVStringAttribsObj = Array("whenCreated","whenChanged")
strHTML = strHTML & strReadCodeSV("Object",arrSVStringAttribsObj)
'Added this because canonicalName is an operational attribute
strHTML = strHTML & "objItem.GetInfoEx Array(" & _
chr(34) & "canonicalName" & chr(34) & "), 0" & chr(10)
arrMVStringAttribsObj = Array("canonicalName")
strHTML = strHTML & strReadCodeMV("Object",arrMVStringAttribsObj)
'End all attributes on the Object Properties Page
'Security page skipped.
'A later version of the tool might include
'a script to read this Properties page.
ContactAttribsToRead = strHTML
End Function
Function GroupAttribsToRead
'All attributes on the General Properties Page
arrSVStringAttribsGP = Array("name","samAccountName","description", _
"mail")
strHTML = strHTML & strReadCodeSV("General",arrSVStringAttribsGP)
'For reading the bit flags in grouptype
arrGTConstants = Array("ADS_GROUP_TYPE_GLOBAL_GROUP", _
"ADS_GROUP_TYPE_DOMAIN_LOCAL_GROUP", _
"ADS_GROUP_TYPE_UNIVERSAL_GROUP","ADS_GROUP_TYPE_SECURITY_ENABLED")
arrGTValues = Array("&h2","&h4","&h8","&h80000000")
strHTML = strHTML & IntReadCode("General","groupType", _
arrGTConstants,arrGTValues)
strHTML = strHTML & "If intgroupType AND " & _
"objHash.Item(" & chr(34) & "ADS_GROUP_TYPE_DOMAIN_LOCAL_GROUP" & chr(34) & ") Then" & chr(10)
strHTML = strHTML & " WScript.Echo " & chr(34) & "Group Scope: Domain Local Group" & chr(34) & chr(10)
strHTML = strHTML & "ElseIf intGroupType AND " & _
"objHash.Item(" & chr(34) & "ADS_GROUP_TYPE_GLOBAL_GROUP" & chr(34) & ") Then" & chr(10)
strHTML = strHTML & " WScript.Echo " & chr(34) & "Group Scope: Global Group" & chr(34) & chr(10)
strHTML = strHTML & "ElseIf intGroupType AND " & _
"objHash.Item(" & chr(34) & "ADS_GROUP_TYPE_UNIVERSAL_GROUP" & chr(34) & ") Then" & chr(10)
strHTML = strHTML & " WScript.Echo " & chr(34) & "Group Scope: Universal Group" & chr(34) & chr(10)
strHTML = strHTML & "End If" & chr(10)
strHTML = strHTML & "If intgroupType AND " & _
"objHash.Item(" & chr(34) & "ADS_GROUP_TYPE_SECURITY_ENABLED" & chr(34) & ") Then" & chr(10)
strHTML = strHTML & " WScript.Echo " & chr(34) & "Group Type: Security" & chr(34) & chr(10)
strHTML = strHTML & "Else" & chr(10)
strHTML = strHTML & " WScript.Echo " & chr(34) & "Group Type: Distribution" & chr(34) & chr(10)
strHTML = strHTML & "End If" & chr(10)
'End for reading the bit flags in grouptype
'End General Properties Page
'All attributes on the Managed By page. Code checks to see if the
'first field has a value. If so, it binds to the dn of the object (user)
'and gets the properties of the object specified on the Managed By page.
arrSVStringAttribsMB = Array("managedBy")
strHTML = strHTML & strReadCodeSV("Managed By",arrSVStringAttribsMB)
strHTML = strHTML & "If strmanagedBy <> " & chr(34) & chr(34) & " Then" & chr(10)
strHTML = strHTML & " Set objItem1 = GetObject(" & chr(34) & "LDAP://" & chr(34) & _
" & strManagedBy)" & chr(10)
arrMBProperties = Array("physicalDeliveryOfficeName","streetAddress", _
"l","c","telephoneNumber","facsimileTelephoneNumber")
For Each prop in arrMBProperties
strHTML = strHTML & " WScript.Echo " & _
chr(34) & prop & ": " & chr(34) & " & _" & chr(10) & _
" objItem1." & prop & chr(10)
Next
strHTML = strHTML & "End If" & chr(10) & chr(10)
'End all attributes on the Managed By page
'All attributes on the Member Properties Page
arrMVStringAttribsMO = Array("member")
strHTML = strHTML & strReadCodeMV("Member",arrMVStringAttribsMO)
'End all attributes on the Member-Of Properties Page
'All attributes on the Member-Of Properties Page
arrMVStringAttribsMO = Array("memberOf")
strHTML = strHTML & strReadCodeMV("Member Of",arrMVStringAttribsMO)
'End all attributes on the Member-Of Properties Page
'All attributes on the Managed By page
'Code checks to see if the
'first field has a value. If so, it binds to the dn of
'the object (user or group) and gets the properties of the object
'specified on the Managed By page.
arrSVStringAttribsMB = Array("managedBy")
strHTML = strHTML & strReadCodeSV("Managed By",arrSVStringAttribsMB)
strHTML = strHTML & "If strmanagedBy <> " & chr(34) & chr(34) & " Then" & chr(10)
strHTML = strHTML & " Set objItem1 = GetObject(" & chr(34) & "LDAP://" & chr(34) & _
" & strManagedBy)" & chr(10)
arrMBProperties = Array("physicalDeliveryOfficeName","streetAddress", _
"l","c","telephoneNumber","facsimileTelephoneNumber")
For Each prop in arrMBProperties
strHTML = strHTML & " WScript.Echo " & _
chr(34) & prop & ": " & chr(34) & " & _" & chr(10) & _
" objItem1." & prop & chr(10)
Next
strHTML = strHTML & "End If" & chr(10) & chr(10)
'End all attributes on the Managed By page
GroupAttribsToRead = strHTML
End Function
Function OUAttribsToRead
'All attributes on the General Properties Page
arrSVStringAttribsGP = Array("name", "description", _
"streetAddress", "postOfficeBox","l","st","postalCode","c")
strHTML = strHTML & strReadCodeSV("General",arrSVStringAttribsGP)
'End General Properties Page
'All attributes on the Managed By page
'Code checks to see if the first field has a value. If so, it binds to the dn of
'the object (user or group) and gets the properties of the object specified on the
'Managed By page.
arrSVStringAttribsMB = Array("managedBy")
strHTML = strHTML & strReadCodeSV("Managed By",arrSVStringAttribsMB)
strHTML = strHTML & "If strmanagedBy <> " & chr(34) & chr(34) & " Then" & chr(10)
strHTML = strHTML & " Set objItem1 = GetObject(" & chr(34) & "LDAP://" & chr(34) & _
" & strManagedBy)" & chr(10)
arrMBProperties = Array("physicalDeliveryOfficeName","streetAddress", _
"l","c","telephoneNumber","facsimileTelephoneNumber")
For Each prop in arrMBProperties
strHTML = strHTML & " WScript.Echo " & _
chr(34) & prop & ": " & chr(34) & " & _" & chr(10) & _
" objItem1." & prop & chr(10)
Next
strHTML = strHTML & "End If" & chr(10) & chr(10)
'End all attributes on the Managed By page
'Selected attributes on the Object Properties Page
arrSVStringAttribsObj = Array("whenCreated","whenChanged")
strHTML = strHTML & strReadCodeSV("Object",arrSVStringAttribsObj)
'Added this because canonicalName is an operational attribute
strHTML = strHTML & "objItem.GetInfoEx Array(" & _
chr(34) & "canonicalName" & chr(34) & "), 0" & chr(10)
arrMVStringAttribsObj = Array("canonicalName")
strHTML = strHTML & strReadCodeMV("Object",arrMVStringAttribsObj)
'End all attributes on the Object Properties Page
'Selected attributes on the Group Policy Properties Page
arrSVStringAttribsGP = Array("gPLink","gPOptions")
strHTML = strHTML & strReadCodeSV("Group Policy",arrSVStringAttribsGP)
strHTML = strHTML & "If strgPOptions = 1 Then " & chr(10)
strHTML = strHTML & " WScript.Echo " & chr(34) & _
"Policy inheritance is blocked." & chr(34) & chr(10)
strHTML = strHTML & "ElseIf strgPOptions = 0 Then " & chr(10)
strHTML = strHTML & " WScript.Echo " & chr(34) & _
"Policies are inherited." & chr(34) & chr(10)
strHTML = strHTML & "End If" & chr(10) & chr(10)
'End selected attributes on the Group Policy Properties Page
OUAttribsToRead = strHTML
End Function
Function ComputerAttribsToRead
'All attributes on the General Properties Page
arrSVStringAttribsGP = Array("name","dnsHostName","description")
strHTML = strHTML & strReadCodeSV("General",arrSVStringAttribsGP)
'End General Properties Page
'For reading the bit flags in userAccountControl
arrUACConstants = Array("ADS_UF_TRUSTED_FOR_DELEGATION", _
"ADS_UF_WORKSTATION_TRUST_ACCOUNT","ADS_UF_SERVER_TRUST_ACCOUNT")
arrUACValues = Array("&h80000","&h1000","&h2000")
strHTML = strHTML & IntReadCode("General","userAccountControl", _
arrUACConstants,arrUACValues)
strHTML = strHTML & "If intuserAccountControl AND objHash.Item(" & chr(34) & "ADS_UF_TRUSTED_FOR_DELEGATION" & chr(34) & ") Then" & chr(10)
strHTML = strHTML & " WScript.Echo " & chr(34) & "Trust computer for delegation" & chr(34) & chr(10)
strHTML = strHTML & "Else" & chr(10)
strHTML = strHTML & " WScript.Echo " & chr(34) & "Do not trust the computer for delegation" & chr(34) & chr(10)
strHTML = strHTML & "End If" & chr(10)
strHTML = strHTML & "If intuserAccountControl AND objHash.Item(" & chr(34) & "ADS_UF_SERVER_TRUST_ACCOUNT" & chr(34) & ") Then" & chr(10)
strHTML = strHTML & " WScript.Echo " & chr(34) & "Role: Domain Controller" & chr(34) & chr(10)
strHTML = strHTML & "Else" & chr(10)
strHTML = strHTML & " WScript.Echo " & chr(34) & "Role: Workstation or Server" & chr(34) & chr(10)
strHTML = strHTML & "End If" & chr(10)
'End for reading the bit flags in userAccountControl
'All attributes on the Operating System Properties Page
arrSVStringAttribsGP = Array("operatingSystem","operatingSystemVersion", _
"operatingSystemServicePack")
strHTML = strHTML & strReadCodeSV("Operating System",arrSVStringAttribsGP)
'End Operating System Properties Page
'All attributes on the Member-Of Properties Page
arrSVStringAttribsMO = Array("primaryGroupID")
strHTML = strHTML & strReadCodeSV("Member Of",arrSVStringAttribsMO)
arrMVStringAttribsMO = Array("memberOf")
strHTML = strHTML & strReadCodeMV("Member Of",arrMVStringAttribsMO)
'End all attributes on the Member-Of Properties Page
'All attributes on the Location Properties Page
arrSVStringAttribsMO = Array("location")
strHTML = strHTML & strReadCodeSV("Location",arrSVStringAttribsMO)
'End all attributes on the Location Properties Page
'All attributes on the Managed By page. The code checks to see if the
'first field has a value. If so, it binds to the dn of the object (user)
'and gets the properties of the object specified on the Managed By page.
arrSVStringAttribsMB = Array("managedBy")
strHTML = strHTML & strReadCodeSV("Managed By",arrSVStringAttribsMB)
strHTML = strHTML & "If strmanagedBy <> " & chr(34) & chr(34) & " Then" & chr(10)
strHTML = strHTML & " Set objItem1 = GetObject(" & chr(34) & "LDAP://" & chr(34) & _
" & strManagedBy)" & chr(10)
arrMBProperties = Array("physicalDeliveryOfficeName","streetAddress", _
"l","c","telephoneNumber","facsimileTelephoneNumber")
For Each prop in arrMBProperties
strHTML = strHTML & " WScript.Echo " & _
chr(34) & prop & ": " & chr(34) & " & _" & chr(10) & _
" objItem1." & prop & chr(10)
Next
strHTML = strHTML & "End If" & chr(10) & chr(10)
'End all attributes on the Managed By page
ComputerAttribsToRead = strHTML
'Dial-in page skipped.
'A later version of the tool might include
'a script to read this Properties page.
End Function
'***************************************************************************
'* These functions write script code to the code window for the Write
'* an Object task. Each function varies based on the selected class.
'* The function name describes the class it supports.
'***************************************************************************
Function UserAttribsToWrite
'Attributes on the General Properties Page
arrSVStringAttribsGP = Array("givenName","initials", _
"sn","displayName","description","physicalDeliveryOfficeName", _
"telephoneNumber","mail","wWWHomePage")
strHTML = StrWriteCodeSV("General",arrSVStringAttribsGP,"VALUE")
arrMVStringAttribsGP = Array("otherTelephone", "url")
strHTML = strHTML & strWriteCodeMV("General",arrMVStringAttribsGP,"VALUE")
'End General Properties Page
'Attributes on the Address Properties Page
arrSVStringAttribsAP = Array("streetAddress", "l", "st", _
"postalCode")
strHTML = strHTML & strWriteCodeSV("Address",arrSVStringAttribsAP,"VALUE")
arrSVStringAttribsAP = Array("c")
strHTML = strHTML & _
strWriteCodeSV("Address",arrSVStringAttribsAP,"COUNTRY CODE VALUE")
arrMVStringAttribsAP = Array("postOfficeBox")
strHTML = strHTML & strWriteCodeMV("Address",arrMVStringAttribsAP,"VALUE")
'End Address Properties Page
'Attributes on the Profile Properties Page
arrSVStringAttribsPrP = Array("profilePath", "scriptPath", _
"homeDirectory")
strHTML = strHTML & strWriteCodeSV("Profile",arrSVStringAttribsPrP,"VALUE")
arrSVStringAttribsAP = Array("homeDrive")
strHTML = strHTML & _
strWriteCodeSV("Profile",arrSVStringAttribsAP,"DRIVE LETTER VALUE (no colon)")
'End Profile Properties Page
'Attributes on the Telephones Properties Page
arrSVStringAttribsTele = Array("homePhone","pager", _
"mobile","facsimileTelephoneNumber","ipPhone", "info")
strHTML = strHTML & strWriteCodeSV("Telephone",arrSVStringAttribsTele,"VALUE")
arrMVStringAttribsTele = Array("otherHomePhone","otherPager", _
"otherMobile","otherFacsimileTelephoneNumber","otherIpPhone")
strHTML = strHTML & strWriteCodeMV("Telephone",arrMVStringAttribsTele,"VALUE")
'End Telephones Properties Page
'Attributes on the Organization Properties Page
arrSVStringAttribsOrg = Array("title","department", _
"company")
strHTML = strHTML & strWriteCodeSV("Organization",arrSVStringAttribsOrg,"VALUE")
arrSVStringAttribsOrg = Array("manager")
strHTML = strHTML & _
strWriteCodeSV("Organization",arrSVStringAttribsOrg,"DISTINGUISHED NAME VALUE")
'End attributes on the Organization Properties Page
UserAttribsToWrite = strHTML
'Account, Terminal Services (Remote control, Terminal Services Profile,
'Environment, and Sessions) COM+, Dial-in and Security
'Properties pages skipped. A later version of the tool might include
'a script to write some or all these Properties pages.
'The Member Of properties page contains the memberOf backlink attribute.
'Modify the member property of a group to modify the contents
'of the memberOf attribute
End Function
Function ContactAttribsToWrite
'Attributes on the General Properties Page
arrSVStringAttribsGP = Array("givenName","initials", _
"sn","displayName","description","physicalDeliveryOfficeName", _
"telephoneNumber","mail","wWWHomePage")
strHTML = StrWriteCodeSV("General",arrSVStringAttribsGP,"VALUE")
arrMVStringAttribsGP = Array("otherTelephone", "url")
strHTML = strHTML & strWriteCodeMV("General",arrMVStringAttribsGP,"VALUE")
'End General Properties Page
'Attributes on the Address Properties Page
arrSVStringAttribsAP = Array("streetAddress", "l", "st", _
"postalCode")
strHTML = strHTML & strWriteCodeSV("Address",arrSVStringAttribsAP,"VALUE")
arrSVStringAttribsAP = Array("c")
strHTML = strHTML & _
strWriteCodeSV("Address",arrSVStringAttribsAP,"COUNTRY CODE VALUE")
arrMVStringAttribsAP = Array("postOfficeBox")
strHTML = strHTML & strWriteCodeMV("Address",arrMVStringAttribsAP,"VALUE")
'End Address Properties Page
'Attributes on the Telephones Properties Page
arrSVStringAttribsTele = Array("homePhone","pager", _
"mobile","facsimileTelephoneNumber","ipPhone", "info")
strHTML = strHTML & strWriteCodeSV("Telephone",arrSVStringAttribsTele,"VALUE")
arrMVStringAttribsTele = Array("otherHomePhone","otherPager", _
"otherMobile","otherFacsimileTelephoneNumber","otherIpPhone")
strHTML = strHTML & strWriteCodeMV("Telephone",arrMVStringAttribsTele,"VALUE")
'End Telephones Properties Page
'Attributes on the Organization Properties Page
arrSVStringAttribsOrg = Array("title","department", _
"company")
strHTML = strHTML & strWriteCodeSV("Organization",arrSVStringAttribsOrg,"VALUE")
arrSVStringAttribsOrg = Array("manager")
strHTML = strHTML & _
strWriteCodeSV("Organization",arrSVStringAttribsOrg,"DISTINGUISHED NAME VALUE")
'End attributes on the Organization Properties Page
ContactAttribsToWrite = strHTML
'The Member Of properties page contains the memberOf backlink attribute.
'Modify the member property of a group to modify the contents
'of the memberOf attribute
End Function
Function GroupAttribsToWrite
'Selected attributes on the General Properties Page
arrSVStringAttribsGP = Array("samAccountName","description", _
"mail")
strHTML = strHTML & strWriteCodeSV("General",arrSVStringAttribsGP,"VALUE")
'End attributes on the General Properties Page
'Attributes on the Member Properties Page
arrMVStringAttribsMO = Array("member")
strHTML = strHTML & strWriteCodeMV("Member",arrMVStringAttribsMO,"DISTINGUISHED NAME VALUE")
'End all attributes on the Member-Of Properties Page
'Attributes on the Managed By Properties Page
arrSVStringAttribsMB = Array("managedBy")
strHTML = strHTML & strWriteCodeSV("Managed By",arrSVStringAttribsMB,"DISTINGUISHED NAME VALUE")
'End attributes on the Managed By Properties Page
GroupAttribsToWrite = strHTML
'The Member Of properties page contains the memberOf backlink attribute.
'Modify the member property of a group to modify the contents
'of the memberOf attribute
End Function
Function OUAttribsToWrite
'Selected attributes on the General Properties Page
arrSVStringAttribsGP = Array("description", _
"street", "postOfficeBox","l","st","postalCode")
strHTML = strHTML & strWriteCodeSV("General",arrSVStringAttribsGP,"VALUE")
'End General Properties Page
arrSVStringAttribsAP = Array("c")
strHTML = strHTML & _
strWriteCodeSV("Address",arrSVStringAttribsAP,"COUNTRY CODE VALUE")
'Attributes on the Managed By Properties Page
arrSVStringAttribsMB = Array("managedBy")
strHTML = strHTML & strWriteCodeSV("Managed By",arrSVStringAttribsMB,"DISTINGUISHED NAME VALUE")
'End attributes on the Managed By Properties Page
OUAttribsToWrite = strHTML
'COM+, and Group Policy Properties pages skipped.
'A later version of the tool might include
'a script to write some or all these Properties pages.
End Function
Function ComputerAttribsToWrite
'Selected attributes on the General Properties Page
arrSVStringAttribsGP = Array("description")
strHTML = strHTML & strWriteCodeSV("General",arrSVStringAttribsGP,"VALUE")
'End General Properties Page
'All attributes on the Location Properties Page
arrSVStringAttribsMO = Array("location")
strHTML = strHTML & strWriteCodeSV("Location",arrSVStringAttribsMO,"VALUE")
'End all attributes on the Location Properties Page
'Attributes on the Managed By Properties Page
arrSVStringAttribsMB = Array("managedBy")
strHTML = strHTML & strWriteCodeSV("Managed By",arrSVStringAttribsMB,"DISTINGUISHED NAME VALUE")
'End attributes on the Managed By Properties Page
ComputerAttribsToWrite = strHTML
'The Operating System properties page contains attributes that are written when
'a computer becomes a member of the domain.
'The Member Of properties page contains the memberOf backlink attribute.
'Modify the member property of a group to modify the contents
'of the memberOf attribute.
'Dial-in page skipped. A later version of the tool might include
'a script to read this Properties page.
End Function
'***************************************************************************
'* These functions manipulate the script code that appears in the code
'* window. Function details appear above each function.
'***************************************************************************
'Reformat the class name so that the first character of the class
'name is uppercase. This does not have
'an impact on the script's ability to run properly.
Function ReformatObjName
strChar1 = UCase(Left(ClassesPulldown.Value,1))
strRemaining = LCase(Mid(ClassesPulldown.Value,2))
ReformatObjName = "obj" & strChar1 & strRemaining
End Function
'Determine whether the naming attribute for a
'method should be ou or cn
Function NamingAttribute
If ClassesPulldown.Value = "organizationalUnit" Then
NamingAttribute = "ou"
Else
NamingAttribute = "cn"
End If
End Function
'Size the code window and write some header script code based on the
'selected task.
Function PreAmble(intCols,intRows)
strHTML = "<textarea id=codeText cols=" & intCols & " rows=" & intRows & ">"
If TaskSelectPulldown.Value = "Create an Object" AND ClassesPullDown.Value = "group" Then
arrGroupEnum = Array("ADS_GROUP_TYPE_GLOBAL_GROUP = &h2", _
"ADS_GROUP_TYPE_LOCAL_GROUP = &h4","ADS_GROUP_TYPE_UNIVERSAL_GROUP = &h8", _
"ADS_GROUP_TYPE_SECURITY_ENABLED = &h80000000")
For Each Constant In arrGroupEnum
strHTML = strHTML & chr(10) & Constant
Next
strHTML = strHTML & chr(10) & chr(10)
End If
strHTML = strHTML & "strContainer = " & chr(34) & "" & chr(34) & chr(10)
strHTML = strHTML & "strName = " & chr(34) & "EzAd" & _
UCase(Left(ClassesPullDown.Value,1)) & _
Mid(ClassesPullDown.Value,2) & chr(34) & chr(10)
If TaskSelectPulldown.Value = "Write an Object" AND ClassesPullDown.Value <> "computer" Then
strHTML = strHTML & chr(10) & "Const ADS_PROPERTY_CLEAR = 1" & chr(10)
strHTML = strHTML & "Const ADS_PROPERTY_UPDATE = 2" & chr(10)
strHTML = strHTML & "Const ADS_PROPERTY_APPEND = 3" & chr(10)
strHTML = strHTML & "Const ADS_PROPERTY_DELETE = 4"
ElseIf TaskSelectPulldown.Value = "Write an Object" AND ClassesPullDown.Value = "computer" Then
strHTML = strHTML & "'This page contains only single-valued attributes" & chr(10)
strHTML = strHTML & "'so only the ADS_PROPERTY_CLEAR constant is defined here." & chr(10)
strHTML = strHTML & chr(10) & "Const ADS_PROPERTY_CLEAR = 1"
End If
PreAmble = strHTML & chr(10)
End Function
'Generate the binding string text for the script
Function BindString
If TaskSelectPulldown.Value = "Create an Object" OR _
TaskSelectPulldown.Value = "Delete an Object" Then
strObj = "objContainer"
strHTML = strHTML & "'***********************************************" & chr(10)
strHTML = strHTML & "'* Connect to a container *" & chr(10)
strHTML = strHTML & "'***********************************************" & chr(10)
strHTML = strHTML & "Set objRootDSE = GetObject(" & _
chr(34) & "LDAP://rootDSE" & chr(34) & ")" & chr(10)
strHTML = strHTML & "If strContainer = " & chr(34) & chr(34) & " Then" & chr(10)
strHTML = strHTML & " Set " & strObj & " = GetObject(" & chr(34) & "LDAP://" & chr(34) & _
" & _" & chr(10) & _
" objRootDSE.Get(" & chr(34) & "defaultNamingContext" & chr(34) & "))" & chr(10)
strHTML = strHTML & "Else" & chr(10)
strHTML = strHTML & " Set " & strObj & " = GetObject(" & chr(34) & "LDAP://" & chr(34) & _
" & strContainer & " & chr(34) & "," & chr(34) & " & _" & chr(10) & _
" objRootDSE.Get(" & chr(34) & "defaultNamingContext" & chr(34) & "))" & chr(10)
strHTML = strHTML & "End If" & chr(10)
'The remarked section adds error testing to determine if the attempted
'connection to a domain failed.
'strHTML = strHTML & "If err.number = 424 Then" & chr(10)
'strHTML = strHTML & " WScript.Echo " & chr(34) & "You must run the script from an Active Directory" & _
' " enabled client." & chr(34) & chr(10)
'strHTML = strHTML & " WScript.Quit" & chr(10)
'strHTML = strHTML & "End If" & chr(10)
'strHTML = strHTML & "On Error GoTo 0" & chr(10)
strHTML = strHTML & "'***********************************************" & chr(10)
strHTML = strHTML & "'* End connect to a container *" & chr(10)
strHTML = strHTML & "'***********************************************" & chr(10) & chr(10)
Else
strObj = "objItem"
strNamingAttribute = NamingAttribute()
strHTML = strHTML & "'***********************************************" & chr(10)
strHTML = strHTML & "'* Connect to an object *" & chr(10)
strHTML = strHTML & "'***********************************************" & chr(10)
strHTML = strHTML & "Set objRootDSE = GetObject(" & _
chr(34) & "LDAP://rootDSE" & chr(34) & ")" & chr(10)
strHTML = strHTML & "If strContainer = " & chr(34) & chr(34) & " Then" & chr(10)
If ClassesPulldown.Value = "organizationalUnit" Then
strHTML = strHTML & " arrNameExceptions = Array(" & chr(34) & "Users" & chr(34) & _
"," & chr(34) & "Computers" & chr(34) & _
"," & chr(34) & "Builtin" & chr(34) & _
"," & chr(34) & "System" & chr(34) & _
", _" & chr(10) & _
" " & chr(34) & "ForeignSecurityPrincipals" & chr(34) & _
"," & chr(34) & "LostAndFound" & chr(34) & ")" & chr(10)
strHTML = strHTML & " For Each name in arrNameExceptions" & chr(10)
strHTML = strHTML & " If lcase(strName) = lcase(name) Then" & chr(10)
strHTML = strHTML & " strNameAttrib = " & chr(34) & "cn=" & chr(34) & chr(10)
strHTML = strHTML & " Exit For" & chr(10)
strHTML = strHTML & " Else" & chr(10)
strHTML = strHTML & " strNameAttrib = " & chr(34) & "ou=" & chr(34) & chr(10)
strHTML = strHTML & " End If" & chr(10)
strHTML = strHTML & " Next" & chr(10)
strHTML = strHTML & " Set " & strObj & " = GetObject(" & chr(34) & "LDAP://" & chr(34) & _
" & strNameAttrib & strName & " & chr(34) & "," & chr(34) & " & _" & chr(10) & _
" objRootDSE.Get(" & chr(34) & "defaultNamingContext" & chr(34) & "))" & chr(10)
strHTML = strHTML & "Else" & chr(10)
strHTML = strHTML & " Set " & strObj & " = GetObject(" & chr(34) & "LDAP://" & _
strNamingAttribute & "=" & chr(34) & " & strName & " & _
chr(34) & "," & chr(34) & " & strContainer & " & chr(34) & "," & chr(34) & " & _" & chr(10) & _
" objRootDSE.Get(" & chr(34) & "defaultNamingContext" & chr(34) & "))" & chr(10)
Else
strHTML = strHTML & " Set " & strObj & " = GetObject(" & chr(34) & "LDAP://" & chr(34) & _
" & _" & chr(10) & _
" objRootDSE.Get(" & chr(34) & "defaultNamingContext" & chr(34) & "))" & chr(10)
strHTML = strHTML & "Else" & chr(10)
strHTML = strHTML & " Set " & strObj & " = GetObject(" & chr(34) & "LDAP://" & _
strNamingAttribute & "=" & chr(34) & " & strName & " & _
chr(34) & "," & chr(34) & " & strContainer & " & chr(34) & "," & chr(34) & " & _" & chr(10) & _
" objRootDSE.Get(" & chr(34) & "defaultNamingContext" & chr(34) & "))" & chr(10)
End If
strHTML = strHTML & "End If" & chr(10)
'The remarked section adds error testing to determine if the attempted
'connection to a domain failed.
'strHTML = strHTML & "If err.number = 424 Then" & chr(10)
'strHTML = strHTML & " WScript.Echo " & chr(34) & "You must run the script from an Active Directory" & _
' " enabled client." & chr(34) & chr(10)
'strHTML = strHTML & " WScript.Quit" & chr(10)
'strHTML = strHTML & "End If" & chr(10)
strHTML = strHTML & "'***********************************************" & chr(10)
strHTML = strHTML & "'* End connect to an object *" & chr(10)
strHTML = strHTML & "'***********************************************" & chr(10) & chr(10)
End If
BindString = strHTML
End Function
'***************************************************************************
'* These two routines generate the text that appears in the two modal dialog
'* boxes. These dialog boxes appear when theh Running This Script or
'* Script Notes buttons are pressed.
'***************************************************************************
Sub RunDialog()
'Create a file system object to populate the modal dialog box.
Set objFileSystem = CreateObject("Scripting.FileSystemObject")
'Create an HTML file named tempEZscripto.htm
Set objFile = objFileSystem.CreateTextFile("EZscriptoRunNotes.htm",True)
objFile.WriteLine("<html>")
objFile.WriteLine("<title>Before Running The " & _
TaskSelectPulldown.Value & " - " & _
UCase(Left(ClassesPulldown.Value,1)) & _
Mid(ClassesPullDown.Value,2) & " Script</title>")
objFile.WriteLine("<head>")
objFile.WriteLine("<style>")
objFile.WriteLine("BODY{background-color: beige;font-family: arial;font-size:10pt;margin-left:10px;}")
objFile.WriteLine("div.head{font-size:12pt;font-weight:bold;}")
objFile.WriteLine("div.code{font-size:10pt;font-family:courier;margin-left:10px}")
objFile.WriteLine("UL{margin-top:5px;margin-bottom:5px;}")
objFile.WriteLine("</style>")
objFile.WriteLine("</head>")
objFile.WriteLine("<body>")
Select Case TaskSelectPulldown.Value
Case "Create an Object"
arrAltText = Array("create",lcase(TaskSelectPulldown.Value)," to create")
Case "Write an Object"
arrAltText = Array("write",lcase(TaskSelectPulldown.Value)," whose attributes you will assign")
strAddlNotes = "<div class = head>Attribute Values</div>" & _
"<UL><li><i>VALUE</i> or <i>VALUEn</i> - string values" & _
"<li><i>COUNTRY CODE VALUE</i> - This value is a two-digit country code. For a " & _
"list of country codes, see <A href=http://www.iso.org>The ISO Web site</A>" & _
"<li><i>DRIVE LETTER VALUE</i> - This value is a drive letter, " & _
"typically a value between F and Z. Do not specify a colon following the letter." & _
"<li><i>DISTINGUISHED NAME VALUE</i> - This value is the DN of an object.<br>" & _
"<b>Examples</b><br>" & _
"The MyerKen user account in the Management OU of the NA.fabrikam.com domain:" & _
"<div class=code>cn=myerken,ou=management,dc=na,dc=fabrikam,dc=com</div>" & _
"The Atl-Users group in the Users container of the contoso.com domain:" & _
"<div class=code>cn=atl-users,cn=users,dc=contoso,dc=com</div>" & _
"</UL>"
Case "Read an Object"
arrAltText = Array("read",lcase(TaskSelectPulldown.Value)," whose attributes you will read")
Case "Delete an Object"
arrAltText = Array("delete",lcase(TaskSelectPulldown.Value)," to delete")
End Select
strNotes = _
"<div class=head>Script Operation</div>"
Select Case TaskSelectPulldown.value
Case "Create an Object"
strAction = "creates a"
Case "Delete an Object"
strAction = "deletes a "
Case "Write an Object"
strAction = "writes the attributes of the"
Case "Read an Object"
strAction = "reads the attributes of the"
End Select
strNotes = strNotes & _
"This script, " & strAction & " " & ClassesPulldown.value & _
" whose name is specified by the strName variable and whose location" & _
" is specified by the strContainer variable.<br>" & _
" NOTE: A default strName variable of EzAd" & _
UCase(Left(ClassesPullDown.Value,1)) & _
Mid(ClassesPullDown.Value,2) & _
" appears in the script.<br><br>" & _
"<div class=head>The strContainer Variable</div>" & _
"Add a value (between quotes) for strContainer " & _
"on the first script line with the RDN of the " & _
"container where the " & _
ClassesPulldown.Value & arrAltText(2) & " is located.<br>" & _
"<b>Examples</b><br>" & _
"To " & arrAltText(1) & " in the Users container:" & _
"<div class=code>strContainer = " & chr(34) & "cn=Users" & chr(34) & "</div>" & _
"To " & arrAltText(1) & " in the Finance OU:" & _
"<div class=code>strContainer = " & chr(34) & "ou=Finance" & chr(34) & "</div>" & _
"To " & arrAltText(1) & " in the HR OU below the Depts OU<br>" & _
"<div class=code>strContainer = " & chr(34) & "ou=HR,ou=Depts" & chr(34) & "</div><br>" & _
"<b>Important:</b>" & _
"<UL><li>If you plan to " & arrAltText(1) & " in a child container of another container, specify " & _
"the child OU before the parent OU, as the previous example demonstrates.<br>" & _
"<li>Do not specify a value for strContainer if you want to " & arrAltText(1) & _
" directly below the domain container.</UL><br>" & _
"<div class=head>The strName Variable</div>" & _
"Add a value (between quotes) for strName on the second script line with " & _
"the name of the object you want to " & arrAltText(0) & ".<br>" & _
"<b>Examples:</b><br>" & _
"To " & arrAltText(1) & " named HR:" & _
"<div class=code>strName = " & chr(34) & "HR" & chr(34) & "</div>" & _
"To " & arrAltText(1) & " named MyerKen:" & _
"<div class=code>strName = " & chr(34) & "myerken" & chr(34) & "</div><br>" & _
"Note, do not specify the naming attribute, i.e., CN or OU.<br><br>"
If ClassesPullDown.Value = "group" Then
strNotes = strNotes & "<div class=head>The groupType attribute</div>" & _
"If the groupType attribute is not specified when you create a group, Active Directory " & _
"creates a security group with global scope. This is typically referred to as simply a global " & _
"global group. However, by changing the constants appearing with the groupType attribute in " & _
"the script, you can create any allowed group types. The following list shows how the script code for the " & _
"groupType attribute should appear in the script for each type of Active Directory group:<br><br>" & _
"To create a distribution group with global scope:" & _
"<div class=code>objGroup.Put " & chr(34) & "groupType" & chr(34) & ", ADS_GROUP_TYPE_GLOBAL_GROUP</div>" & _
"To create a distribution group with local scope:" & _
"<div class=code>objGroup.Put " & chr(34) & "groupType" & chr(34) & ", ADS_GROUP_TYPE_LOCAL_GROUP</div>" & _
"To create a distribution group with universal scope:" & _
"<div class=code>objGroup.Put " & chr(34) & "groupType" & chr(34) & ", ADS_GROUP_TYPE_UNIVERSAL_GROUP</div>" & _
"To create a security group with global scope:" & _
"<div class=code>objGroup.Put " & chr(34) & "groupType" & chr(34) & ", ADS_GROUP_TYPE_GLOBAL_GROUP Or _<br>" & _
" ADS_GROUP_TYPE_SECURITY_ENABLED</div>" & _
"To create a security group with local scope:" & _
"<div class=code>objGroup.Put " & chr(34) & "groupType" & chr(34) & ", ADS_GROUP_TYPE_LOCAL_GROUP Or _<br>" & _
" ADS_GROUP_TYPE_SECURITY_ENABLED</div>" & _
"To create a security group with universal scope:" & _
"<div class=code>objGroup.Put " & chr(34) & "groupType" & chr(34) & ", ADS_GROUP_TYPE_UNIVERSAL_GROUP Or _<br>" & _
" ADS_GROUP_TYPE_SECURITY_ENABLED</div><br><br>"
End If
strNotes = strNotes & "<div class=head>Running This Script</div>" & _
"To run this script, make sure that your workstation is connected to an " & _
"Active Directory domain and ADSI is installed. ADSI is installed by default " & _
"on computers running Windows 2000, Windows XP, and all members of the Windows .NET Server family " & _
"of operating systems.<br><br>"
'Write the contents of strNotes to the file object
objFile.WriteLine(strNotes)
'This variable specifies the height of the modal dialog box to hold the
'contents of strNotes without requiring the operator to scroll the dialog
'box.
If TaskSelectPulldown.Value = "Write an Object" Then
objFile.WriteLine(strAddlNotes)
intHeight = 700
Else
intHeight = 600
End If
objFile.WriteLine("</body>")
objFile.WriteLine("</html>")
objFile.Close
'Use a modal dialog box so that the operator must close the window before
'returning to the main window.
window.showModalDialog "EZscriptoRunNotes.htm",, _
"dialogHeight:" & intHeight & "px; dialogWidth:550px; edge:raised; help:No; resizable:no;"
Set objFile = objFileSystem.GetFile("EZscriptoRunNotes.htm")
objFile.Delete
End Sub
Sub ImptDialog()
'Create a file system object to populate the modal dialog box.
Set objFileSystem = CreateObject("Scripting.FileSystemObject")
'Create an HTML file named tempEZscripto.htm
Set objFile = objFileSystem.CreateTextFile("EZscriptoNotes.htm",True)
objFile.WriteLine("<html>")
objFile.WriteLine("<title>Important Notes About This Script</title>")
objFile.WriteLine("<head>")
objFile.WriteLine("<style>")
objFile.WriteLine("BODY{background-color: beige;font-family: arial;font-size:10pt;margin-left:10px;}")
objFile.WriteLine("div.head{font-size:12pt;font-weight:bold;}")
objFile.WriteLine("div.code{font-size:10pt;font-family:courier;margin-left:10px}")
objFile.WriteLine("UL{margin-top:5px;margin-bottom:5px;}")
objFile.WriteLine("</style>")
objFile.WriteLine("</head>")
objFile.WriteLine("<body>")
Select Case TaskSelectPulldown.Value
Case "Write an Object"
strNotes = "<div class=head>Modifying The Script</div>" & _
"<ul><li>Replace <i>VALUE</i> with the value you want to write" & _
" to each attribute." & _
"<li>Remove the entire line that starts with: <b>objItem.Put ...</b>, for any attribute " & _
" you don't want to write.</ul>" & _
"<b>Note:</b> A subset of all " & ClassesPulldown.Value & " attributes appear in the" & _
" scripts.<br><br>" & _
"<div class=head>The PutEx Constants (ADS Property Enumeration)</div>" & _
"The PutEx method with the ADS_PROPERTY_UPDATE constant specified in the script, replaces" & _
" the entries stored in an attribute." & _
" You can change this behavior by specifying ADS_PROPERTY_APPEND to add entries, or " & _
" ADS_PROPERTY_DELETE to delete entries.<br> " & _
" You can also use the ADS_PROPERTY_CLEAR constant to delete all entries from a" & _
" single or multivalued attribute. To use" & _
" ADS_PROPERTY_CLEAR you must replace <i>VALUEx</i> with 0.<br>" & _
" The following example clears the description single-valued attribute:<br>" & _
"<div class=code>objItem.PutEx ADS_PROPERTY_CLEAR " & chr(34) & "description" & chr(34) & ", 0</div>" & _
" The following example clears the otherTelephone multivalued attribute:<br>" & _
"<div class=code>objItem.PutEx ADS_PROPERTY_CLEAR " & chr(34) & "otherTelephone" & chr(34) & ", 0</div><br>" & _
"See the <i>Microsoft System Administration Scripting Resource Kit</i> for more information."
'Write the contents of strNotes to the file object
objFile.WriteLine(strNotes)
'This variable specifies the height of the modal dialog box to hold the
'contents of strNotes without requiring the operator to scroll the dialog
'box.
intHeight = 380
Case "Delete an Object"
If ClassesPulldown.Value = "organizationalUnit" Then
strNotes = "A container must be empty before you can delete " & _
"it using the Delete method. See the <i>ADSI SDK</i> for information " & _
"on the <b>IADsDeleteOps</b> interface for deleting a non-empty container."
objFile.WriteLine(strNotes)
intHeight = 100
End If
Case "Read an Object"
If ClassesPulldown.Value = "user" Then
strNotes = "The Terminal Services Extension interface " & _
"used to read the settings on the <b>Environment, Sessions, " & _
"Remote Control</b>, and <b>Terminal Services Profile</b> pages is " & _
"available from a Windows XP client or any member of the " & _
"Windows .NET Server family of operating systems.<br><br>" & _
"See the <i>Microsoft System Administration Scripting Resource Kit</i> for more information."
objFile.WriteLine(strNotes)
intHeight = 140
ElseIf ClassesPulldown.Value = "organizationalUnit" Then
strNotes = "These OUs contain only the description attribute on the" & _
" General Properties page and no Group Policy tab: <b>Users, Computers, Builtin, System, ForeignSecurityPrincipals,</b> " & _
"and <b>LostAndFound</b>"
objFile.WriteLine(strNotes)
intHeight = 100
End If
End Select
objFile.WriteLine("</body>")
objFile.WriteLine("</html>")
objFile.Close
window.showModalDialog "EZscriptoNotes.htm",, _
"dialogHeight:" & intHeight & "px; dialogWidth:550px; edge:raised; help:No; resizable:no;"
Set objFile = objFileSystem.GetFile("EZscriptoNotes.htm")
objFile.Delete
End Sub
'***************************************************************************
'* These routines generate the script that appears in the code window.
'* In each case, the code checks to see if the operator has selected
'* a class to complete a task. If so, the code enables buttons
'* and calls functions that generate script code.
'***************************************************************************
Sub CreateCreateScript
If ClassesPulldown.Value = "PulldownMessage" Then
notesbutton.value = ""
save_button.disabled = True
run_button.disabled = True
Exit Sub
End If
strNamingAttribute = NamingAttribute()
strHTML = PreAmble(87,23)
strHTML = strHTML & BindString()
strObjName = ReformatObjName()
strHTML = strHTML & "Set " & strObjName & " = " & _
"objContainer.Create(" & chr(34) & ClassesPulldown.Value & chr(34) & _
", " & chr(34) & strNamingAttribute & "=" & chr(34) & " & strName)" & chr(10)
If ClassesPulldown.Value = "user" Or ClassesPulldown.Value = "group" Then
strHTML = strHTML & strObjName & ".Put " & chr(34) & _
"sAMAccountName" & chr(34) & ", " & "strName" & chr(10)
End If
If ClassesPullDown.Value = "group" Then
strHTML = strHTML & strObjName & ".Put " & chr(34) & _
"groupType" & chr(34) & ", " & "ADS_GROUP_TYPE_GLOBAL_GROUP Or _" & chr(10) & _
" ADS_GROUP_TYPE_SECURITY_ENABLED" & chr(10)
End If
strHTML = strHTML & strObjName & ".SetInfo"
code.InnerHTML = strHTML
codeText.Wrap = "off"
'Enable the Running This Script, Run, and Save buttons.
Call FinalUIState
End Sub
Sub CreateDeleteScript
If ClassesPulldown.Value = "PulldownMessage" Then
notesbutton.value = ""
save_button.disabled = True
run_button.disabled = True
Exit Sub
End If
strObjName = ReformatObjName()
strHTML = PreAmble(87,21)
strHTML = strHTML & BindString()
If ClassesPulldown.Value = "organizationalUnit" Then
notesbutton.value = "Important information about" & _
" deleting non-empty containers"
End If
strNamingAttribute = NamingAttribute()
strHTML = strHTML & "objContainer.Delete " & chr(34) & _
ClassesPulldown.Value & chr(34) & _
", " & chr(34) & strNamingAttribute & "=" & chr(34) & " & strName" & chr(10)
code.InnerHTML = strHTML
codeText.Wrap = "off"
Call FinalUIState
End Sub
Sub CreateReadScript
If ClassesPulldown.Value = "PulldownMessage" Then
notesbutton.value=""
save_button.disabled = True
run_button.disabled = True
Exit Sub
End If
If ClassesPulldown.Value = "organizationalUnit" Then
notesbutton.value = "Important information about" & _
" containers with a limited set of OU attributes"
End If
strObjName = ReformatObjName()
strHTML = strHTML & PreAmble(87,25)
strHTML = strHTML & "On Error Resume Next" & Chr(10) & Chr(10)
strHTML = strHTML & BindString()
Select Case ClassesPulldown.Value
Case "user"
strHTML = strHTML & UserAttribsToRead()
code.InnerHTML = strHTML
notesbutton.value = "Important information about" & _
" reading Terminal Services settings"
Case "group"
strHTML = strHTML & GroupAttribsToRead()
code.InnerHTML = strHTML
Case "contact"
strHTML = strHTML & ContactAttribsToRead()
code.InnerHTML = strHTML
Case "organizationalUnit"
strHTML = strHTML & OUAttribsToRead()
code.InnerHTML = strHTML
Case "computer"
strHTML = strHTML & ComputerAttribsToRead()
code.InnerHTML = strHTML
Case Else
code.InnerHTML = ""
End Select
codeText.Wrap = "off"
Call FinalUIState
End Sub
Sub CreateWriteScript
If ClassesPulldown.Value = "PulldownMessage" Then
notesbutton.value=""
save_button.disabled = True
run_button.disabled = True
Exit Sub
End If
notesbutton.value = "Important information about " & _
"modifying write scripts"
strObjName = ReformatObjName()
strHTML = strHTML & PreAmble(87,25)
strHTML = strHTML & Chr(10)
strHTML = strHTML & BindString()
Select Case ClassesPulldown.Value
Case "user"
strHTML = strHTML & UserAttribsToWrite()
code.InnerHTML = strHTML
Case "group"
strHTML = strHTML & GroupAttribsToWrite()
code.InnerHTML = strHTML
Case "contact"
strHTML = strHTML & ContactAttribsToWrite()
code.InnerHTML = strHTML
Case "organizationalUnit"
strHTML = strHTML & OUAttribsToWrite()
code.InnerHTML = strHTML
Case "computer"
strHTML = strHTML & ComputerAttribsToWrite()
code.InnerHTML = strHTML
Case Else
code.InnerHTML = ""
End Select
code.InnerHTML = strHTML & "objItem.SetInfo"
codeText.Wrap = "off"
Call FinalUIState
End Sub
'****************************************************************************
'* When the operator presses the Run button, we use the WshShell object's Run
'* method to run the code currently in the textarea under cscript.exe. we use
'* cmd.exe's /k parameter to ensure the command window remains visible after
'* the script has finished running.
'****************************************************************************
Sub RunScript
Set objFS = CreateObject("Scripting.FileSystemObject")
strTmpName = "temp_script.vbs"
Set objScript = objFS.CreateTextFile(strTmpName)
objScript.Write code.InnerText
objScript.Close
Set objShell = CreateObject("WScript.Shell")
strCmdLine = "cmd /k cscript.exe "
strCmdLine = strCmdLine & strTmpName
objShell.Run(strCmdLine)
End Sub
'****************************************************************************
'* When the operator presses the Save button, we present them with an InputBox
'* and force them to give us the full path to where they'd like to the save
'* the script that is currently in the textarea. The user is probably quite
'* upset with our laziness here....and who can blame them?
'****************************************************************************
Sub SaveScript
Set objFSO = CreateObject("Scripting.FileSystemObject")
strSaveFileName = InputBox("Please enter the complete path where you want to save your script (for example, C:\Scripts\MyScript.vbs).")
If strSaveFileName = "" Then
Exit Sub
End If
Set objFile = objFSO.CreateTextFile(strSaveFileName)
objFile.WriteLine code.InnerText
objFile.Close
End Sub
'****************************************************************************
'* When the operator presses the Open button, we present them with an InputBox
'* and force them to give us the full path to the script they'd like to open.
'* This is, of course, rather wonky - but it's meant to be.
'****************************************************************************
Sub OpenScript
Set objFSO = CreateObject("Scripting.FileSystemObject")
strOpenFileName = InputBox("Please enter the complete path name for your script (for example, C:\Scripts\MyScript.vbs).")
If strOpenFileName = "" Then
Exit Sub
End If
Set objFile = objFSO.OpenTextFile(strOpenFileName)
strHTML = "<textarea cols=100 rows=30>"
strHTML = strHTML & objFile.ReadAll()
strHTML = strHTML & "</textarea>"
code.InnerHTML = strHTML
objFile.Close
run_button.disabled = False
save_button.disabled = False
End Sub
'****************************************************************************
'* When the operator presses the Quit button, the file where we've been storing
'* the scripts gets deleted and the main window closes.
'****************************************************************************
Sub QuitScript
On Error Resume Next
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.DeleteFile "temp_script.vbs"
Set objFSO = Nothing
self.Close()
End Sub
</script>
</head>
'***********************************************************
'* our HTML layout - the only thing of note here is that when
'* each of the buttons is pressed (clicked), their onClick
'* attribute causes the appropriate subroutine to be called
'***********************************************************
<body>
<div id=TaskSelectDiv style="position:absolute;left:10px;top:10px;">
<span id="ADSI_tasks"> </span>
</div>
<div id="ClassSectionDiv" style="position:absolute;left:150px;top:10px;">
<span id="ADSI_classes"> </span><br>
</div>
<div id="ButtonDiv" style="position:absolute;left:290px;top:10px;">
<input id=runbutton class="button" type="button" value="Run" name="run_button" onClick="RunScript()">
<input id=savebutton class="button" type="button" value="Save" name="save_button" onClick="SaveScript()">
<input id=openbutton class="button" type="button" value="Open" name="open_button" onClick="OpenScript()">
<input id=quitbutton class="button" type="button" value="Quit" name="quit_button" onClick="QuitScript()">
</div>
<div ID="NotesButtonDiv" style="position:absolute;left:10px;top:35px;">
<input id=notesbuttonrun class="buttonLong" type=button value="Read This Before Running This Script" name="runNotes_button" onClick="RunDialog()" onMouseover="ChangePointer()">
<input id=notesbutton class="buttonLong" type="button" name="notes_button" onClick="ImptDialog()" onMouseover="ChangePointer()">
</div>
<div id="code" class="code"></div>
</body>
</html>
