在InstallShield中共享INSTALLDIR窗口文件夹

时间:2017-11-28 08:57:52

标签: cmd vbscript installation installshield

我想在installshield中共享我的安装目录。我做了一些搜索,发现了一个VB脚本和一个CMD命令:

      Option Explicit

      Const FILE_SHARE = 0
      Const MAXIMUM_CONNECTIONS = 25

      Dim objShare

      'Connect to WMI
      Dim objWMIService: Set objWMIService = _
      GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")

      'Query share names for existing share
      Dim colShares: Set colShares = objWMIService.ExecQuery _
      ("Select * from Win32_Share Where Name = 'MyShare'")

      'Delete share if one exists with the same name already
      For Each objShare in colShares
      objShare.Delete
      Next

      'Create new share
      Dim objNewShare: Set objNewShare = objWMIService.Get("Win32_Share")
      Dim strFilePath: strFilePath = Session.Property("CustomActionData")
      strFilePath = Left(strFilePath, Len(strFilePath) - 1)
      objNewShare.Create strFilePath, "MyShare", _
      FILE_SHARE, MAXIMUM_CONNECTIONS, "MyShare"

cmd命令:

net share sharename = [INSTALLDIR]

当我运行VBScript时,我没有看到任何错误,但我无法共享我的文件夹。 当我运行cmd命令时,命令无法共享,因为它需要管理员权限;但我不确定,我怎么能为它提供管理员权限; 我可以分享文件夹吗?如何?

2 个答案:

答案 0 :(得分:1)

尝试。您需要拥有您尝试共享的位置的访问权限。

net share Share=E:\Shared /Grant:Everyone,full

注意:您可以根据需要更改共享权限。这是一个严格的例子。

答案 1 :(得分:0)

我找到了一个非常简单的解决方案。我进入文件和文件夹选项卡并右键单击installdir然后在共享选项卡中我选中共享文件夹复选框并完成!非常简单没有代码和命令!