1

我的脚本所做的是，首先它检查 C:\Windows\System32\winevt\Logs 中的任何存档事件文件是否超过 7 天。如果是，则删除它们。

它所做的第二件事是任何剩余的 Archive*.evtx 文件（超过 7 天的文件），它将压缩并发送到您指定的任何路径。

现在我的问题在于我的桌面运行的是 Windows 7 专业版，并且昨晚我正在对其进行最后润色时脚本运行 100% 正确。现在我的笔记本电脑运行的是 Windows Home Premium，所以今天在工作时尝试从我的笔记本电脑运行脚本突然不起作用。

它将使 zip 文件位于正确的路径中，但实际上不会在 zip 文件中放入任何内容。

现在在家里，我必须以管理员身份运行脚本才能使其工作，这需要我进行注册表编辑，我在网上找到了甚至在您右键单击 .vbs 文件时添加“以管理员身份运行”按钮。（奇怪的是，这已经不存在了，但无论如何）

所以我在我的笔记本电脑上做了同样的编辑，尝试再次运行它，同样的事情发生了。在正确的路径中清空 zip 文件。

所以接下来我发现 UAC 搞砸了它。所以我关闭了笔记本电脑上的 UAC，然后以管理员身份运行，但它仍然遇到了同样的问题。在家里我的 UAC 仍然打开并且脚本可以工作，所以我完全不确定问题是什么。

然后我想也许在我的笔记本电脑上我遇到了 C: 驱动器的权限问题或类似的奇怪问题。所以我以管理员身份打开 cmd 并运行“takeown”以确保管理员允许访问驱动器。

然后再次运行脚本，仍然遇到同样的问题。

我现在不知道为什么它不会运行，当我下班回家时，我将再次在我的桌面上尝试它，看看它是否仍然有效。（它应该，我没有对脚本进行任何更改）

如果有人能在这里帮助我，那就太棒了。我希望在今天之前完成这一切并将其设置为计划任务，以便它开始运行，但它似乎想给我带来更多问题。

该脚本在下面找到：

Option Explicit

Dim oFSO, oFolder, sDirectoryPath, sDestinationPath, sOutputFilename, Shell, sFileExt,     sFilePrefix
Dim oFileCollection, oFile, sDir 
Dim iDaysOld 


Set Shell = WScript.CreateObject("WScript.Shell")
'Specify Directory Path From Where You want to clear the old files 'Also where you want destination for zip
sDirectoryPath = "C:\Windows\System32\winevt\Logs\"
sDestinationPath = "C:\Script\files\outzips\"
sOutputFilename = shell.ExpandEnvironmentStrings("%COMPUTERNAME%")
sFileExt = ".evtx"
sFilePrefix = "Archive*"
' Specify Number of Days Old File to Delete
iDaysOld = 7

Set oFSO = CreateObject("Scripting.FileSystemObject") 
Set oFolder = oFSO.GetFolder(sDirectoryPath) 
Set oFileCollection = oFolder.Files 

For each oFile in oFileCollection
'Specify the Extension of file that you want to delete 'and the number with Number of character in the file extension
If LCase(oFSO.GetExtensionName(oFile.Name)) = ".evtx" Then

    If oFile.DateLastModified < (Date() - iDaysOld) Then 
    oFile.Delete(True) 
    End If 

End If   
Next 



Set oFSO = Nothing 
Set oFolder = Nothing 
Set oFileCollection = Nothing 
Set oFile = Nothing 




Dim Command, RetVal
Dim d : d = Date() 
Dim dateStr : dateStr = Year(d) & "-" & Right("00" & Month(d), 2) & "-" & Right("00" &     Day(d), 2)
Dim t : t = Time()
Dim timeStr: timeStr = Hour(t) & "-" & Right("00" & Minute(t), 2) & "-" & Right("00" & Second(t), 2)



Command = """C:\Program Files\7-zip\7z.exe"" a  " & sDestinationPath & sOutputFilename & "-" & dateStr & "-" & timeStr & ".zip " & sDirectoryPath & sFilePrefix & sFileExt


        RetVal = Shell.Run(Command,0,true)
4

1 回答 1

0

Ahum .. 你的文件夹 C:\Windows\System32\winevt\Logs 中可能没有像 Archive*.evtx 这样的文件吗？通常没有，我想在你的桌面上出于任何原因有所以脚本在那里工作。尝试在 command = "...." 之后放置一个 wscript.echo 并尝试在控制台上运行它。在那里更容易找出命令不运行的原因，如果它运行的机会很高，它也会在你的脚本中运行。

于 2012-06-30T21:15:42.490 回答