MSCommでシリアル

http://d.hatena.ne.jp/arikui/20070507#1178522526
で、Rubyを介してやってたけど、MSCommを使えばもっと楽でした。

var comm = WScript.CreateObject("MSCommLib.MSComm");
comm.CommPort = 7;
comm.Settings = "4800,N,8,1";
comm.PortOpen = true;

var i = 0;
while(i < 10){
	i++;
	WScript.Echo(comm.Input);
	WScript.Sleep(1000);
}

ﾃﾗ楽。
追記
コメント欄で教えてもらいましたが、MSCommを利用するには開発ライセンスが必要だそうです。知らずにやってました。