Help and Support
 

powered byLive Search

How To Manipulate File Shares with ADSI (VB Sample)

View products that this article applies to.
Article ID:169398
Last Review:March 29, 2007
Revision:3.3
This article was previously published under Q169398

SUMMARY

You can use Active Directory Service Interfaces (ADSI) to manipulate file shares as shown in the Visual Basic sample code below.

Back to the top

MORE INFORMATION

You must install the ADSI runtime (ADS.EXE) available from www.microsoft.com/ntserver/info/adsi.htm, and then add a reference to Active DS Type Library.

Note: Windows 2000 includes the ADSI 2.5 run time. Installation of the above runtime is not required.

The following code first gets a fileshare object on a server and reads its path property. Then it gets a fileservice object on a server, uses it to enumerate the shares on the server, creates a new share \\SERVER\newshare for C:\, and deletes the share it just created. You can omit the DOMAIN\ in the code below, but you may see some performance degradation caused by additional browsing to find the 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

Back to the top

REFERENCES

For more informatioin about the ADSI specification, see the following Microsoft Web site in the Platform Software Development Kit (SDK):
http://msdn2.microsoft.com/en-us/library/aa772170.aspx (http://msdn2.microsoft.com/en-us/library/aa772170.aspx)

Back to the top

APPLIES TO
•Microsoft Visual Basic 6.0 Learning Edition, when used with:
  Microsoft Windows 2000 Standard Edition
  Microsoft Windows NT 4.0
  Microsoft Windows 98 Standard Edition
  Microsoft Windows 95
•Microsoft Visual Basic 4.0 Professional Edition, when used with:
  Microsoft Windows 2000 Standard Edition
  Microsoft Windows NT 4.0
  Microsoft Windows 98 Standard Edition
  Microsoft Windows 95
•Microsoft Visual Basic 6.0 Professional Edition, when used with:
  Microsoft Windows 2000 Standard Edition
  Microsoft Windows NT 4.0
  Microsoft Windows 98 Standard Edition
  Microsoft Windows 95
•Microsoft Visual Basic 4.0 Enterprise Edition, when used with:
  Microsoft Windows 2000 Standard Edition
  Microsoft Windows NT 4.0
  Microsoft Windows 98 Standard Edition
  Microsoft Windows 95
•Microsoft Visual Basic 6.0 Enterprise Edition, when used with:
  Microsoft Windows 2000 Standard Edition
  Microsoft Windows NT 4.0
  Microsoft Windows 98 Standard Edition
  Microsoft Windows 95
•Microsoft Visual Basic 4.0 Standard Edition, when used with:
  Microsoft Windows 2000 Standard Edition
  Microsoft Windows NT 4.0
  Microsoft Windows 98 Standard Edition
  Microsoft Windows 95

Back to the top

Keywords: 
kbhowto KB169398

Back to the top

Article Translations

 

Other Support Options

  • Need More Help?
    Contact a Support professional by E-mail, Online or Phone.
  • Customer Service
    For non-technical assistance with product purchases, subscriptions, online services, events, training courses, corporate sales, piracy issues, and more.
  • Newsgroups
    Pose a question to other users. Discussion groups and Forums about specific Microsoft products, technologies, and services.