Jump to content

USB Protokolliern


Der letzte Beitrag zu diesem Thema ist mehr als 180 Tage alt. Bitte erstelle einen neuen Beitrag zu Deiner Anfrage!

Empfohlene Beiträge

Geschrieben

Hallo,

 

wir machen zur zeit ein Rollout von rd. 400 XP Clients. Die Rechner haben alle USB. Da ja mittlerweile USB Anschlüsse unverzichtbar sind und wir diese nicht vollständig deaktiveren wollen (können) sollen die Anschlüsse protokolliert werden (Anschließen bzw. entfernen eines USB Gerätes ) . Kann man eine solche Protokollierung über Richtlinien aktivieren ???

 

 

Danke

 

:confused::confused::confused:

Geschrieben

Hallo,

 

wir haben zu diesem Thema mal die Software SecureNT getestet. Diese Software kann ALLE Devices abklemmen oder loggen. Allerdings braucht man dafür einen Server der das ganze Verwaltet. Die Test waren wirklich sehr Positiv.

Ich werde die VBS Scripte mal testen! Bin gespannt.

 

Gruß

Karsten

ronny3312

Geschrieben

Hi ronny3312,

 

das mit dem Abklemmen der Devices würde mich auch interessieren. Leider ist das in den VBScripts nicht enthalten.

 

Werde mal schauen, ob sich sowas per WMI in VBScript umsetzen läßt, da mich das auch brennend interessiert.

Es gibt doch für alles irgendwie Boardmittel ;)

 

Andre

Geschrieben

ja, das funktioniert, haben das per wmi/vbscript gelöst und per task wird das regelmäßig augerufen, einmal am Tag wird ein protokoll per Mail verschickt.

 

Ergebnisse werden als xml gespeichert und mit einer refrenzliste verglichen, bei abweichungen geht ebenfalls ne mail an den admin raus.

 

Wie schon vom Operator gesagt, die Bordmittel sind da.. :)

Geschrieben

Hi stanley,

 

wie habt ihr das mit der eMail Benachrichtigung gelöst? Da bastel ich gerade dran rum.

 

Außer kommerzielle Tools finde ich nur die Möglichkeit des SMTP Servers des IIS (den ich nicht installieren möchte) und via OE (steht auch nicht zur Debatte).

 

Nutzt ihr externe EXE Files?

 

Andre

Geschrieben

Habe dir einfach mal den Code dafür reinkopiert:

 

 

Dim fso, f

Set fso = CreateObject("Scripting.FileSystemObject")

Set f = fso.OpenTextFile(strFileName, 1)

Inhalt = f.ReadAll

Set objEmail = CreateObject("CDO.Message")

objEmail.From = " Absender "

objEmail.To = " Empfänger "

objEmail.Subject = "USB-Secure Protokoll vom " & date & " " & neuUSB & " neue Geräte"

objEmail.Textbody = Inhalt

objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "exchange"

objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

objEmail.Configuration.Fields.Update

objEmail.Send

Der letzte Beitrag zu diesem Thema ist mehr als 180 Tage alt. Bitte erstelle einen neuen Beitrag zu Deiner Anfrage!

Schreibe einen Kommentar

Du kannst jetzt antworten und Dich später registrieren. Falls Du bereits ein Mitglied bist, logge Dich jetzt ein.

Gast
Auf dieses Thema antworten...

×   Du hast formatierten Text eingefügt.   Formatierung jetzt entfernen

  Only 75 emoji are allowed.

×   Dein Link wurde automatisch eingebettet.   Einbetten rückgängig machen und als Link darstellen

×   Dein vorheriger Inhalt wurde wiederhergestellt.   Editor-Fenster leeren

×   Du kannst Bilder nicht direkt einfügen. Lade Bilder hoch oder lade sie von einer URL.

×
×
  • Neu erstellen...