Tramite il seguente codice è possibile creare una share di rete senza fare
ricorso alle Api (ovviamente con performance minori rispetto a
quest'ultime).
I sistemi operativi supportati sono:
- Windows Server 2003
- Windows XP
- Windows 2000 Professional/Server
- Windows NT Workstation/Server 4.0 SP4 e
successivi
Dim path As New
System.Management.ManagementPath("Win32_Share")
Dim share As New System.Management.ManagementClass(Nothing, path, Nothing)
Dim inArgs As
System.Management.ManagementBaseObject
inArgs =
share.GetMethodParameters("Create")
inArgs("Path") =
"C:\MyFolder"
inArgs("Name") = "ShareName" '"ShareName$" for hide share
inArgs("Type") =
0
inArgs("MaximumAllowed") = Nothing
inArgs("Description") = Nothing
Dim outArgs As
System.Management.ManagementBaseObject
outArgs = share.InvokeMethod("Create",
inArgs, Nothing)
inArgs.Dispose() : inArgs = Nothing
outArgs.Dispose() : outArgs = Nothing
share.Dispose() : share =
Nothing
path =
Nothing
Per maggiori info sul metodo create della Win32_Share:
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/wmisdk/wmi/create_method_in_class_win32_share.asp
Per uno script:
http://www.microsoft.com/technet/scriptcenter/scripts/storage/shares/stshvb01.mspx