Компьютерный форум OSzone.net  

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)
-   Скриптовые языки администрирования Windows (http://forum.oszone.net/forumdisplay.php?f=102)
-   -   Вывод результатов VBS скрипта в txt файл (http://forum.oszone.net/showthread.php?t=318551)

Ran_live 07-09-2016 12:01 2666470

Вывод результатов VBS скрипта в txt файл
 
Здравствуйте!
Есть скрипт, который проверяет версию 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 07-09-2016 12:34 2666477

Цитата:

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

Не только.

Цитата:

Цитата Ran_live
Собственно вот он: »

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


Цитата:

Цитата Ran_live
1) Сохранять результаты скрипта в txt файл, расположенный допустим в C:\results\%computername%.txt (допустим так) »

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

>"C:\results\%computername%.txt" cscript.exe //nologo "Путь к скрипту.vbs"
Цитата:

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

Не вижу смысла.

Цитата:

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

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

Ran_live 07-09-2016 13:00 2666484

Цитата:

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

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

Цитата:

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

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

Iska 07-09-2016 15:13 2666519

Ну, например:
Код:

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



Время: 22:23.

Время: 22:23.
© OSzone.net 2001-