Prog. does match!!

<i><b>Originally posted by : paddy (p.keineus@gmx.de)</b></i><br /><br />Hi @all!!!<br /><br />I've developed a prog., but it doesn't match!<br /><br />Can anybody help me??<br /><br />Here is the code:<br /><br /><br />Option Explicit<br /><br />Dim tmp<br /><br />Main()<br /><br />'<br />************************************************** ************************<br />Sub Computerinfo ()<br /><br />Dim oSys <br />Dim txt, tmp, machine1<br />Dim i<br /><br />If tmp <> "" Then machine = tmp ' Benutzereingabe?<br /><br />On Error Resume Next ' Fehlerbehandlung aus<br /><br />Set oSys = GetObject("winmgmts:" & _<br /> "{impersonationLevel=impersonate}" & _<br /> "!//" & machine1 & "/root/cimv2:Win32_ComputerSystem=""" & _<br /> machine1 & """")<br />If err <> 0 then ' Fehler aufgetreten? <br /> WScript.Echo "Fehler: " & err.number & vbCRLF & _<br /> err.description <br /> WScript.Quit ' kein Objekt vorhanden, exit<br />End if<br />On Error Goto 0<br /><br />' Lese Daten der Maschine<br />txt = "Systeminformationen von Maschine: " & machine1 & vbCRLF<br />txt = txt & "Name: " & oSYS.Name & vbCRLF<br />txt = txt & "Domain: " & oSYS.Domain & vbCRLF<br />txt = txt & "Aktueller Benutzer: " & oSYS.UserName & vbCRLF<br />txt = txt & "Primärer Benutzername: " & oSYS.PrimaryOwnerName & vbCRLF & vbCRLF<br />txt = txt & "Beschreibung: " & oSYS.Description & vbCRLF<br />txt = txt & "Hersteller: " & oSYS.Manufacturer & vbCRLF<br />txt = txt & "Modell: " & oSYS.Model & vbCRLF<br />txt = txt & "Systemtyp: " & oSYS.SystemType & vbCRLF<br />txt = txt & "Prozessoren: " & oSYS.NumberOfProcessors & vbCRLF<br />txt = txt & "Bootup-Delay: " & oSYS.SystemStartUpDelay & vbCRLF<br />txt = txt & "Bootup-Status: " & oSYS.BootUpState & vbCRLF<br />txt = txt & "Zeitzone: " & oSYS.CurrentTimeZone & vbCRLF<br />txt = txt & "Sommerzeit aktiv: " & oSYS.DayLightInEffect & vbCRLF<br />txt = txt & "Infrarotunterstützung: " & oSYS.InfraredSupported & vbCRLF<br />txt = txt & "Rolle: " & vbCRLF<br />For i = LBound(oSYS.Roles) to UBound(oSYS.Roles) <br /> txt = txt & " " & oSYS.Roles(i) & vbCRLF<br />Next<br /><br />End sub<br /><br />'************************************************* *****************<br /><br />Sub NetInfo (Machine)<br /><br /> Dim oAdapter, oWMI<br /> Dim txt, tmp, strQuery, i<br /><br /> strQuery = "Select * from Win32_NetworkAdapterConfiguration " & _<br /> "Where IPEnabled=TRUE"<br /><br /> Set oWMI = GetObject( _<br /> "winmgmts:{impersonationLevel=impersonate}" & _<br /> "!" & "//" & Machine).ExecQuery (strQuery)<br /><br /> For Each oAdapter In oWMI<br /> txt = "Adapter: " & oAdapter.Index & vbCRLF<br /> txt = txt & "Beschreibung: " & oAdapter.Caption & vbCRLF<br /> txt = txt & "IP-Addresse: "<br /> If Not IsNull(oAdapter.IPAddress) Then ' IP-Addresse gefunden<br /> For i = LBound(oAdapter.IPAddress) To UBound(oAdapter.IPAddress)<br /> txt = txt & oAdapter.IPAddress(i) & vbCRLF<br /> Next<br /> End if<br /> Next<br /><br /> MsgBox txt, vbOkOnly + vbInformation, "Netzwerk-Adapter"<br /><br />End Sub<br /><br />'************************************************* *************************<br /><br />Sub SpeicherInfo(Machine)<br /><br /> Dim oMem <br /> Dim txt<br /><br /> On Error Resume Next <br /> Set oMem = GetObject("winmgmts:" & _<br /> "{impersonationLevel=impersonate}" & _<br /> "!//" & machine & "/root/cimv2:" & _<br /> "Win32_LogicalMemoryConfiguration=""" & _<br /> "LogicalMemoryConfiguration""")<br /> If err <> 0 then ' Fehler? <br /> WScript.Echo "Fehler: " & err.number & vbCRLF & _<br /> err.description <br /> WScript.Quit <br /> End if<br /> On Error Goto 0<br /><br /> txt = "Speicher auf: " & machine & vbCRLF<br /> txt = txt & "Totaler physikal. Speicher (KByte): " & _<br /> vbTab & FormatNumber(oMem.TotalPhysicalMemory,0) & vbCRLF<br /> txt = txt & "Totaler virtueller Speicher (KByte): " & _<br /> vbTab & FormatNumber(oMem.TotalVirtualMemory,0) & vbCRLF<br /> txt = txt & "Verfügbarer virtueller Speicher (KByte): " & _<br /> vbTab & FormatNumber(oMem.AvailableVirtualMemory,0) & vbCRLF<br /> txt = txt & "Total-Page-File Größe (KByte): " & _<br /> vbTab & FormatNumber(oMem.TotalPageFileSpace,0) & vbCRLF<br /><br /> MsgBox txt, vbOkOnly + vbInformation, "Speicher-Information"<br /><br />End Sub<br /><br />'************************************************* *************************<br /><br />Sub DiskInfo()<br /><br /> Dim oDisk, drive, txt<br /><br /> drive = """C:""" ' Laufwerk<br /> txt = "Eigenschaften Logical-Disk " & drive & vbCRLF<br /><br /> Set oDisk = GetObject("winmgmts:" & _<br /> "{impersonationLevel=impersonate}" & _<br /> "!Win32_LogicalDisk=" & drive)<br /><br /> txt = txt & "Volumenname: " & oDisk.VolumeName & vbCRLF<br /> txt = txt & "Seriennummer: " & _<br /> oDisk.VolumeSerialNumber & vbCRLF<br /> txt = txt & "Laufwerkstyp: " & oDisk.DriveType & vbCRLF<br /> txt = txt & "FileSystem: " & oDisk.FileSystem & vbCRLF<br /> txt = txt & "Komprimiert: " & oDisk.Compressed & vbCRLF<br /> txt = txt & "Max. Komponentenlänge: " & _<br /> oDisk.MaximumComponentLength & vbCRLF<br /> txt = txt & "Providername:" & _<br /> oDisk.ProviderName & vbCRLF<br /><br /> MsgBox txt, vbOkOnly + vbInformation, "WMI-GetDiskInfo"<br /><br />End Sub<br /><br />'************************************************* *************************<br /><br /><br />'************************************************* *************************<br /><br />Sub Main()<br /><br /> tmp = "paddy" '*** Default Computername ***<br /><br /> tmp = InputBox ("Computername eingeben", "IP-Adresse", tmp)<br /> <br /> Call Computerinfo<br /> Call NetInfo(tmp)<br /> Call SpeicherInfo(tmp)<br /> Call DiskInfo()<br /><br />End Sub<br /><br />