How to Manage File Shares Using ADSI

ID: Q234234

The information in this article applies to:

Microsoft Windows 2000 Server
Microsoft Windows 2000 Professional
Microsoft Windows NT Server version 4.0
Microsoft Windows NT Server version 4.0, Terminal Server Edition
Microsoft Windows 98

SUMMARY

This article describes how to use Active Directory Services Interface (ADSI) to manage file shares on local and remote computers.

MORE INFORMATION

You can use ADSI to write scripts or programs to manage shares on both local and remote computers. The different properties you can use in the IADsFileShare object are listed in the following table.

Property Description

CurrentUserCount The number of users currently connected to the share. (Read Only)

Description The friendly description for the file share.

HostComputer The ADsPath for the computer in which this share resides.

MaxUserCount The maximum number of users that are allowed to connect to this share simultaneously.

Path The local file system path for the shared folder.

The following scripts, written in VBScript, take advantage of the IADsFileShare object.

The Create_Share.vbs script creates a new share on 'MYCOMPUTER,' and then sets some of the common file share attributes.


Set ShareSrvObj = GetObject("WinNT://MYCOMPUTER/LANMANSERVER")
Set NewShareObj = ShareSrvObj.Create("fileshare", "DWNLDShare")
NewShareObj.Path = "C:\Download"
NewShareObj.MaxUserCount = 10
NewShareObj.Description = "This is a share for my downloaded files."
NewShareObj.SetInfo

The List_Shares.vbs script lists all of the shares on 'MYCOMPUTER' and the local path for the share.


Set ShareSrvObj = GetObject("WinNT://MYCOMPUTER/LANMANSERVER")
For Each ShareObj in ShareSrvObj
    WScript.Echo ShareObj.Name & " = " ShareObj.Path
Next

For information about ADSI, please visit the following Microsoft Web site:

http://www.microsoft.com/windows/server/Technical/directory/adsilinks.asp

For information about Windows Script Host, please visit the following Microsoft Web site:

http://msdn.microsoft.com/scripting/

Additional query words:

Keywords : kbenv kbnetwork kbtool ntdomain
Version : WINDOWS:2000; winnt:4.0
Platform : WINDOWS winnt
Issue type : kbhowto