/// Zone.Identifier代替ストリームを付与する
function SetZoneId(s, n)
{
	if (F.FileExists(s)) try {
		F.CreateTextFile(s += ":Zone.Identifier").WriteLine("[ZoneTransfer]\r\nZoneId=" + n)
	} catch (e) {}
}

W = WScript,
A = W.Arguments,
X = ActiveXObject,
F = new X("Scripting.FileSystemObject"),
A.length > 0 ? SetZoneId(A(0), 3) : W.Echo("usage: setzone filename\n")