[решено] Проверка существования и доступности сетевой папки

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- Скриптовые языки администрирования Windows (http://forum.oszone.net/forumdisplay.php?f=102)

- - [решено] Проверка существования и доступности сетевой папки (http://forum.oszone.net/showthread.php?t=225048)

white155

12-01-2012 16:59 1834062

Проверка существования и доступности сетевой папки

Мой вариант создать файлик, если файлик не создался, то и ресурс недоступен, есть ли ещё какие способы?

Iska	12-01-2012 17:33 1834095

white155, так же, как и обычную папку:

Код:

Option Explicit



Dim strFolder

Dim objFSO





strFolder = "\\server\bla-bla-bla"



Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")



If objFSO.FolderExists(strFolder) Then

    WScript.Echo "Folder [" & strFolder & "] found"

Else

    WScript.Echo "Folder [" & strFolder & "] not found"

End If



Set objFSO = Nothing



WScript.Quit 0

Время: 15:20.