[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

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