option explicit

main 
sub main

DIM fso
DIM arg
DIM f

Set fso = CreateObject("Scripting.FileSystemObject")


if wscript.Arguments.Count = 0 then

MsgBox "Must specify a file name as parameter" ,, "HSM informática" 

else

set arg = wscript.Arguments

Set f = fso.GetFile(arg(0)) 

MsgBox "Name: " & f.Name & vbcrlf & "Path: " & arg(0) & vbcrlf & "Created: " & f.DateCreated & vbcrlf & "Size:  " & FormatNumber(f.Size, 0) & " bytes" ,, "HSM informática"


end if
end sub