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 exists'逻辑是错误的。变化：

If (Err.Number <> 0) Then

到

If (Err.Number = 0) Then

在这种情况下，Err.Number为0（即没有错误）意味着共享存在。

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

1 个答案: