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

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

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

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