NIM Posted August 6, 2006 Share Posted August 6, 2006 DomainName = InputBox("Enter domain name")ServerName = InputBox("Enter server name")ShareName = InputBox("Enter share name to be created")PathName = InputBox("Enter the full path of the new share")Set cont = GetObject("WinNT://"& DomainName &"/"& ServerName &"/LanmanServer,FileService")Set fs = cont.Create("FileShare", ""& ShareName &"")fs.Path = ""& PathName &""fs.MaxUserCount = -1fs.SetInfo Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.