Set objDomain=GetObject("WinNT:")

For Each domain_element In objDomain

Domain_Name= domain_element.Name

Next

    Set PC_Name="1000pc"

    Set Share_Name="Share1"

    Set Folder_Path="c:Folder1"

    Set Description_Name="Shared Folder #1"

     

Set object=GetObject("WinNT://" & Domain_Name &"/" & PC_Name &"/LanmanServer")

Call object.Delete("fileshare", Share_Name)

Подкласс Service

С помощью данного подкласса осуществляется управление различными службами. С его помощью могут быть осуществлены следующие действия, касающиеся служб: перечисление служб, установленных на локальном или удаленном компьютере; чтение свойств выбранной службы; управление службой.

Перечисление служб на выбранном компьютере

Перечисление служб на рабочей станции осуществляется с помощью фильтра. Пример использования фильтра см. в разделе «Объектная модель провайдера WinNT»; примеры 2б) и 3б); в таблице 2 перечислены все возможные фильтры.

Чтение свойств служб на выбранном компьютере

Перечисление служб на рабочей станции осуществляется с помощью фильтра.

Связывание служб на выбранном компьютере

Понятие «связывание служб» лучше всего продемонстрировать на реальном примере: представьте, что служба 1 связана, т.е. является зависимой от службы 2. Это обозначает, что при остановке службы 1 появится сообщение о необходимости остановки службы 2. Связанность служб характеризуется свойством Dependencies. Свойство Dependencies является массивом, см. Приложение.

Вторым этапом является установка новой зависимой службы:

Пример 30. Связывание служб

 

    On Error Resume Next

     

Set objDomain=GetObject("WinNT:")

For Each domain_element In objDomain

Domain_Name= domain_element.Name

 

Next

    Set Service_Name="______"

    Set PC_Name="______"

     

Set object=GetObject("WinNT://" & Domain_Name &"/" & PC_Name &",Computer")

    Set Service=object.GetObject("service", Service_Name)

    Flag1=0

    Flag2=0

    Dim New_Array()     ' Объявление пустого массива

    Set Dependency_Name="_______"

    If IsArray(Service.Dependencies)=True Then

    For Each obj in Service.Dependencies

    ' Определение верхней границы массива  Dependencies

    i=Ubound(New_Array)+1

    ' Переопределение размера массива New_Arrray

    ReDim Preserve New_Array (i)

    New_Array(i)=obj

           If obj="" then

                        Flag1=1

           end if

                 If  obj= Dependency_Name then

                        Flag2=1

           end if

     

    if Flag1=1 then

                        Service.dependencies = Array(Dependency_Name)

                               Service.SetInfo

    Else

           If  Flag2<>1

                               i=Ubound(New_Array)+1

                               ReDim Preserve New_Array (i)

                               New_Array(i)= Dependency_Name

---

Предыдущая страница	Оглавление	Следующая страница
[001] [002] [003] [004] [005] [006] [007] [008] [009] [010] [011] [012] [013] [014] [015] [016] [017] [018] [019] [020] [021] [022] [023] [024] [025] [026] [027] [028] [029] [030] [031] [032] [033] [034] [035] [036] [037] [038] [039] [040] [041] [042] [043] [044] [045] [046] [047] [048] [049] [050] [051] [052] [053] [054] [055] [056] [057] [058] [059] [060] [061] [062] [063] [064] [065] [066] [067] [068] [069] [070] [071] [072] [073] [074] [075] [076] [077] [078] [079] [080] [081] [082] [083] [084] [085] [086] [087] [088] [089] [090] [091] [092] [093] [094] [095] [096] [097] [098] [099] [100] [101] [102] [103] [104] [105] [106] [107] [108] [109] [110] [111] [112] [113] [114] [115] [116] [117] [118] [119] [120] [121] [122] [123] [124] [125] [126] [127] [128] [129] [130] [131] [132] [133] [134] [135] [136] [137] [138] [139] [140] [141] [142] [143] [144] [145] [146] [147] [148] [149] [150] [151] [152] [153] [154] [155] [156] [157]