如何使用vbscript创buildnetworking共享服务器 Gind.cn

我想用vbScript创build一个networking共享。

除了执行“networking共享”命令之外，还有其他的方法吗？

例如

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

通过vbscript使用WMI。

取自http://www.activexperts.com/activmonitor/windowsmanagement/adminscripts/filesfolders/sharedfolders/#CreateNetworkShare.htm

 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

尝试这个 –

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

采取从这个MSDN页 – http://msdn.microsoft.com/en-us/library/8kst88h6(VS.85).aspx

这就是我们如何在我们的login脚本中映射networking共享。