Jump to content

Create Share via VB script.

NIM

By NIM
in Scripting and Programming

 Share

Recommended Posts

NIM Enthusiast

NIM

Posted
Posted 
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 = -1
fs.SetInfo

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
 Share
Go to topic listing
×
×
  • Create New...