1
:
batch- .
BATCH :
CLS
Start C:\Tihan\OC\III_lab\z1vbs.vbs
-:
Option Explicit
Dim Message, Title, answ, z
Dim WshShell, objEnv
Set WshShell = CreateObject ("WScript.Shell")
Set objEnv = WshShell.Environment("Process")
Message = "System Information" & vbCrLf
Message = Message & "PROMPT" & objEnv("PROMPT")& vbCrLf
Message = Message & "WinDir:" & objEnv("WINDIR") & vbCrLf
Answ = MsgBox ("Would you create your own var?(y/n)",vbYesNo,_
"Answer, please")
If answ=vbYes Then
objEnv("MyVar")= "This is your var"
end If
'reading
Message="List of System vars" & vbCrLf
For Each z in objEnv
Message = Message & z & vbCrLf
Next
Title="System Info."
MsgBox Message, vbOKOnly, Title
WshShell.Environment("Process").Remove("MyVar")
: batch-, .
2
:
, , .
-:
Option Explicit
Dim WshShell, objEnv
Set WshShell = CreateObject ("WScript.Shell")
Set objEnv = WshShell.Environment("Process")
objEnv("C:\Windows\notepad.exe") = InputBox("Vvedite put k failu i ego nazvanie")
WshShell.Run objEnv("C:\Windows\notepad.exe"),1
: , ,
3
:
.
-:
Option Explicit
dim fso, File1, File2, TS1, TS2, out_file, str_f1, str_f2
Set FSO = CreateObject("Scripting.FileSystemObject")
Set File1 = fso.GetFile("C:\Tihan\OC\III_lab\1.txt")
Set File2 = fso.GetFile("C:\Tihan\OC\III_lab\2.txt ")
Set TS1 = File1.OpenAsTextStream(1)
Set TS2 = File2.OpenAsTextStream(1)
Set out_file = FSO.CreateTextFile("C:\new\file.txt")
str_f1 = TS1.ReadAll()
str_f2 = TS2.ReadAll()
out_file.WriteLine (str_f1)
out_file.WriteLine (str_f2)
out_file.Close
: , , .
4
:
, - EXCEL. .
-:
Option Explicit
Dim fso, file, WshShell
Set fso=WScript.CreateObject("Scripting.FileSystemObject")
Set file=fso.CreateTextFile("C:\Tihan\OC\III_lab\z4bat.bat")
file.WriteLine("start Excel.exe")
file.Close
Set WshShell = CreateObject ("WScript.Shell")
|
|
|
WshShell.Run ("C:\Tihan\OC\III_lab\z4bat.bat")
: , batch-fail, Microsoft Office EXEL
5
:
batch- .
-:
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_Processor")
Set fso=WScript.CreateObject("Scripting.FileSystemObject")
Set file=fso.CreateTextFile("C:\Tihan\OC\III_lab\z5txt.txt")
For Each objItem in colItems
file.writeLine ("Current clock speed: " & objItem.CurrentClockSpeed)
file.writeLine ("Data width: " & objItem.DataWidth)
file.writeLine ("Description: " & objItem.Description)
file.writeLine ("Family: " & objItem.Family)
file.writeLine ("Cache size: " & objItem.L2CacheSize)
file.writeLine ("Load percentage: " & objItem.LoadPercentage)
file.writeLine ("Manufacturer: " & objItem.Manufacturer)
file.writeLine ("Processor ID: " & objItem.ProcessorId)
file.writeLine ("Version: " & objItem.Version)
Next
file.clouse
