最後に実行された Windows ベースのプログラムの終了コード : $LastExitCode

---------------------------------------------
PS C:\ps\test> .\fc
パラメータ不足
PS C:\ps\test> .\fc a
パラメータ不足
PS C:\ps\test> .\fc a b
ファイルを開けません
PS C:\ps\test> .\fc test_001.ps1 test_001.ps1
一致
PS C:\ps\test> .\fc test_001.ps1 test_002.ps1
不一致
PS C:\ps\test>
---------------------------------------------

$LastExitCode の説明はタイトルのままでそれ以上の説明は
ありません。以下のテストは、fc.exe を使った簡単なサンプル
で、fc.exe が出力するメッセージは表示されません

fc.exe $args[0] $args[1] 2>&1 | out-null
switch ($LastExitCode){
	-1 {
		"パラメータ不足"
	}
	2 {
		"ファイルを開けません"
	}
	1 {
		"不一致"
	}
	0 {
		"一致"
	}
}

Ruby+Mechanize : Twitter へ投稿

API 使うよりもお手軽ですが、入力画面の HTML が変更されると
修正が必要です。

#!/usr/local/bin/ruby
print "Content-type: text/html\n\n"

require "cgi"
cgi = CGI.new

ENV['GEM_HOME']="/home/lightbox/gems"

$LOAD_PATH.push('/home/lightbox/lib')

require 'rubygems'
require 'mechanize'

agent = WWW::Mechanize.new
#twitterにログイン
page = agent.get("http://twitter.com/login")
form = page.forms[1]
form["session[username_or_email]"] = cgi['user'][0]
form["session[password]"] = cgi['pass'][0]
page = form.submit

#twitterのページより投稿
form = page.forms[1]
form["status"] = cgi['text'][0]
result = form.submit

print result.body

VBScript : 3メガバイト以下のWEB上のバイナリのダウンロード

比較的小さいファイルをダウンロードするのに問題無く使えます。
( 3メガバイトを超えるようなファイルは別の方法を検討します。)

Function HTTPDownload( strUrl, strPath )

	Dim objSrvHTTP,Stream

	Set objSrvHTTP = CreateObject("Msxml2.ServerXMLHTTP.3.0")
	Set Stream = CreateObject("ADODB.Stream")

	HTTPDownload = True

	on error resume next
	Call objSrvHTTP.Open("GET", strUrl, False )
	if Err.Number <> 0 then
		ErrorMessage = Err.Description
		HTTPDownload = False
		Exit Function
	end if
	on error goto 0

	objSrvHTTP.Send

	Stream.Open
	Stream.Type = 1	' バイナリ
	Stream.Write objSrvHTTP.responseBody
	Stream.SaveToFile strPath, 2
	Stream.Close

End Function

関連する記事

WEBのファイルをコマンドラインからダウンロードするスクリプト
 : httpget.vbs ( 2〜3メガまでが目安 )