Dim strAddress As String
Dim nPort As Long
Dim strUser As String
Dim strPassword As String

strAddress = "10.1.10.1"
nPort = 49201
strUser = "user"
strPassword = "123456"

' Create a new StarTeam Server Factory.
Dim Factory As New StServerFactory

' Use factory to create a new initialized Server object.
Dim Server As StServer
Set Server = Factory.Create(strAddress, nPort)

' Establish a connection to the Server.
' This is optional - logOn() connects if necessary.
Server.Connect
' LogOn as a specific user.
Server.logOn strUser, strPassword
работает ? на какой строке ощибка?

Да, извиняюсь забыл References StarTeam Library!

Наверное потому, что я не сервак себе на машину ставил, а клиента
SDK надо поставить, так ить с клиента и работать должно, мы через web сделали и нет проблем.

Это для Starteam нужно.

Да,StarTeam SDK 6.0, Build 60.

не знаю.

Не знаю StarTeamSDK-runtime.exe могу 24mb могу по почте, скинуть.?