检查共享是否存在，如果存在则继续

Question

我有下面的代码，我想做的就是检查服务器上是否存在一个名为"temp"的共享。如果是，那么它需要继续做一些我要添加进去的代码。

如果没有，那么我希望它运行一些WDS将创建共享的其他代码。

我知道我在这一点上是错的，所以任何帮助都会很感激!目前，当我在有"临时"共享的计算机上运行它时，它说共享不存在…什么时候呢?

 strComputer = "." 
 Set objWMIService = GetObject("winmgmts:" _
     & "{impersonationLevel=impersonate}!\" & strComputer & "rootcimv2")
 strShareName = "temp" 
  Set colShares = objWMIService.ExecQuery("Select * from Win32_Share Where Name = '" & strShareName & "'")
 For each objShare in colShares 
 If (Err.Number <> 0) Then 
 WScript.Echo "Share Exists" 
 Else 
 Wscript.Echo "Share Does not exists" 
 End If 
 Next

Answer 1

你的'如果存在'逻辑是错误的。变化:

If (Err.Number <> 0) Then

If (Err.Number = 0) Then

在本例中为Err。数字为0(即没有错误)表示共享存在