Блог

Главная - Вопросы по программированию - Проверьте, существует ли общий ресурс — если да, то продолжайте

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

#vbscript

#vbscript

Вопрос:

У меня есть приведенный ниже код, и все, что я хочу сделать, это проверить, существует ли на сервере общий ресурс с именем «temp». Если это произойдет, то ему нужно продолжить выполнение еще какого-то кода, который я добавлю.

Если этого не произойдет, то я хочу, чтобы это было сделано, это запустить какой-то другой фрагмент кода, который WDS создаст общий ресурс.

Я знаю, что в этом вопросе я ошибаюсь, поэтому буду признателен за любую помощь! В настоящее время, когда я запускаю его на своем компьютере, на котором есть общий ресурс «temp», он сообщает, что общий ресурс не существует…когда это произойдет!?

  strComputer = "." 
 Set objWMIService = GetObject("winmgmts:" _
     amp; "{impersonationLevel=impersonate}!\" amp; strComputer amp; "rootcimv2")

 strShareName = "temp" 
  Set colShares = objWMIService.ExecQuery("Select * from Win32_Share Where Name = '" amp; strShareName amp; "'")

 For each objShare in colShares 
 If (Err.Number <> 0) Then 
 WScript.Echo "Share Exists" 
 Else 
 Wscript.Echo "Share Does not exists" 
 End If 
 Next

Ответ №1:

У вас неправильная логика «если существует». Изменить:

 If (Err.Number <> 0) Then

Для

 If (Err.Number = 0) Then

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

Метки: