コンソールアプリか、Windowsアプリか、調べる。

GetBinaryType.vbs ファイル

Set fso=CreateObject("Scripting.FileSystemObject")
Buf=fso.OpenTextFile(WScript.Arguments.Item(0),1,False,True).Read(256)
Position=AscB(MidB(Buf,1+&H3c,1))+AscB(MidB(Buf,2+&H3c,1))*256+AscB(MidB(Buf,3+&H3c,1))*256*256+AscB(MidB(Buf,4+&H3c,1))*256*256*256+(&H4+&H14+&H44)
Subsystem=AscB(MidB(Buf,1+Position,1))
Select Case Subsystem
Case 2 WScript.Echo "GUI"
Case 3 WScript.Echo "CUI"
Case Else WScript.Echo Subsystem
End Select
WScript.Quit Subsystem