Como criar um compartilhamento de rede usando vbscript

Question

Eu quero criar um compartilhamento de rede usando o vbScript.

Existe uma maneira de fazer isso além de executar um comando "net share"?

por exemplo.

Set shell = CreateObject("WScript.Shell")
shell.Run "net share sc1=" & sShare , 1, false

    

Answer 1

Use o WMI via vbscript.

Extraído do link

Creating a Network Share

Creates a shared folder named FinanceShare, setting the maximum number of simultaneous connections to 25, and adding a share description.

Const FILE_SHARE = 0
Const MAXIMUM_CONNECTIONS = 25
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\" & strComputer & "\root\cimv2")
Set objNewShare = objWMIService.Get("Win32_Share")
errReturn = objNewShare.Create _
    ("C:\Finance", "FinanceShare", FILE_SHARE, _
        MAXIMUM_CONNECTIONS, "Public share for the Finance group.")
Wscript.Echo errReturn

    

Answer 2

Tente isso -

Dim WshNetwork
Set WshNetwork = WScript.CreateObject("WScript.Network")
WshNetwork.MapNetworkDrive "E:", "\Server\Public"

Extraído desta página da MSDN - link

É como mapeamos os compartilhamentos de rede em nossos scripts de login.