檢查共享是否存在 - 如果是這樣，然後繼續

Question

我有下面的代碼，我想要做的就是檢查服務器上是否存在名爲「temp」的共享。如果是的話，那麼它需要繼續做一些更多的代碼，我將加入其中。

如果沒有，那麼我希望它做的是運行WDS將創建共享的其他代碼。

我知道我錯了，所以任何幫助將不勝感激！目前，當我在具有「臨時」份額的計算機上運行它時，它說共享不存在......當它發生時！

strComputer = "." 
Set objWMIService = GetObject("winmgmts:" _ 
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") 

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 

在這種情況下的0（即無差錯）的Err.Number的將意味着共享存在。