[p.igor.kin]

У тебя сеть с доменом??

[Iska]

Скрытый текст

Код:

Option Explicit

Dim objSWbemObjectEx

Dim arrVersionParts
Dim objWshShell


Set objWshShell = WScript.CreateObject("WScript.Shell")

For Each objSWbemObjectEx In WScript.CreateObject("WbemScripting.SWbemLocator").ConnectServer(".", "root\cimv2").ExecQuery("SELECT Version, ProductType FROM Win32_OperatingSystem WHERE Primary = 'True'")
	arrVersionParts = Split(objSWbemObjectEx.Version, ".")
	
	Select Case arrVersionParts(0)
		Case "5"
			If arrVersionParts(1) = "1" Then
				objWshShell.Run """\\server1\program1.exe""", 1, True
			End If
		Case "6"
			If arrVersionParts(1) = "1" And objSWbemObjectEx.ProductType = 1 Then
				objWshShell.Run """\\server1\program2.exe""", 1, True
			End If
		Case "10"
			If arrVersionParts(1) = "0" And objSWbemObjectEx.ProductType = 1 Then
				objWshShell.Run """\\server1\program3.exe""", 1, True
			End If
		Case Else
			' Nothing to do
	End Select
Next

Set objWshShell = Nothing

WScript.Quit 0

Существование и доступность ресурса, наличие на нём файлов никак не проверяется.

[serg_amigo]

Да, сеть с доменом

[serg_amigo]

Iska спасибо!
Ребят скрипт рабочий но есть несколько важных моментов.
Поясню.
Хочу добавить этот скрипт в GPO для автоматической установки приложений. Сложность в том, что у нас есть немного компов с ОС XP, 7 и уже 10. Программа для установки из за версий винды тоже разные. Т.е. для xp нужно установить туже программу но более старой версии т.к. на XP она уже не работает. Соответственно на 7 и 10 нужно установить новую программу. Соответственно программу ставить уже не нужно если она установлена. Алгоритм написал в теме

[Iska]

Алгоритм написал в теме »

Скрипт по алгоритму приведён выше.

Соответственно программу ставить уже не нужно если она установлена. »

Тогда озвучивайте именование приложения, где его взять, либо как точно определить, что приложение уже установлено.

[serg_amigo]

Секретов нет
Приложение называется bitrix 24
Новая версия bitrix24_desktop.exe
и старая для xp bitrix24_desktop_xp.exe

Проверить установлена или нет можно думаю как вариант по локальному каталогу C:\Program Files (x86)\Bitrix24\ это для 10 винды
а для XP C:\Program Files\Bitrix24\

Возможно лучше проверять через реестр?

[Iska]

Ох, господи… Ну, почему у них всё всегда через жёппу?!

serg_amigo, Вы пробовали их msi отсюда: Битрикс24: Десктоп-приложение для Битрикс24?

[serg_amigo]

serg_amigo, Вы пробовали их msi отсюда: Битрикс24: Десктоп-приложение для Битрикс24? »

Да, msi буду ставить на 7 и 10 для xp есть только exe-шник

[Iska]

Я правильно Вас понял, что msi один и тот же для Windows 7 и для Windows 10?