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