Option Explicit

Const adTypeText            = 2
Const adModeReadWrite       = 3
Const adWriteLine           = 1
Const adSaveCreateOverWrite = 2


Dim objStream
Dim strContent

Set objStream = WScript.CreateObject("ADODB.Stream")

With objStream
    .Type = adTypeText
    .Mode = adModeReadWrite
    
    .Open
    .Charset = "cp866"
    
    .LoadFromFile "c:\boot.txt"
    
    ' После .LoadFromFile() текущая позиция в начале потока
    ' Читаем из потока, что прочли из файла и выводим на экран
    strContent = .ReadText
    WScript.Echo strContent
    
    ' Перемещаем текущую позицию в конец потока
    .Position = .Size
    
    ' Что-то пишем в поток, в виде строки с разделителем
    .WriteText "; Hello, world!", adWriteLine
    ' Ещё что-то пишем…
    .WriteText "; Hello, world!", adWriteLine
    
    ' Текущую позицию в начало потока
    .Position = 0
    
    ' Опять читаем из потока, что получилось, и выводим на экран
    strContent = .ReadText
    WScript.Echo strContent
    
    ' Пишем содержимое потока в новый файл
    .SaveToFile "c:\boot_bak.txt", adSaveCreateOverWrite
    
    ' Закрываем поток
    .Close
End With

Set objStream = Nothing

WScript.Quit 0

With WScript.CreateObject("ADODB.Stream")
  .Type = 2
  .Charset = "UTF-8"
...
  .Close
End With

Function ReadMPEG(FileName)
  Dim size, f
  With WScript.CreateObject("ADODB.Stream")
    .Type = 1
    .Open
    On Error Resume Next
      .LoadFromFile(FileName)
    If Err.Number = 0 Then
      On Error Goto 0
    Else
      Err.Clear
      On Error Goto 0
      Wscript.Echo("Не удается открыть файл " + FileName + ".")
      Exit Function
    End If
    size = .Size
    f = .Read
    .Close
  End With
...

Option Explicit
Dim objFSO, objArgs, Param, n
Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
Set objArgs = WScript.Arguments
n = objArgs.Count
Param = ""

If n>0 Then
  Dim i
  With New RegExp
    .Pattern = "(^.+ .+$)"
    For i=0 To n-1
      Param = Param + " " + .Replace(objArgs(i), """$1""")
    Next
  End With
End If

