2017年9月
          1 2
3 4 5 6 7 8 9
10 11 12 13 14 15 16
17 18 19 20 21 22 23
24 25 26 27 28 29 30
無料ブログはココログ

« PowerShellからテキストをIEウィンドウに表示する。 | トップページ | バッチファイルの中でコードページをUTF-8に変える。 »

2010年7月21日 (水)

コンソールアプリか、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

« PowerShellからテキストをIEウィンドウに表示する。 | トップページ | バッチファイルの中でコードページをUTF-8に変える。 »