IStation.Name

Syntax

Name: String;

The Name property returns a name of the workstation.

The property is read-only.

Executing the example requires a form, a button named Button1 on this form.

Sub Button1OnClick(Sender: Object; Args: IEventArgs);

Var

MB: IMetabase;

Sec: IMetabaseSecurity;

m_User: IMetabaseUser;

St: IStations;

Station: IStation;

s: String;

Begin

MB := MetabaseClass.Active;

Sec := MB.Security;

m_User := Sec.ResolveName("ADMIN") As IMetabaseUser;

St := m_User.Stations;

Station := St.Item(0);

s := Station.Name;

End Sub Button1OnClick;

On clicking the button the "s" variable stores a name of the first workstation from the ADMIN user collection.