techguy1029's questions

我有一个用于压缩旧文件并删除它们的脚本。该脚本在所有其他目录中工作正常，但一个特定目录将无法工作。它会尝试将其压缩，但最终只会创建一个名为 .zip 的空 zip 文件Program.7z。这让我觉得脚本中的空格没有被正确转义。我在我的路径中使用了双引号和单引号并检查了文件路径的串联。我还没有找到它可能是什么。有任何想法吗？

Const fileZillaLogs = "C:\Program Files (x86)\Server\Logs"
Const zipProgram = """C:\Program Files\7-Zip\7zG.exe"""
Const zipArgs = "a -mx9"
Dim intZipAge
intZipAge = 7
Dim intDelAge
intDelAge = 90


Call DeleteLogFiles(fileZillaLogs, intZipAge, intDelAge)



Function DeleteLogFiles(strLogPath, intZipAge, intDelAge)
  Const bDEBUG = True
  Dim objFs
  Dim objFolder
  Dim objSubFolder
  Dim objFile
  Dim objWShell
  Dim strCommand
  Dim iResult
  Set objWShell = CreateObject("WScript.Shell")
  Set objFs = CreateObject("Scripting.FileSystemObject")
  If Right(strLogPath, 1) <> "\" Then
    strLogPath = strLogPath & "\"
  End If
  If objFs.FolderExists(strLogPath) Then
    Set objFolder = objFs.GetFolder(strLogPath)
      For Each objSubFolder in objFolder.subFolders
        DeleteLogFiles strLogPath & objSubFolder.Name, intZipAge, intDelAge
      Next
      For Each objFile in objFolder.Files
        If bDebug Then wscript.echo vbTab & "reviewing file = " & strLogPath & objFile.Name
        If DateDiff("d",objFile.DateLastModified,Date) > intDelAge Then
          If bDebug Then wscript.echo "Deleting because its old" End If
          objFs.DeleteFile(strLogPath & objFile.Name)
        Else If DateDiff("d",objFile.DateLastModified,Date) > intZipAge _
          And (Right(objFile.Name, 4) = ".log") Then
            If bDebug Then wscript.echo vbTab & "zipping file = " & objFile.Path
            strCommand = zipProgram & " " & zipArgs & " " & objFile.Path & ".7z" & " " & objFile.Path
            iResult = objWShell.Run(strCommand, 0, "false")
            If bDebug Then wscript.echo vbTab & "zipping result = " & iResult
            If bDebug Then wscript.echo vbTab & "deleting file = " & strLogPath & objFile.Name
            objFs.DeleteFile(strLogPath & objFile.Name)
            End If
        End If
      Next
    Set objFs = Nothing
    Set objFolder = Nothing
    Set objWShell = nothing
  End If
End Function

我试图跟踪用户每次远程访问计算机以及每次断开连接的时间。我正在使用 Powershell 来执行此操作。这就是我用来做这个的

Get-WinEvent -Computer $env:ComputerName -FilterHashTable @{LogName='Security';ID=4634,4672} | Select-Object @{N='User';E={$_.Properties[1].Value}},TimeCreated,ID,$MachineNameProperty

如果我错了请纠正我，但我的问题是事件 4634也可以申请失败的登录事件。我只想要成功的事件。此外，事件 4672似乎仅在管理员登录时适用，如果我错了，请再次纠正我，但我希望任何用户都能成功登录。如何仅跟踪任何用户的成功登录和断开连接？哪个事件日志最适合这个？我希望日志也能够提供用户信息。事件 ID 4624并不总是提供用户信息。

我有一个任务，每次系统内存低于 10% 时我只想运行一次。 定时任务触发器

这会一直运行到内存低于 10% 还是只运行一次？如果它运行到不到 10%，我如何让它只运行一次？

我正在运行的任务是一个 PowerShell 脚本