Jump to content

Abspielen von MP3 unterbinden....


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

Empfohlene Beiträge

Ich habe einen Ansatz, aber er funktioniert noch nicht zufriedenstellen.

Danke den Microsoft Scripting Guys und dem Scriptomatic gibts den Quellcode um die Codecs im Sytsem aufzuspüren:

 

On Error Resume Next

 

Const wbemFlagReturnImmediately = &h10

Const wbemFlagForwardOnly = &h20

 

arrComputers = Array("BAYD3321")

For Each strComputer In arrComputers

WScript.Echo

WScript.Echo "=========================================="

WScript.Echo "Computer: " & strComputer

WScript.Echo "=========================================="

 

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")

Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_CodecFile", "WQL", _

wbemFlagReturnImmediately + wbemFlagForwardOnly)

 

For Each objItem In colItems

WScript.Echo "AccessMask: " & objItem.AccessMask

WScript.Echo "Archive: " & objItem.Archive

WScript.Echo "Caption: " & objItem.Caption

WScript.Echo "Compressed: " & objItem.Compressed

WScript.Echo "CompressionMethod: " & objItem.CompressionMethod

WScript.Echo "CreationClassName: " & objItem.CreationClassName

WScript.Echo "CreationDate: " & WMIDateStringToDate(objItem.CreationDate)

WScript.Echo "CSCreationClassName: " & objItem.CSCreationClassName

WScript.Echo "CSName: " & objItem.CSName

WScript.Echo "Description: " & objItem.Description

WScript.Echo "Drive: " & objItem.Drive

WScript.Echo "EightDotThreeFileName: " & objItem.EightDotThreeFileName

WScript.Echo "Encrypted: " & objItem.Encrypted

WScript.Echo "EncryptionMethod: " & objItem.EncryptionMethod

WScript.Echo "Extension: " & objItem.Extension

WScript.Echo "FileName: " & objItem.FileName

WScript.Echo "FileSize: " & objItem.FileSize

WScript.Echo "FileType: " & objItem.FileType

WScript.Echo "FSCreationClassName: " & objItem.FSCreationClassName

WScript.Echo "FSName: " & objItem.FSName

WScript.Echo "Group: " & objItem.Group

WScript.Echo "Hidden: " & objItem.Hidden

WScript.Echo "InstallDate: " & WMIDateStringToDate(objItem.InstallDate)

WScript.Echo "InUseCount: " & objItem.InUseCount

WScript.Echo "LastAccessed: " & WMIDateStringToDate(objItem.LastAccessed)

WScript.Echo "LastModified: " & WMIDateStringToDate(objItem.LastModified)

WScript.Echo "Manufacturer: " & objItem.Manufacturer

WScript.Echo "Name: " & objItem.Name

WScript.Echo "Path: " & objItem.Path

WScript.Echo "Readable: " & objItem.Readable

WScript.Echo "Status: " & objItem.Status

WScript.Echo "System: " & objItem.System

WScript.Echo "Version: " & objItem.Version

WScript.Echo "Writeable: " & objItem.Writeable

WScript.Echo

Next

Next

 

 

Function WMIDateStringToDate(dtmDate)

WScript.Echo dtm:

WMIDateStringToDate = CDate(Mid(dtmDate, 5, 2) & "/" & _

Mid(dtmDate, 7, 2) & "/" & Left(dtmDate, 4) _

& " " & Mid (dtmDate, 9, 2) & ":" & Mid(dtmDate, 11, 2) & ":" & Mid(dtmDate,13, 2))

End Function

 

Jetzt gilt es nur noch den korrekten Codec zu finden und die Rechte zu entfernen.

Mal schauen obs klappt.

Ich berichte, wenn es klappt.

 

4077

Link zu diesem Kommentar

Ich will ja niemandem zu nahe treten, aber was soll so etwas? Ich schlage mich gerade mit einem Kundensystem herum, das von meinem Vorgänger mit "Verbotspolicies" geradezu überzogen worden ist. Lasst die Leute doch mp3 hören... Tut doch keinem weh.

 

Wie sinnhaft ist es mp3 zu verbieten und avi z.B. zu erlauben? Dann sollte man doch gleich das Abspielen sämtlicher Mediendateien über Grouppolicies verbieten, oder?

 

;-) nicht persönlich nehmen

 

Gruss das Oppossum

Link zu diesem Kommentar

Etwas am Sinn des Threads vorbei:

Und dann gleich noch alle USB Hubs deaktivieren, da man keine USB Devices, bis auf Mäuse und Tastaturen am Pc haben will

 

Und dann auch noch den Bildschirm deaktivieren, weil man darüber P***o angucken könnte..

 

Solche Aufträge würde ich auch wenn man nur einfacher mitarbeiter ist beim Chef oder noch höher direkt wieder mit folgendem Satz von einem Vorposter hier hinterfragen:

 

Lasst die Leute doch mp3 hören... Tut doch keinem weh

 

Der Folgende Satz kommt auch gut an:

 

Auf welchem Workshop habt ihr euch das wieder ausgedacht

 

Eine gute Taktik um damit umzugehen ist es einfach ruhen zu lassen oder als nicht machbar abstempeln, dann vergessen sie es irgendwann wieder und kommen in 6-12 Monaten wieder damit hervor. War bei mir zumindest mit den USB Sachen so.

Link zu diesem Kommentar
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...