такой скрипт:

Set Bases = CreateObject("Scripting.Dictionary")
Bases.Add "test" , "test"

ServerName = "Serv"

For Each Base In Bases
       
    BaseName    =   Bases.Item(Base) 

    If Base = BaseName then

        Set connector = CreateObject("V83.COMConnector")
        Set AgentConnection = Connector.ConnectAgent(ServerName & ":1540")
        Set Cluster = AgentConnection.GetClusters()(0)
        AgentConnection.Authenticate Cluster, "", ""
        WorkingProcesses = AgentConnection.GetWorkingProcesses(Cluster)
    
        For Each WorkingProcess In WorkingProcesses
    
            ConnectString = WorkingProcess.HostName & ":" & WorkingProcess.MainPort
            Set WorkingProcessConnection = Connector.ConnectWorkingProcess(ConnectString)
            WorkingProcessConnection.AddAuthentication "Admin", "123"

            Set ibDesc = WorkingProcessConnection.GetInfoBase()

ibDesc.ScheduledJobsDenied = TRUE

            Next
        	
        		End if
    
        Next
    

ругаетсо на строчке с Set ibDesc = WorkingProcessConnection.GetInfoBase()

Stim ругаетсо

как именно?

AgentConnection.Authenticate Cluster, <ИмяАдминистратораСервера>, <Пароль>

(1)object doesn't support this property or method

(3) у тебя 8.3, кстати, глянь СП - может, там поменялось что. у меня только 8.2 под рукой

ааа, s-юка
нет у него такого метода, надда так:
InfoBases = WorkingProcessConnection.GetInfoBases()
For Each InfoBase In InfoBases

(6) какого нет метода? он ругаетсо на метод GetInfoBase()

(7) вот этого метода и нету, GetInfoBases есть. s в канце, и на выходе - массив баз, которые наименованием можно отловить нужную.

спасибо. все взлетело

Bases2 = WorkingProcessConnection.GetInfoBases()

For Each Base2 In Bases2

WScript.echo Base2.Name

            Next

что бы ты без нас делал

спасибо, мой дорогой дневничок