☰

通过组策略向文本文件添加行

tag-icon • tag-icon active-directory group-policy vbscript text
通过组策略向文本文件添加行

我需要使用组策略向文本文件添加两行。我无法用更新的文件替换文件，因为文件的内容在不同的机器上有所不同，但所有文件都必须用这两行新内容进行更新。可以这样做吗？

我已经知道如何使用 VBScript 替换文件，然后通过组策略应用它。

谢谢，阿卜杜拉

答案1

此 vbscript 让您大致了解它应该是什么样子。关键是打开文件进行追加，而不是写入。这将只在文本文件底部添加两行，而不管其内容如何。

Const ForAppending = 8

strFile1 = "c:\Temp\file1.txt"
strFile2 = "c:\Temp\file2.txt"

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile(strFile1, ForAppending)

objFile.WriteLine "New Text to add 1"
objFile.WriteLine "New Text to add 2"

objFile.Close

Set objFile = objFSO.OpenTextFile(strFile2, ForAppending)

objFile.WriteLine "New Text to add 1"
objFile.WriteLine "New Text to add 2"

objFile.Close

答案2

您也可以使用批处理文件来执行此操作。echo "Add this line to the end of the file." >> \\path\to\file.txt或任何其他操作。只是不要使用单个重定向操作，>否则>您会后悔的。

相关内容