Quote:

---

INTRODUCTION
------------
You can use the GAL Modify tool to modify personal information that is displayed in the global address list. The GAL Modify tool is located in the Tools\Client\Galmod32 folder on the Exchange 2000 Resource Kit CD-ROM or in the Exchange\operating system\platform\Client\GalMod folder on the Microsoft Back Office Resource Kit, Second Edition CD-ROM.

MORE INFORMATION
----------------
To let users update attributes on their own accounts against the server that is running Microsoft Exchange 5.5 Server (and up...), follow these steps.

---

Break On
$System = CreateObject("Kixtart.System")

;KD START

;************* Form **************
$Form = $System.Form()
$Form.BackColor = 212,208,200
$Form.Height = 571
$Form.Left = 22
$Form.Text = "User Account Information Update"
$Form.Top = 22
$Form.Width = 640
;**************************************

;************* AcctGroupBox **************
$AcctGroupBox = $Form.Controls.GroupBox("User Account", 15, 15, 600, 110)
$AcctGroupBox.BackColor = 212,208,200
;**************************************

;************* Label1 **************
$Label1 = $AcctGroupBox.Controls.Label("First:", 25, 17, 70, 17)
$Label1.BackColor = 212,208,200
$Label1.FontBold = "True"
;**************************************

;************* Label2 **************
$Label2 = $AcctGroupBox.Controls.Label("Initial:", 25, 47, 70, 17)
$Label2.BackColor = 212,208,200
$Label2.FontBold = "True"
;**************************************

;************* Label3 **************
$Label3 = $AcctGroupBox.Controls.Label("Last:", 25, 77, 70, 17)
$Label3.BackColor = 212,208,200
$Label3.FontBold = "True"
;**************************************

;************* TextBox1 **************
$TextBox1 = $AcctGroupBox.Controls.TextBox("TextBox1", 100, 18, 170, 13)
$TextBox1.BackColor = 212,208,200
$TextBox1.BorderStyle = 0
$TextBox1.ReadOnly = "True"
$TextBox1.TabStop = "False"
;**************************************

;************* TextBox2 **************
$TextBox2 = $AcctGroupBox.Controls.TextBox("TextBox2", 100, 48, 170, 13)
$TextBox2.BackColor = 212,208,200
$TextBox2.BorderStyle = 0
$TextBox2.ReadOnly = "True"
$TextBox2.TabStop = "False"
;**************************************

;************* TextBox3 **************
$TextBox3 = $AcctGroupBox.Controls.TextBox("TextBox3", 100, 78, 170, 13)
$TextBox3.BackColor = 212,208,200
$TextBox3.BorderStyle = 0
$TextBox3.ReadOnly = "True"
$TextBox3.TabStop = "False"
;**************************************

;************* Label4 **************
$Label4 = $AcctGroupBox.Controls.Label("User Name:", 325, 17, 70, 17)
$Label4.BackColor = 212,208,200
$Label4.FontBold = "True"
;**************************************

;************* Label5 **************
$Label5 = $AcctGroupBox.Controls.Label("Display:", 325, 47, 70, 17)
$Label5.BackColor = 212,208,200
$Label5.FontBold = "True"
;**************************************

;************* Label6 **************
$Label6 = $AcctGroupBox.Controls.Label("Email Addr:", 325, 77, 70, 17)
$Label6.BackColor = 212,208,200
$Label6.FontBold = "True"
;**************************************

;************* TextBox4 **************
$TextBox4 = $AcctGroupBox.Controls.TextBox("TextBox4", 400, 18, 170, 13)
$TextBox4.BackColor = 212,208,200
$TextBox4.BorderStyle = 0
$TextBox4.ReadOnly = "True"
$TextBox4.TabStop = "False"
;**************************************

;************* TextBox5 **************
$TextBox5 = $AcctGroupBox.Controls.TextBox("TextBox5", 400, 48, 170, 13)
$TextBox5.BackColor = 212,208,200
$TextBox5.BorderStyle = 0
$TextBox5.ReadOnly = "True"
$TextBox5.TabStop = "False"
;**************************************

