Вывод результатов VBS скрипта в txt файл

[Ran_live]

Здравствуйте!
Есть скрипт, который проверяет версию Internet Explorer'a.

Собственно вот он:

____________________________________________________________________________________________________ ____________

Option Explicit

Dim objWord

With WScript.CreateObject("WScript.Network")
WScript.Echo "Computer name: " & .ComputerName
WScript.Echo "User name: " & .UserDomain & "\" & .UserName
End With

On Error Resume Next
Set objWord = WScript.CreateObject("Word.Application")

If Err.Number = 0 Then

On Error Goto 0

End If

With WScript.CreateObject("InternetExplorer.Application")
WScript.Echo "Internet Explorer version: " & WScript.CreateObject("Scripting.FileSystemObject").GetFileVersion(.FullName)
.Quit
End With

WScript.Quit 0

____________________________________________________________________________________________________ ____________

Помогите пожалуйста дописать несколько условий:

1) Сохранять результаты скрипта в txt файл, расположенный допустим в C:\results\%computername%.txt (допустим так)
2) Если версия Internet Explorer равна 11.0, то к названию txt файла %computername%.txt дописывалось допустим OK (Например %computername%_OK.txt)
3) Если версия Internet Explorer < 11.0, то запускался .exe файл допустим из той же папки C:\results\IE setup\IE 11.exe

Заранее спасибо!

[Iska]

Есть скрипт, который проверяет версию Internet Explorer'a. »
Не только.

Собственно вот он: »
Пожалуйста, освойте на будущее использование тэга «code» для оформления кода.

1) Сохранять результаты скрипта в txt файл, расположенный допустим в C:\results\%computername%.txt (допустим так) »
Оформите вызов скрипта как:
>"C:\results\%computername%.txt" cscript.exe //nologo "Путь к скрипту.vbs"

2) Если версия Internet Explorer равна 11.0, то к названию txt файла %computername%.txt дописывалось допустим OK (Например %computername%_OK.txt) »
Не вижу смысла.

3) Если версия Internet Explorer < 11.0, то запускался .exe файл допустим из той же папки C:\results\IE setup\IE 11.exe »
Озвучьте Вашу задачу целиком.

[Ran_live]

Озвучьте Вашу задачу целиком. »

Озвучиваю. Есть необходимость перехода на Internet Explorer 11. У некоторых сотрудников уже стоит 11-я версия, а кто-то сидит на 9 и 10. Хотелось бы при запуске скрипта проверить эту самую версию и выполнить пункт 3)

Оформите вызов скрипта как: »

С выводом результата в txt файл уже разобрался, спасибо!

[Iska]

Ну, например:
Option Explicit

With WScript.CreateObject("InternetExplorer.Application")
If CLng(Split(WScript.CreateObject("Scripting.FileSystemObject").GetFileVersion(.FullName), ".")(0)) < 11 Then
WScript.CreateObject("WScript.Shell").Run """C:\results\IE setup\IE11-Windows6.1-x86-ru-ru.exe"" /passive /update-no", 1, True
End If

.Quit
End With

WScript.Quit 0