Option Explicit

Dim p4, arr, str, info, errs, warns, files

Set p4 = WScript.CreateObject("P4COM.p4")

p4.port = "1666"
p4.client = "bruno_ws"
p4.ExceptionLevel = 0
p4.connect

DisplayResult("info")

p4.disconnect
p4.parseforms
p4.connect

info = p4.run_variant("change -o")
WScript.Echo("Info: " & join(info, chr(13) & chr(10)))

files = p4.arrayvar_variant("Files")
WScript.Echo("Files: " & join(files, chr(13) & chr(10)))

sub DisplayResult(cmd)
    WScript.Echo("Cmd: " & cmd)

    info = p4.run_variant(cmd)
    WScript.Echo("Info: " & join(info, chr(13) & chr(10)))
    'for each str in arr
    '    WScript.Echo(str)
    'next

    warns = p4.Warnings_variant
    if (UBound(warns) >= 0) then
        WScript.Echo("Warnings: " & join(warns, chr(13) & chr(10)))
    end if
    errs = p4.Errors_variant
    if (UBound(errs) >= 0) then
        WScript.Echo("Errors: " & join(errs, chr(13) & chr(10)))
    end if
end sub