[D_e_n_n]

вот так вроде работет

Set FSO = CreateObject("Scripting.FileSystemObject")
Set f = FSO.GetFile("C:\vdisk.vhd")
GetFileSize = f.Size
GetFileSize=GetFileSize/1024
If GetFileSize>4048576 Then

Wscript.Echo GetFileSize
End if