Zum Inhalt springen

Stiffmeister

Mitglieder
  • Gesamte Inhalte

    40
  • Benutzer seit

  • Letzter Besuch

Beiträge von Stiffmeister

  1. Ich kenne keine möglichkeit dieses rein mit batch umzusetzten. Es gibt ein exe die nennt sich delage32. Runterladen und ins System32 kopieren, cmd aufrufen delage32 /? aufrufen um hilfe zu bekommen.

    oder per VBS

    Set myArguments = WScript.Arguments

    If myArguments.Count <> 1 Then

    call DisplayInfo

    Wscript.Quit (1)

    End if

    Dim heute, olddate

    heute = FormatDateTime(Date, 2)

    olddate = DateAdd("d", -30, heute)

    set objFS = CreateObject("Scripting.FilesystemObject")

    set myFolder = objFS.GetFolder(myArguments(0))

    set myFiles = myFolder.Files

    for each myfile in myFiles

    If myFile.DateCreated < olddate then

    myFile.Delete

    end if

    next

    Sub DisplayInfo

    MsgBox "Usage: deleteoldfiles.vbs [FolderPath]", vbExclamation, "Missing Argument"

    End Sub

  2. Ich habe zwei Tool ausführlich getestet

    Zabbix

    Homepage of ZABBIX :: An Enterprise-Class Open Source Distributed Monitoring Solution

    Und Zenoss

    Zenoss Home - Open Source Network Monitoring and Systems Monitoring - Zenoss

    Beide Programmen haben die selben Funktionen. Zenoss ist grafisch "schicker" aufbereitet. Jedoch hat mir persönlich Zabbix besser gefallen. Ich würde dir empfehlen beide Systeme zu testen.

    Oder wenn du nur "einfaches" monitoring betreiben willst dann das Programm Ntop

    ntop - network top

  3. Ich habe einen Postfixserver mit content filter (SPAMS werden in der Queue gehalten) am laufen, funktioniert auch so weit. Meine Frage ist, ob es eine Möglicheit gibt, Nachrichten die älter als 5 Tage sind automatisch aus der queue löschen zu lassen, ohne das ich das manuel machen muss?

  4. Danke für deine Antwort. Ist leider so, das die Installation kein Problem ist, nur möchte ich alle Funktionen Nutzen und weiß nicht genau wie, oder wo ich die Einstellungen treffen muss.

  5. Option Explicit

    '* Variablen

    Dim objNetwork, objPrinters

    Dim intLoop

    Dim blnDOS, blnWin

    '* Presets

    blnDOS = vbTrue

    blnWin = vbTrue

    '* Kommandozeile auswerten

    if Wscript.Arguments.Count > 0 then

    for intLoop = 0 to Wscript.Arguments.Count-1

    if ucase(WScript.Arguments.Item(intLoop)) = "/D" then blnDOS = vbFalse

    if ucase(WScript.Arguments.Item(intLoop)) = "/W" then blnWin = vbFalse

    next

    end if

    if (not blnDOS) AND (not blnWin) then WScript.Quit

    '* Netzdrucker auf dem aktuellen System suchen und Trennen

    Set objNetwork = WScript.CreateObject("WScript.Network")

    Set objPrinters = objNetwork.EnumPrinterConnections

    For intLoop = 0 to objPrinters.Count - 1 Step 2

    If (Left(objPrinters.Item(intLoop+1),2)="\\") then

    If (UCase(Left(objPrinters.Item(intLoop),3))="LPT") AND blnDOS then

    objNetwork.RemovePrinterConnection objPrinters.Item(intLoop),-1,-1

    ElseIf blnWin then

    objNetwork.RemovePrinterConnection objPrinters.Item(intLoop+1),-1,-1

    End If

    End If

    Next

    WScript.Quit

    Damit sollten alle Netzwerkdrucker entfernt werden. Um einen Defalt zu setzten hatte ich noch keine zeit, kannst du mir aber sagen wie du ihn default gesetzt hast?

Fachinformatiker.de, 2024 by SE Internet Services

fidelogo_small.png

Schicke uns eine Nachricht!

Fachinformatiker.de ist die größte IT-Community
rund um Ausbildung, Job, Weiterbildung für IT-Fachkräfte.

Fachinformatiker.de App

Download on the App Store
Get it on Google Play

Kontakt

Hier werben?
Oder sende eine E-Mail an

Social media u. feeds

Jobboard für Fachinformatiker und IT-Fachkräfte

×
×
  • Neu erstellen...