'Verbindung mit dem WMI Dienst
Set Services = GetObject("winmgmts:\\" & "." & "\root\cimv2")
 
'Variablen deklarieren
Dim  SQLabfrage, Caption, CurrentClockSpeed, Description, ExtClock, Family, _
  Level, Manufacturer, Name, Stepping
Dim file, fso
 
'Verweis auf FilesystemObject
Set fso = CreateObject("Scripting.FileSystemObject")
Const datei = "prozdaten.txt"
 
'Abfrage formulieren
SQLabfrage = "SELECT Caption, CurrentClockSpeed, Description, ExtClock, Family," & _
  "Level, Manufacturer, Name, Stepping FROM Win32_Processor"
 
'Daten ermitteln
 Set wbemObjectSet = Services.ExecQuery(SQLabfrage)
	For Each wbemObject In wbemObjectSet
		For Each objProp In wbemObject.Properties_
			If objProp.Name = "Caption" Then
				Caption = objProp.Value
			ElseIf objProp.Name = "CurrentClockSpeed" Then
				CurrentClockSpeed = objProp.Value
			ElseIf objProp.Name = "Description" Then
				Description = objProp.Value
			ElseIf objProp.Name = "ExtClock" Then
				ExtClock = objProp.Value
			ElseIf objProp.Name = "Family" Then
				Family = objProp.Value
			ElseIf objProp.Name = "Level" Then
				Level = objProp.Value
			ElseIf objProp.Name = "Manufacturer" Then
				Manufacturer = objProp.Value
			ElseIf objProp.Name = "Name" Then
				Name = objProp.Value
			ElseIf objProp.Name = "Stepping" Then
				Stepping = objProp.Value
			End If
		Next
	Next
 
'Datei schreiben
 Set File = fso.OpenTextFile(Datei, 8, True)
 File.WriteLine "Caption:           " & Caption & vbcrlf & _
 				"CurrentClockSpeed: " & CurrentClockSpeed & vbcrlf & _
 				"Description:       " & Description & vbcrlf & _
 				"ExtClock:          " & ExtClock & vbcrlf & _
 				"Family:            " & Family & vbcrlf & _
				"Level:             " & Level & vbcrlf & _
				"Manufacturer:      " & Manufacturer & vbcrlf & _
				"Name:              " & Trim(Name) & vbcrlf & _
 				"Stepping:          " & Stepping
 File.Close
 
 'Objekte zerstören :-)
 Set File = Nothing
 Set fso = Nothing
 Set wbemObjectSet = Nothing

Gruss

Markus

P.S.
- immer lachen: Es kann nur besser werden!