07/01/30 14:09:33 OWpQK3HG0
'[crb.vbs]
Option Explicit
If WScript.Arguments.Count <> 1 Then
WScript.Echo "[usage] crb.vbs listfile"
WScript.Quit
End If
Dim list
list = WScript.Arguments.Item(0)
On Error Resume Next
Dim fso
Set fso = WScript.CreateObject("Scripting.FileSystemObject")
If Err.Number <> 0 Then
WScript.Echo Err.Description
Set fso = Nothing
WScript.Quit
End If
Dim inputFile
Set inputFile = fso.OpenTextFile(list)
If Err.Number <> 0 Then
WScript.Echo Err.Description
Set fso = Nothing
Set inputFile = Nothing
WScript.Quit
End If