If Not LCase(objFSO.GetFileName(WScript.FullName)) = "cscript.exe" Then
  WScript.CreateObject("WScript.Shell").Run("CScript.exe """ + WScript.ScriptFullName + """" + Param)
  WScript.Quit(1)
End If

WScript.Echo(WScript.FullName)
WScript.Sleep(3000)

// Если это не CSCRIPT.EXE - завершить
if ( ! WScript.FullName.match(/cscript/i) ) {
    WScript.Quit();
}

WScript.Echo WScript.FullName

cscript.exe //H:CScript

wscript.exe //H:CScript

...
With objFSO.OpenTextFile(LogFile, 8, true)
    strHash = GetHash(ReadMPEG(FileName)) + " *" + FileName
    .WriteLine(strHash)
    Wscript.Echo(strHash)
    .Close
End With
...

Option Explicit
Dim Title
Title = "Сравнение MP3 файлов v.0.3a"

Const Capicom_Hash_Algorithm_SHA1    = 0
Const Capicom_Hash_Algorithm_MD2     = 1
Const Capicom_Hash_Algorithm_MD4     = 2
Const Capicom_Hash_Algorithm_MD5     = 3
Const Capicom_Hash_Algorithm_SHA_256 = 4
Const Capicom_Hash_Algorithm_SHA_384 = 5
Const Capicom_Hash_Algorithm_SHA_512 = 6

Dim objArgs, objWSHShell
Set objArgs = WScript.Arguments
Set objWSHShell = WScript.CreateObject("WScript.Shell")

If objArgs.Count=0 Then
  objWSHShell.Popup "Сравнение MP3 файлов." +vbCrLf+ "При сравнении учитывается только сам MPEG поток." +vbCrLf+ "Тэги ID3v1 и ID3v2 игнорируются." +vbCrLf+vbCrLf+ "Использование:" +vbCrLf+ WScript.ScriptName & " Каталог | Файл1 Файл2", 0, Title, 64
  WScript.Quit(1)
End If

Dim objFSO
Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")

If objArgs.Count=1 Then
  Dim FolderName
  FolderName = objFSO.GetAbsolutePathName(objArgs(0))
  If Not objFSO.FolderExists(FolderName) Then
    objWSHShell.Popup "Каталог """ + FolderName + """ не найден.", 0, Title, 48
    WScript.Quit(1)
  End If

  Dim objInitialFolder, LogFile
  Set objInitialFolder = objFSO.GetFolder(FolderName)
  LogFile = objFSO.BuildPath(FolderName, objFSO.GetBaseName(FolderName)) + ".md5"

  Call GetListFiles(objInitialFolder)
  Call BrowseFolders(objInitialFolder)

  Set objInitialFolder = Nothing
  objWSHShell.Popup "Создан файл контрольных сумм MD5:" +vbCrLf+ LogFile, 0, Title
  WScript.Quit(0)
End If

Dim FileName(1), i
For i=0 To 1
  FileName(i) = objFSO.GetAbsolutePathName(objArgs(i))
  If Not objFSO.FileExists(FileName(i)) Then
    objWSHShell.Popup "Файл """ + FileName(i) + """ не найден.", 0, Title, 48
    WScript.Quit(1)
  End If
Next

Set objArgs = Nothing
Set objFSO = Nothing

'If GetHash(ReadMPEG(FileName(0))) = GetHash(ReadMPEG(FileName(1))) Then
If ReadMPEG(FileName(0)) = ReadMPEG(FileName(1)) Then
  objWSHShell.Popup "Эти файлы одинаковы:" +vbCrLf+ FileName(0) +vbCrLf+ FileName(1), 0, Title, 64
Else
  objWSHShell.Popup "Эти файлы РАЗЛИЧАЮТСЯ:" +vbCrLf+ FileName(0) +vbCrLf+ FileName(1), 0, Title, 48
End If

Set objWSHShell = Nothing
WScript.Quit(0)
'------------------------------------------------------------------------------

Sub BrowseFolders(Folder)
  Dim objFolder
  For Each objFolder In Folder.SubFolders
    Call GetListFiles(objFolder)
    Call BrowseFolders(objFolder)
  Next
  Set objFolder = Nothing
End Sub

Sub GetListFiles(Folder)
  Dim objFile, FileName
  For Each objFile in Folder.Files
    FileName = objFile.Path
    If LCase(objFSO.GetExtensionName(FileName)) = "mp3" Then
      With objFSO.OpenTextFile(LogFile, 8, true)
    .WriteLine(GetHash(ReadMPEG(FileName)) + " *" + FileName)
    .Close
      End With
    End If
  Next
  Set objFile = Nothing
End Sub

Function ReadMPEG(FileName)
  Dim size, f
  With WScript.CreateObject("ADODB.Stream")
    .Type = 1
    .Open
    .LoadFromFile(FileName)
    size = .Size
    f = .Read
    .Close
  End With

  Dim ID3, TAG
  If size>10 And AscB(MidB(f,1,1))=73 And AscB(MidB(f,2,1))=68 And AscB(MidB(f,3,1))=51 Then
    ID3 = AscB(MidB(f,7,1))*2^21 + AscB(MidB(f,8,1))*2^14 + AscB(MidB(f,9,1))*2^7 + AscB(MidB(f,10,1)) + 10
  Else
    ID3 = 0
  End If
  If size>355 And AscB(MidB(f,size-354,1))=84 And AscB(MidB(f,size-353,1))=65 And AscB(MidB(f,size-352,1))=71 And AscB(MidB(f,size-351,1))=43 Then
      TAG = 355
  ElseIf size>128 And AscB(MidB(f,size-127,1))=84 And AscB(MidB(f,size-126,1))=65 And AscB(MidB(f,size-125,1))=71 Then
      TAG = 128
  Else
      TAG = 0
  End If
  ReadMPEG = MidB(f,ID3+1,size-ID3-TAG)
End Function

Function GetHash(arrBytes)
  With WScript.CreateObject("CAPICOM.HashedData")
    .Algorithm = Capicom_Hash_Algorithm_MD5
    .Hash arrBytes
    GetHash = .Value
  End With
End Function

If a = 1 Then b = 2 Else b = 3

If a = 1 Then
    b = 2
Else
    b = 3
End If

Dim objFSO
Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
If objFSO.FileExists(f = file1) Or objFSO.FileExists(f = file2) Then WScript.Echo(f)