vbscript - VBScriptを使用したNTFS代替データストリームへのアクセス

Question

ゾーン識別子を変更し、でさまざまなファイルに拡張属性を追加できるようにしたいVBScriptを作成しています。これは、アドオン、または以下のようなものを使用せずに可能ですか？

objShell.run("type %windir%\notepad.exe > %windir%\calc.exe:notepad.exe")

Answer 1

他のファイルと同じようにADSを処理できます。

Set fso = CreateObject("Scripting.FileSystemObject")

Set f = fso.CreateTextFile("file.exe:Zone.Identifier")
f.WriteLine "[ZoneTransfer]" & vbNewLine & "ZoneId=3"
f.Close

Set f = fso.OpenTextFile("file.exe:Zone.Identifier", 1)
WScript.Echo f.ReadAll
f.Close