System information via vb.net????????? ??????????????? ???????

[John T. Howard]

How can I get the System Information via vb.net? At a minimum, I need
that data supplied in Start|All Programs|Access ories|System
Tools|System Information and, preferably the Office Applications
subheader.

Thanks in advance,

John

[Glenn Wilson]

Alot of the system information can be collected by using WMI, make a search for the system.manageme nt namespace or WM

GW

[John T. Howard]

Can you explain that in simpler term, perhaps a code snippet? I'm
pretty much of a newbie.

Thanks,
John

[Bernie Yaeger]

Hi John,

Below code will give you so much system information that it will knock your
socks off:
Dim s As String = _

Registry.LocalM achine.OpenSubK ey( _

"SOFTWARE" _

).OpenSubKey( _

"Microsoft" _

).OpenSubKey( _

"Shared Tools" _

).OpenSubKey( _

"MSINFO" _

).GetValue( _

"Path", _

"" _

)

If File.Exists(s) Then

Process.Start(s )

End If

HTH,

Bernie Yaeger

"John T. Howard" <jo************ *@comcast.net> wrote in message
news:1t******** *************** *********@4ax.c om...

How can I get the System Information via vb.net? At a minimum, I need
that data supplied in Start|All Programs|Access ories|System
Tools|System Information and, preferably the Office Applications
subheader.

Thanks in advance,

John

[Glenn Wilson]

Here are some information on collecting drive information through WM

---------------------------------------------------------------------------------
GetDriveSerialN umber - Retrieving the serial number of the specified driv
' Retrieve the serial number of the specified driv
' Note: requires a reference to the System.Manageme nt assembl
' Example: MessageBox.Show (GetDriveSerial Number("D"c)

Function GetDriveSerialN umber(ByVal driveLetter As Char) As Strin
Dim driveFilter As String = "Win32_LogicalD isk=""" & driveLetter.ToS tring &
":""
Dim drive As New System.Manageme nt.ManagementOb ject(driveFilte r
Return drive("VolumeSe rialNumber"
End Functio
-----------------------------------------------------------------------------------
GetDriveLabel - Retrieving the label of the specified driv
' Retrieve the drive name (label) of the specified driv
' Note: requires a reference to the System.Manageme nt assembl
' Example: MessageBox.Show (GetDriveLabel( "D"c)

Function GetDriveLabel(B yVal driveLetter As Char) As Strin
Dim driveFilter As String = "Win32_LogicalD isk=""" & driveLetter.ToS tring &
":""
Dim drive As New System.Manageme nt.ManagementOb ject(driveFilte r
Return drive("VolumeNa me"
End Function

[Cor Ligthert]

Hi Bernie,

Have once a look to that information path Glen gives, that will knock really
your socks of

:-)

Cor

[Bernie Yaeger]

Hi Cor,

I don't find the system.manageme nt namespace - am I missing something?

Bernie

"Cor Ligthert" <no**********@p lanet.nl> wrote in message
news:uj******** ******@TK2MSFTN GP12.phx.gbl...

Hi Bernie,

Have once a look to that information path Glen gives, that will knock really your socks of

:-)

Cor

[Cor Ligthert]

Hi Bernie,

It is a great namespace, you can get almost everything about a computer and
the OS you never know before.

With this sample you get a disk serial number I think this sample is from
Ken (his style). However the possibilties are endless (do not forget to look
at the link I pasted bellow).

\\\
Imports System.Manageme nt
..
Dim disk As New ManagementObjec t("Win32_Logica lDisk.DeviceID= ""C:""")
Dim diskProperty As PropertyData
For Each diskProperty In disk.Properties
Console.WriteLi ne("{0} = {1}", diskProperty.Na me, diskProperty.Va lue)
Next diskProperty
///

And see this link, than you see it even more I think.

http://msdn.microsoft.com/library/de...classtopic.asp

Success

Cor

[John T. Howard]

All of this is great stuff, but I don't see how to get CPU type and
speed, amount of physical memory, number and size of hard drives, etc.

Am I missing something?

Please keep it simple.

Thanks,

John

[Cor Ligthert]

Hi John,

Look at the thread from Bernie, there I have put this in, however it is not
simple to get.

(When you know how it is of course simple)

Cor