使用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