2017年11月
      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に変える。 »