;************* TextBox6 **************
$TextBox6 = $AcctGroupBox.Controls.TextBox("TextBox6", 400, 78, 170, 13)
$TextBox6.BackColor = 212,208,200
$TextBox6.BorderStyle = 0
$TextBox6.ReadOnly = "True"
$TextBox6.TabStop = "False"
;**************************************

;************* DeptGroupBox **************
$DeptGroupBox = $Form.Controls.GroupBox("Department Details", 15, 135, 600, 110)
$DeptGroupBox.BackColor = 212,208,200
;**************************************

;************* DeptLabel1 **************
$DeptLabel1 = $DeptGroupBox.Controls.Label("Title:", 25, 17, 70, 17)
$DeptLabel1.BackColor = 212,208,200
$DeptLabel1.FontBold = "True"
;**************************************

;************* DeptLabel2 **************
$DeptLabel2 = $DeptGroupBox.Controls.Label("Company:", 25, 47, 70, 17)
$DeptLabel2.BackColor = 212,208,200
$DeptLabel2.FontBold = "True"
;**************************************

;************* DeptLabel3 **************
$DeptLabel3 = $DeptGroupBox.Controls.Label("Office", 25, 77, 70, 17)
$DeptLabel3.BackColor = 212,208,200
$DeptLabel3.FontBold = "True"
;**************************************

;************* DeptTextBox1 **************
$DeptTextBox1 = $DeptGroupBox.Controls.TextBox("", 100, 15, 170, 20)
;**************************************

;************* DeptTextBox2 **************
$DeptTextBox2 = $DeptGroupBox.Controls.TextBox("", 100, 45, 170, 20)
;**************************************

;************* DeptTextBox3 **************
$DeptTextBox3 = $DeptGroupBox.Controls.TextBox("", 100, 75, 170, 20)
;**************************************

;************* DeptLabel4 **************
$DeptLabel4 = $DeptGroupBox.Controls.Label("Department:", 325, 17, 70, 17)
$DeptLabel4.BackColor = 212,208,200
$DeptLabel4.FontBold = "True"
;**************************************

;************* DeptLabel5 **************
$DeptLabel5 = $DeptGroupBox.Controls.Label("Supervisor:", 325, 47, 70, 17)
$DeptLabel5.BackColor = 212,208,200
$DeptLabel5.FontBold = "True"
;**************************************

;************* DeptLabel6 **************
$DeptLabel6 = $DeptGroupBox.Controls.Label("Assistant:", 325, 77, 70, 17)
$DeptLabel6.BackColor = 212,208,200
$DeptLabel6.FontBold = "True"
;**************************************

;************* DeptTextBox4 **************
$DeptTextBox4 = $DeptGroupBox.Controls.TextBox("TextBox4", 400, 15, 170, 20)
;**************************************

;************* DeptTextBox5 **************
$DeptTextBox5 = $DeptGroupBox.Controls.ComboBox("TextBox5", 400, 45, 170, 20)
;**************************************

;************* DeptTextBox6 **************
$DeptTextBox6 = $DeptGroupBox.Controls.TextBox("TextBox6", 400, 75, 170, 20)
;**************************************

;************* InfoGroupBox **************
$InfoGroupBox = $Form.Controls.GroupBox("Contact Information", 15, 255, 600, 110)
$InfoGroupBox.BackColor = 212,208,200
;**************************************

;************* InfoLabel1 **************
$InfoLabel1 = $InfoGroupBox.Controls.Label("Work #:", 25, 17, 70, 17)
$InfoLabel1.BackColor = 212,208,200
$InfoLabel1.FontBold = "True"
;**************************************

;************* InfoLabel2 **************
$InfoLabel2 = $InfoGroupBox.Controls.Label("Pager #:", 25, 47, 70, 17)
$InfoLabel2.BackColor = 212,208,200
$InfoLabel2.FontBold = "True"
;**************************************

;************* InfoLabel3 **************
$InfoLabel3 = $InfoGroupBox.Controls.Label("Cell #:", 25, 77, 70, 17)
$InfoLabel3.BackColor = 212,208,200
$InfoLabel3.FontBold = "True"
;**************************************

;************* InfoTextBox1 **************
$InfoTextBox1 = $InfoGroupBox.Controls.TextBox("TextBox1", 100, 15, 170, 20)
;**************************************

