![]() |
Tipp 0059
|
System-Informationen auslesen ( WMI)
|
 |
|
Autor/Einsender: Datum: |
|
Konstantin Merz 26.10.2004 |
|
Entwicklungsumgebung: |
|
VB.Net 2003 |
Framework: |
|
1.1 |
|
|
Dieses einfache Konsolenprogramm gibt fast alle Informationen des Rechners wieder,
z. B. Rechnername, Betriebssystem, Domain, usw.
|
Möglich ist das durch die WMI-Klassen im Namespace System.Management:
ManagementObjectSearcher, ManagementObjectCollection,
ManagementObject und PropertyData.
|
|
|
Class Class1
Public mos As Management.ManagementObjectSearcher
Shared Sub Main()
Dim mos As Management.ManagementObjectSearcher
Dim moc As Management.ManagementObjectCollection
Dim mo As Management.ManagementObject
Dim pd As Management.PropertyData
Console.WriteLine("Weiter mit ENTER!")
Console.ReadLine()
Console.WriteLine( _
"Die Eigenschaften aller Laufwerke auslesen:")
mos = New Management.ManagementObjectSearcher( _
"select * from win32_logicaldisk")
moc = mos.Get()
For Each mo In moc
Console.WriteLine("------------")
For Each pd In mo.Properties
Try
Console.WriteLine(pd.Name + " = " + pd.Value.ToString)
Catch
End Try
Next
Console.ReadLine()
Next
moc.Dispose()
mos.Dispose()
Class1.computer()
Console.ReadLine()
Class1.domain()
Console.ReadLine()
Class1.os()
Console.ReadLine()
Class1.shutdown()
Console.ReadLine()
Class1.systemdir()
Console.ReadLine()
Class1.user1()
Console.ReadLine()
Console.WriteLine(user)
Console.ReadLine()
Console.WriteLine(Environment.CommandLine)
Console.ReadLine()
Console.WriteLine("Ende.")
Console.ReadLine()
Class1.enter()
Console.ReadLine()
End Sub
Shared Sub enter()
Console.WriteLine("Beenden mit ENTER.")
End Sub
Shared Sub computer()
Console.WriteLine("Computername: " & Environment.MachineName)
End Sub
Shared Sub shutdown()
Console.WriteLine("Shutdown: " &
Environment.HasShutdownStarted)
End Sub
Shared Sub systemdir()
Console.WriteLine("System-Ordner: " & _
Environment.SystemDirectory)
End Sub
Shared Sub domain()
Console.WriteLine("Aktive Domain: " & _
Environment.UserDomainName)
End Sub
Shared Sub os()
Console.WriteLine(Environment.OSVersion)
End Sub
Shared Sub user1()
Console.WriteLine("Aktiver User: " & Environment.UserName)
End Sub
Private _lastacces As Date
Private _lastwrite As Date
Public Sub New(ByVal s As String)
MyBase.new()
_lastwrite = Now
End Sub
Public Function getlastacces() As Date
Return _lastacces
End Function
Public Function getlastwrite() As Date
Return _lastacces
End Function
Public Shared Property user()
Get
Return user
End Get
Set(ByVal s)
user = s
End Set
End Property
End Class
|
|
|
|
|
Windows-Version |
98/SE |
 |
|
ME |
 |
|
NT |
 |
|
2000 |
 |
|
XP |
 |
|
Vista |
 |
|
Win
7 |
 |
|
|
|
Download (6,2 kB)
|
Downloads bisher: [ 1367 ]
|
|
|