Treść książki
Przejdź do opcji czytnikaPrzejdź do nawigacjiPrzejdź do informacjiPrzejdź do stopki
34
Zestawrozwiązań1:Zarządzanieopartenarolach
OstatecznaaplikacjaHTA
Powłożeniudonaszegokodufunkcjonalnegopodprogramówifunkcji,utworzeniuinter-
fejsuużytkownikazkontrolkamiwejściowymi,podłączeniuzdarzeńdowywoływaniakodu
izapewnieniumechanizmuwyświetlaniawyników,jesteśmycałkiemblisko„doskonałej”
aplikacjiHTA.NosionanazwęADObject_MemberOf_Enum.htaimożnająznaleźćwfol-
derzeScriptsnapłytcetowarzyszącejksiążce.
Zwócimyuwagęnadodatkowyelement.Doelementustrony<head>zostałdodany
znacznik<style>:
<style>
body,tr,td,table,p,input{font-family:arial;font-size:9pt;}
</style>
TospowodujeustawienieczcionkiHTAna9-punktowyArial.
OstatecznykodHTAjestpokazanyponiżej,ztymżekilkafunkcji,któresączęścią
naszejbibliotekifunkcji,niezostałorozwiniętych,takabyłatwiejmożnabyłoocenić
główneelementyidziałanieHTA:
ADObject_MemberOf_Enum.hta
<html>
<head>
<title>GroupMembershipReport</title>
<hta:application>
<scriptlanguage="vbscript">
OptionExplicit
DimoMemberOfList
DimsDomainDN
'BLOKKONFIGURACJI
sDomainDN="dc=contoso,dc=com"
SubMainRoutine()
DimaMemberOfList
DimsMemberOf
DimsResults
DimsObjectDN
sObjectDN=ADObject_DN_UCG(txtObjectDN.value,sDomainDN)
IfsObjectDN=""Then
MsgBox"Couldnotfind"&txtObjectDN.value
EndIf
'Tworzenieobiektusłownikadoprzechowywanianazwgrup
SetoMemberOfList=CreateObject("Scripting.Dictionary")
'Ustawienietrybuporównaniananierozróżnianiewielkościliter
oMemberOfList.CompareMode=vbTextCompare
CallADObject_MemberOf(sObjectDN)
aMemberOfList=oMemberOfList.Keys
aMemberOfList=Array_Sort(aMemberOfList)
sResults="MEMBERSHIPS"
ForEachsMemberOfInaMemberOfList
sResults=sResults&"<br/>"&sMemberOf