;************* InfoTextBox2 **************
$InfoTextBox2 = $InfoGroupBox.Controls.TextBox("TextBox2", 100, 45, 170, 20)
;**************************************

;************* InfoTextBox3 **************
$InfoTextBox3 = $InfoGroupBox.Controls.TextBox("TextBox3", 100, 75, 170, 20)
;**************************************

;************* InfoLabel4 **************
$InfoLabel4 = $InfoGroupBox.Controls.Label("Fax #:", 325, 17, 70, 17)
$InfoLabel4.BackColor = 212,208,200
$InfoLabel4.FontBold = "True"
;**************************************

;************* InfoLabel5 **************
$InfoLabel5 = $InfoGroupBox.Controls.Label("", 325, 47, 70, 17)
$InfoLabel5.BackColor = 212,208,200
$InfoLabel5.FontBold = "True"
;**************************************

;************* InfoLabel6 **************
$InfoLabel6 = $InfoGroupBox.Controls.Label("Home:", 325, 77, 70, 17)
$InfoLabel6.BackColor = 212,208,200
$InfoLabel6.FontBold = "True"
;**************************************

;************* InfoTextBox4 **************
$InfoTextBox4 = $InfoGroupBox.Controls.TextBox("TextBox4", 400, 15, 170, 20)
;**************************************

;************* InfoTextBox5 **************
$InfoTextBox5 = $InfoGroupBox.Controls.TextBox("TextBox5", 400, 45, 170, 20)
;**************************************

;************* InfoTextBox6 **************
$InfoTextBox6 = $InfoGroupBox.Controls.TextBox("TextBox6", 400, 75, 170, 20)
;**************************************

;************* OfficeGroupBox **************
$OfficeGroupBox = $Form.Controls.GroupBox("Office Location", 15, 375, 600, 110)
$OfficeGroupBox.BackColor = 212,208,200
;**************************************

;************* OfficeLabel1 **************
$OfficeLabel1 = $OfficeGroupBox.Controls.Label("Street:", 25, 17, 70, 17)
$OfficeLabel1.BackColor = 212,208,200
$OfficeLabel1.FontBold = "True"
;**************************************

;************* OfficeLabel3 **************
$OfficeLabel3 = $OfficeGroupBox.Controls.Label("P.O. Box:", 25, 77, 70, 17)
$OfficeLabel3.BackColor = 212,208,200
$OfficeLabel3.FontBold = "True"
;**************************************

;************* OfficeTextBox1 **************
$OfficeTextBox1 = $OfficeGroupBox.Controls.TextBox("TextBox1", 100, 15, 170, 50)
$OfficeTextBox1.Multiline = "True"
;**************************************

;************* OfficeTextBox3 **************
$OfficeTextBox3 = $OfficeGroupBox.Controls.TextBox("TextBox3", 100, 75, 170, 20)
;**************************************

;************* OfficeLabel4 **************
$OfficeLabel4 = $OfficeGroupBox.Controls.Label("City:", 325, 17, 70, 17)
$OfficeLabel4.BackColor = 212,208,200
$OfficeLabel4.FontBold = "True"
;**************************************

;************* OfficeLabel5 **************
$OfficeLabel5 = $OfficeGroupBox.Controls.Label("State:", 325, 47, 70, 17)
$OfficeLabel5.BackColor = 212,208,200
$OfficeLabel5.FontBold = "True"
;**************************************

;************* OfficeLabel6 **************
$OfficeLabel6 = $OfficeGroupBox.Controls.Label("Zip Code:", 325, 77, 70, 17)
$OfficeLabel6.BackColor = 212,208,200
$OfficeLabel6.FontBold = "True"
;**************************************

;************* OfficeTextBox4 **************
$OfficeTextBox4 = $OfficeGroupBox.Controls.TextBox("TextBox4", 400, 15, 170, 20)
;**************************************

;************* OfficeTextBox5 **************
$OfficeTextBox5 = $OfficeGroupBox.Controls.TextBox("TextBox5", 400, 45, 170, 20)
;**************************************

;************* OfficeTextBox6 **************
$OfficeTextBox6 = $OfficeGroupBox.Controls.TextBox("TextBox6", 400, 75, 170, 20)
;**************************************

