使用VBScript访问NTFS替代数据流

Question

我正在编写一个我希望能够更改区域标识符的vbscript，并将扩展属性添加到带有各种文件的范围。如果没有使用插件或类似的内容？

这是可能的吗？

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

Answer 1

您可以像其他文件一样处理广告：

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