README.md

Description

Create a network share in a windows environment on a local or remote computer without using DOS commands or xcacls or xlnt. This code was based on information learned in WMI Scripting Primer: Part 3 on the MSDN and I have a similar example for vbscript http://planetsourcecode.com/vb/scripts/ShowCode.asp?txtCodeId=9277&lngWId=4 and on my site at www.SourceRCS.com Let me know what you think and I'll stop or keep going based on you feedback.

More Info

Submitted On
By	Rick Casady
Level	Intermediate
User Rating	4.0 (16 globes from 4 users)
Compatibility	VB.NET
Category	Security
World	.Net (C#, VB.net)
Archive File

Source Code

'<pre>
' Purpose: Create a network share for NT users. You will
' need to have correct permissions to do this and it can be
' done to remote computers.
' We pass in the folder name, path of the folder and
' description of the share folder.
Private Sub CreateShare(strShareName, strPath, strDescription)
	Dim objSWbemServices as object
	Dim objSWbemObject as object
	Dim colSWbemObject as object
 Dim intRet as integer
 Dim blnExists as boolean
 Dim objSWbem as object
 ' Next we call the standard GetObject function for
 ' returning COM objects and pass it the connection
 ' string for connecting to the WMI.
 objSWbemServices = GetObject("winmgmts:\\.\root\cimv2")
 ' This same line can be executed on a remote computer
 ' with a differnt connection string like this:
 ' objSWbemServices = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
 ' Now we enumrate the Shares on the target computer and
 ' return it to a collection
 colSWbemObject = objSWbemServices.InstancesOf("Win32_Share")
 ' Loop through each share on the machine to see if it already exists
 	For each objSWbem in colSWbemObject
 		If(objSWbem.name = strShareName)Then
			blnShareExists = True
			Exit For
		Else
			blnShareExists = False
	 End If
	Next
	' if the share didn’t exist our Boolean will be false
	' and we can try to add it.
	If (blnShareExists = False)Then
 	' Create the share
 	' Now we need to get
 		objSWbemObject = objSWbemServices.Get("Win32_Share")
 		' Last we call the create passing our path, name,
 		' description and 10 is for max number of users
 	intRet = objSWbemObject.Create(strPath, strShareName, , 10, strDescription)
 Else
 	msgbox("Folder aready shared")
 End If
End Sub
'</pre>