;************* Accept **************
$Accept = $Form.Controls.Button("Accept Changes", 120, 510, 125, 23)
$Accept.enabled = "False"
;**************************************

;************* Button2 **************
$Cancel = $Form.Controls.Button("Cancel Changes", 405, 510, 125, 23)
$Cancel.OnClick = "ReadADInfo()"
;**************************************

ReadADInfo()

;KD END

$Form.Show
While $Form.Visible
   $=Execute($Form.DoEvents())
Loop
Exit 1

Function ReadADInfo()

	$ldap		= TranslateName(1, @domain, 3, @ldomain+'\'+@userid, 1)
	$UserProperties = GetObject("LDAP://"+$LDAP[0])

	$FirstName	= $userProperties.FirstName
	$MiddleName	= $userProperties.initials
	$LastName	= $userProperties.LastName
	$UserName	= $userProperties.sAMAccountName
	$DisplayName	= $userProperties.displayName
	$emailName	= $userProperties.mail

	$TitleName	= $userProperties.title
	$CompanyName	= $userProperties.company
	$OfficeName	= $userProperties.physicalDeliveryOfficeName
	$DepartmentName	= $userProperties.department
	$ManagerName	= $userProperties.manager
	$AssistantName	= $userProperties.assistant

	$WorkNumber	= $userProperties.telephoneNumber
	$PagerNumber	= $userProperties.pager
	$MobileNumber	= $userProperties.mobile
	$FaxNumber	= $userProperties.facsimileTelephoneNumber
;	$		= $userProperties.
	$HomeNumber	= $userProperties.homePhone

	$StreetAddr	= $userProperties.streetAddress
	$POBox		= $userProperties.postOfficeBox
	$city		= $userProperties.l
	$state		= $userProperties.st
	$zipcode	= $userProperties.postalCode


	$Super		= TranslateName(1, @domain, 1, $ManagerName, 4)
	if not @error and ubound($super)>1
		$manager=$Super[0]
	endif

	;   set default values of no data present
	$company = iif($CompanyName='','Company',$CompanyName)


	;   populate form with data
	$TextBox1.text =	$FirstName	
	$TextBox2.text =	$MiddleName	
	$TextBox3.text =	$LastName	
	$TextBox4.text =	$UserName
	$TextBox5.text =	$DisplayName
	$TextBox6.text =	$emailName

	$DeptTextBox1.text =	$TitleName	
	$DeptTextBox2.text =	$Company	
	$DeptTextBox3.text =	$OfficeName		
	$DeptTextBox4.text =	$DepartmentName	
	$DeptTextBox5.text =	$Manager	
	$DeptTextBox6.text =	$AssistantName		

	$InfoTextBox1.text = 	$WorkNumber	
	$InfoTextBox2.text = 	$PagerNumber
	$InfoTextBox3.text = 	$MobileNumber
	$InfoTextBox4.text = 	$FaxNumber
	$InfoTextBox5.text = 	''	
	$InfoTextBox6.text = 	$HomeNumber
	
	$OfficeTextBox1.text =	$StreetAddr	
	$OfficeTextBox3.text =	$POBox		
	$OfficeTextBox4.text =	$city		
	$OfficeTextBox5.text =	$state		
	$OfficeTextBox6.text =	$zipcode

EndFunction




Function TranslateName($InitType, $BindName, $LookupNameType, $LookupName, $ReturnNameType)
   Dim $InitType, $BindName, $LookupNameType, $LookupName, $ReturnNameType
   Dim $NameTranslate, $ReturnName, $Error, $ErrorText
   $Error = 0	   $ErrorText = ""	   $ReturnName = ""
   $NameTranslate = CREATEOBJECT ("NameTranslate")		$Error = @error   $ErrorText = @serror
   if $Error = 0
      $NameTranslate.Init ($InitType, $BindName)		$Error = @error   $ErrorText = @serror
      if $Error = 0
         $NameTranslate.Set ($LookupNameType, $LookupName)	$Error = @error   $ErrorText = @serror
         if $Error = 0
            $ReturnName = $NameTranslate.Get($ReturnNameType)	$Error = @error   $ErrorText = @serror
         endif
      endif
   endif
   $TranslateName = $ReturnName, $Error, $ErrorText
Endfunction