Проверьте, существует ли доля - если да, то продолжайте

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

В этом случае номер Err.Number 0 (т. Е. Без ошибок) будет означать, что доля существует.