IADsFileServiceOperations

IADsFileServiceOperations インターフェイスは、IADsServiceOperations を継承するデュアルインターフェイスです。

ファイルサービス操作オブジェクトにバインドするには、次のコード例に示すように、ホストコンピューター上の "LanmanServer" サービスを識別する ADsPath 文字列を使用します。

Dim fso As IADsFileServiceOperations
On Error Resume Next

' aDomain は、コンピューターが配置されているドメインに置き換えてください。
' aComputer は、コンピューターの名前に置き換えてください。
Set fso = GetObject("WinNT://aDomain/aComputer/LanmanServer")

この時点以降は、ファイルサービスオブジェクトを単なるサービスオブジェクトとして扱い、IADsServiceOperations の任意のメソッドをファイルサービスオブジェクトに適用できます。たとえば、ファイルサービスの動作状態を調べたり、ファイルサービスを開始または停止したり、パスワードを変更したりできます。

ただし、IADsFileServiceOperations インターフェイスを使用すると、ファイルサービスの開いているリソースやアクティブなセッションを操作できます。次の例を参照してください。

For Each r in fso.Resources
MsgBox r.User
MsgBox r.Path
MsgBox r.LockCount
Next

アクティブなセッションと開いているリソースの詳細については、IADsSession および IADsResource を参照してください。

IADsFileServiceOperations::Sessions メソッドは、このファイルサービスで現在開いているセッションを表すセッションオブジェクトのコレクションに対する IADsCollection インターフェイスへのポインターへのポインターを取得します。

このメソッドは、S_OK を含む標準の戻り値をサポートします。詳細およびその他の戻り値については、ADSI Error Codes を参照してください。

従来のディレクトリサービスは、基になるデータストアで表現されるディレクトリサービス要素に関するデータのみを提供します。ファイルサービスのセッションに関するデータは、基になるストアから取得できない場合があります。

Examples

次のコード例は、ファイルサービスが管理するアクティブなセッションを列挙する方法を示しています。

Dim fso As IADsFileServiceOperations
On Error GoTo Cleanup

' ローカルドメインの "myComputer" 上の
' ファイルサービス操作にバインドします。
Set fso = GetObject("WinNT://myComputer/LanmanServer")

' セッションを列挙します。
For Each session In fso.sessions
    MsgBox "Session name: " & session.Name
Next session

Cleanup:
    If (Err.Number<>0) Then
        MsgBox("An error has occurred. " & Err.Number)
    End If
    Set fso = Nothing

IADsFileServiceOperations::Sessions インターフェイスを使用したコード例については、IADsSession に記載されているコード例を参照してください。

IADsFileServiceOperations::Resources メソッドは、このファイルサービスで現在開いているリソースを表すリソースオブジェクトのコレクションに対する IADsCollection インターフェイスへのポインターへのポインターを取得します。

このメソッドは、S_OK を含む標準の戻り値をサポートします。詳細およびその他の戻り値については、ADSI Error Codes を参照してください。

従来のディレクトリサービスは、基になるデータストアで表現されるディレクトリサービス要素に関するデータのみを提供します。ファイルサービスのリソースに関するデータは、基になるディレクトリストアから取得できない場合があります。

Examples

次のコード例は、ファイルサービスが管理する開いているリソースを列挙する方法を示しています。

Dim fso As IADsFileServiceOperations
On Error GoTo Cleanup

' ローカルドメインの "myComputer" 上の
' ファイルサービス操作にバインドします。
Set fso = GetObject("WinNT://myComputer/LanmanServer")

' リソースを列挙します。
For Each resource In fso.Resources
    MsgBox "Resource path: " & resource.Path
Next resource

Cleanup:
    If (Err.Number<>0) Then
        MsgBox("An error has occurred. " & Err.Number)
    End If
    Set fso = Nothing

IADsFileServiceOperations::Resources メソッドを使用したコード例については、IADsResource に記載されているコード例を参照してください。