Posted August 6, 200619 yr 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
Please sign in to comment
You will be able to leave a comment after signing in
Sign In Now