![]() |
Вывод результатов 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 Заранее спасибо! |
Цитата:
Цитата:
Цитата:
Код:
>"C:\results\%computername%.txt" cscript.exe //nologo "Путь к скрипту.vbs" Цитата:
Цитата:
|
Цитата:
Цитата:
|
Ну, например:
Код:
Option Explicit |
Время: 22:23. |
Время: 22:23.
© OSzone.net 2001-