如何操纵文件共享使用 ADSI （VB 示例)

http://support.microsoft.com/kb/169398/zh-cn  MSDN支持

如何操纵文件共享使用 ADSI （VB 示例)

 

概要

<script type="text/javascript">loadTOCNode(1, 'summary');</script>

使用 Active Directory Service Interfaces (ADSI) 来操纵如上 VisualBasic 示例代码， 文件共享。

 

更多信息

<script type="text/javascript">loadTOCNode(1, 'moreinformation');</script>

您必须从 www.microsoft.com/ntserver/info/adsi.htm, 安装运行 ADSI 库 (ADS.EXE） 可用， 然后添加对 ActiveDirectory DS 类型库引用。

注意： Windows 2000 包括 ADSI 2.5 运行时间。 安装上述运行时则不需要。

以下代码首先在服务器上获取文件共享对象并读取其路径属性。 然后在服务器上获取 fileservice 对象， 使用它来枚举服务器上共享、 创建新共享 //SERVER/newshare 对于 C:/, 并删除共享它刚刚创建。 可以忽略 DOMAIN/ 在代码中, 但可能看到一些性能下降由其他浏览以查找 SERVER:

   Sub foo()

   Dim comp As IADsComputer
   Dim serv As IADsService
   Dim fserv As IADsContainer
   Dim share As IADsFileShare
   Dim shareNew As IADsFileShare
   Dim v As Variant

   ' Replace DOMAIN, SERVER & SHARE with the appropriate
   ' domain, server  and share names
   Set share = GetObject("WinNT://DOMAIN/SERVER/lanmanserver/SHARE")
   v = share.Path ' Gets directory path on server
   Set share = nothing

   ' Replace DOMAIN & SERVER with the appropriate domain and server names
   Set fserv = GetObject("WinNT://DOMAIN/SERVER/lanmanserver")

   ' Enumerate existing shares
   For Each share In fserv
     v = share.Class
     v = share.ADsPath
     v = share.HostComputer
     v = share.Path
   Next share

   ' Create share in fileservice container
   Set shareNew = fserv.Create("fileshare", "newshare")
   shareNew.Path = "C:/"
   shareNew.SetInfo  ' Commit new share

   ' Delete share
   fserv.Delete "fileshare", "newshare"

   ' Fails since share is gone
   shareNew.GetInfo

   End Sub