Treść książki
Przejdź do opcji czytnikaPrzejdź do nawigacjiPrzejdź do informacjiPrzejdź do stopki
30
Zestawrozwiązań1:Zarządzanieopartenarolach
Tenkodkontrolujeprzepływwskrypcie.Wszystko,comusimyzrobić,tozamienićgo
wpodprogram,otaczającgowyrażeniamiSubiEndSub:
OptionExplicit
DimoMemberOfList
DimsDomainDN
'BLOKKONFIGURACJI
sDomainDN="dc=contoso,dc=com"
SubMainRoutine()
DimaMemberOfList
DimsMemberOf
DimsArgument
DimsObjectDN
'Pobieranieargumentu
sArgument=WScript.Arguments(0)
'PrzekształcaniegowDN
sObjectDN=ADObject_DN_UCG(sArgument,sDomainDN)
IfsObjectDN=""Then
WScript.Echo"ERROR--NOTFOUND:"&sArgument
WScript.Quit(501)
EndIf
'Tworzenieobiektusłownikadoprzechowywanianazwgrup
SetoMemberOfList=CreateObject("Scripting.Dictionary")
'Ustawianietrybuporównywania,abynierozróżniałwielkościliter
oMemberOfList.CompareMode=vbTextCompare
CallADObject_MemberOf(sObjectDN)
aMemberOfList=oMemberOfList.Keys
aMemberOfList=Array_Sort(aMemberOfList)
WScript.Echo"MEMBERSHIPS"
ForEachsMemberOfInaMemberOfList
WScript.EchosMemberOf
Next
EndSub
Zwróćmyuwagę,żedeklarujemyzmienneoMemberOfListisDomainDNnazewnątrzpod-
programu.Powodemtegojestfakt,żedlategokonkretnegokodupotrzebujemyzmiennych
ozakresieglobalnym,któremogązatembyćwspółdzieloneprzezfunkcjeipodprogramy
.
Tworzenieinterfejsuużytkownika:HTML
Miejmynadzieję,żemamyedytorHTML,takijakFrontPage2003lubMicrosoftExpression
Web,abywspomóctworzenieHTMLdlanaszejaplikacjiHTA.Jeślinie,możnaużyć
Notatnika.Poniżejpokazanoistotne,wymaganewierszekodu:
<html>
<head>
<title>MyAdministrativeTool</title>
<hta:application>
<scriptlanguage="vbscript">SCRIPTGOESHERE</script>
</head>
