home *** CD-ROM | disk | FTP | other *** search
/ PC Welt 2002 February / PC-WELT 02-2002.ISO / software / prx / codec / codec.vbs < prev    next >
Encoding:
Text File  |  2001-11-16  |  1.0 KB  |  32 lines
  1. Set wmi = GetObject("winmgmts:").InstancesOf("Win32_CodecFile")
  2. Set MyFiles = CreateObject("Scripting.FileSystemObject")
  3. on error resume next
  4. If err.number<>0 then
  5. MsgBox "Die Windows Management Instrumentation (WMI) ist nicht installiert!" & VBCR & VBCR & "Sie k÷nnen es unter:" & VBCR & VBCR & "http://msdn.microsoft.com/msdn-files/027/001/576/Search.asp" & VBCR & VBCR & "kostenlos herunterladen (ca 6,5 MB)"
  6. WScript.Quit
  7. end if
  8. on error goto 0
  9.  
  10. Set CodecTxt = MyFiles.CreateTextFile("c:\codec.txt", True)
  11. CodecTxt.WriteLine
  12. CodecTxt.WriteLine("Name" & vbTab & vbTab & "Hersteller " & vbTab & vbTab & "Beschreibung") 
  13. CodecTxt.WriteLine
  14.  
  15. For each Objekt in wmi
  16.   
  17.   Info1 = Objekt.FileName
  18.    If len(Info1) < 8 Then 
  19.       Info1 = CStr(Info1 & " " & " " & " " & " ")
  20.    Else Info1 = Info1
  21.    End If
  22.   Info3 = Objekt.Manufacturer   
  23.   Info2 = Objekt.Description
  24.    If len(Info2) < 36 Then
  25.       Info2 = CStr(Info2 & "          ")
  26.    Else Info2 = Info2
  27.    End If
  28. CodecTxt.WriteLine(Info1 & " " & vbTab & Info2 & vbTab & Info3)
  29.  
  30. Next
  31.  
  32.