VBS/WSH/JS

cameron · Конфигурация компьютера

Код:

Set WshShell = CreateObject("WScript.Shell") 
WshShell.Run "cmd.exe /c c:\your_batch.cmd", 0, false

kolumb 8034 · Отправлено: **22:50, 24-02-2013** | #3

Немного не поняли меня не подключить BAT а полностью перенести код в VBS что бы был вообще только один файл VBS без BAT

Iska · Отправлено: **23:29, 24-02-2013** | #4

kolumb 8034, не могли бы Вы объяснить глубинный смысл пятнадцатикратного пингования localhost'а, с последующей попыткой проверки кода ошибки?

kolumb 8034 · Отправлено: **23:47, 24-02-2013** | #5

Iska,
Я на примере написал localhost после там будет другой адрес !

Iska · Отправлено: **00:11, 25-02-2013** | #6

Потрясающе. kolumb 8034, не надо писать в примерах, то, что выворачивает логику наизнанку.

Вы не ответили на вопрос. Объясните словами, что Вы хотите получить. Подозреваю, что нечто такое:

Код:

Option Explicit

If IsConnected("www.google.com") Then
	' Place your code here…
End If

WScript.Quit 0
'=============================================================================

'=============================================================================
Function IsConnected(strAddress)
	Dim objSWbemObjectEx
	
	IsConnected = False
	
	For Each objSWbemObjectEx In GetObject( _
		"winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2").ExecQuery( _
		"SELECT * FROM Win32_PingStatus WHERE Address = '" & strAddress & "'")
		
		With objSWbemObjectEx
			If Not IsNull(.StatusCode) And .StatusCode = 0 Then
				IsConnected = True
			End If
		End With
		
		Exit For
	Next
	
	Set objSWbemObjectEx = Nothing
End Function
'=============================================================================

kolumb 8034 · Отправлено: **00:24, 25-02-2013** | #7

Может я немного не так написал ! Смыл такой : Есть к примеру два файла run.vbs и start.vbs start прописую в автозагрузку с указанным выше кодом при загрузке компьютера загружается start и если есть пинг к указанному адресу N количество раз подгружается run! Как то так !!!

Iska · Отправлено: **00:56, 25-02-2013** | #8

kolumb 8034, Вы не могли бы изъясняться по-русски? Очень обяжете.

Зачем «N количество раз»? Почему недостаточно одного раза? Что в «run.vbs»?

XaHAleX · Отправлено: **15:34, 30-10-2013** | #9

Iska, практически аналогичная проблема: в VBS только пытаюсь что-то натворить, поэтому хочу понять синтаксис и логику.
есть 5 батников:
1. clr.bat:

, который проверяет наличие папки и в зависимости от результата запускает один из двух батников:
2. forclr_XP.bat:

или
3. forclr_W7.bat:

, в которых получаются каталоги пользователей ПК и передаются в соответсвующие батники:
4. clrXP.bat:

5. clrW7.bat:

есть ли возможность с помощью одного скрипта на VBS выполнить те же самые операции? так как для корретного использования clr.zip требует инструкцию пользователя с указанием что запускать для работы, а что является вспомогательным инструментом.

Iska · Отправлено: **00:43, 31-10-2013** | #10

XaHAleX, полагаю, можно. Опишите словами. Подробно.