使い道としては以下のようなもの

拡張子:txtvbswsfjsphpjavahtmlutf8sjis
var WshNetwork = new ActiveXObject("WScript.Network");
WshNetwork.MapNetworkDrive ("Z:", "\\\\night\\c$", false, "administrator", "password");


ネットワークドライブの接続したいだけなんだけど、スクリプトなのでパスワードが読めてしまう
なのでコンパイル

拡張子:txtvbswsfjsphpjavahtmlutf8sjis
jsc /t:winexe night.js


で、night.exe のできあがり
( とは言うものの、exe を開くと文字列が読めてしまうので、もう一工夫(処理は読めないので)必要ですが・・・ )

VBScript は、VB に書き換えて VBC で(書き方が少し違うので注意が必要)。
http://msdn.microsoft.com/ja-jp/library/7t9k08y5.aspx
拡張子:txtvbswsfjsphpjavahtmlutf8sjis
Module MyModule
Sub Main()

	Dim WshNetwork as Object

	WshNetwork = CreateObject("WScript.Network")
	Call WshNetwork.MapNetworkDrive ("Z:", "\\night\c$", False, "administrator", "password")

End Sub
End Module


拡張子:txtvbswsfjsphpjavahtmlutf8sjis
vbc /t:winexe night.vb



※ 実行環境には、少なくとも .NET Framework ランタイムがインストールされている必要があります
http://www.microsoft.com/downloads/details.aspx?familyid=FE6F2099-B7B4-4F47-A244-C96D69C35DEC&displaylang=ja

http://winofsql.jp/php/cnvtext/frame.htm
↑で base64 に変換して、↓のように記述

VB
拡張子:txtvbswsfjsphpjavahtmlutf8sjis
Module MyModule
Sub Main()

	Dim base64 as String = "cGFzc3dvcmQ="
	Dim BArray() as Byte = System.Convert.FromBase64String(base64)
	Dim str as String = System.Text.Encoding.GetEncoding(932).GetString(BArray)

	Dim WshNetwork as Object

	WshNetwork = CreateObject("WScript.Network")
	on error resume next
	Call WshNetwork.MapNetworkDrive ("Z:", "\\layla\hdd", False, "lightbox",str )
	on error goto 0

End Sub
End Module



Jscript
拡張子:txtvbswsfjsphpjavahtmlutf8sjis
import System;

var base64 = "cGFzc3dvcmQ=";
var BArray = System.Convert.FromBase64String(base64);
var str = System.Text.Encoding.GetEncoding(932).GetString(BArray);

var WshNetwork = new ActiveXObject("WScript.Network");

try {
	WshNetwork.MapNetworkDrive ("Z:", "\\\\layla\\hdd", false, "lightbox", str);
}
catch( e ) {
}