VB prog der bringer data om pc

Hej jfl.

Dr. Hardware kan vise disse data, men velsagtens ikke skrive dem til et regneark.
Dette program er ofte på magasin-CD'er, men kan vel også findes på Google og downloades i sin light-version.

Prøv ellsers  at kigge på http://www.all4you.dk/FreewareWorld/links.php
under 'System og Utilities', det skulle være mærkeligt om ikke du fandt noget dér.

M.v.h.  Jørn

Hvad der skal til - jeg vil tro, at der skal følgende til:

Mon ikke du med et par API-kald kan få fat i det meste af det du søger - om end ikke det hele?

Derefter er det ikke noget problem at få VB til at skrive det i et regneark. Mht. VB og regneark, er der masser af besvarede spørgsmål om dette i denne kategori, så søg på Excel, og du skal finde det du søger...

Her et lille eksempel på hvordan du v. API-kald får listet alle dine drev på din PC i en Listbox. Smid en Listbox på din Form, og skriv:



Option Explicit
    'GetDriveType returværdier
    Const DRIVE_REMOVABLE = 2
    Const DRIVE_FIXED = 3
    Const DRIVE_REMOTE = 4
    Const DRIVE_CDROM = 5
    Const DRIVE_RAMDISK = 6
Private Declare Function GetDriveType Lib "kernel32" _
                            Alias "GetDriveTypeA" _
                            (ByVal nDrive As String) As Long

Private Sub Form_Load()
    Dim Sys As SYSTEM_INFO
    GetSystemInfo Sys
    Find_drev
End Sub

Public Sub Find_drev()
    Dim i As Integer
    Dim Drv, D As String
   
    'All drev fra A til Z checkes
    For i = 0 To 25
        D = Chr$(i + 65) & ":\"
        Drv = GetDriveType(D)
        Select Case Drv
            Case DRIVE_REMOVABLE
                lstsystem.AddItem "Drev " & D & " er diskettedrev"
            Case DRIVE_FIXED
                lstsystem.AddItem "Drev " & D & " er harddisk"
            Case DRIVE_REMOTE
                lstsystem.AddItem "Drev " & D & " er netværksdrev"
            Case DRIVE_CDROM
                lstsystem.AddItem "Drev " & D & " er CD-ROM"
            Case DRIVE_RAMDISK
                lstsystem.AddItem "Drev " & D & " er RAM disk"
        End Select
    Next i
End Sub

PS: Yderligere systemoplysninger kan anvendes SysInfo-kontrollen. Hvis ikke den er i værktøjskassen, kan den tilføjes ved at vælge Project | Components og derefter afmærke  Microsoft Sysinfo Control 6.0 og klikke på Ok

Håber du kan komme videre nu /Martin

Her har du en perfekt illustation....

http://medlem.jubii.dk/northcode/Prog01.zip

Men denne illustration mangler dog denne diminutive funktion, ”at kunne sætte det ind i Excel” Men er det betragtelig relevant?   

Mvh.
NorthCode

Tak for points :o)
Og sikke hurtigt - godt 7 måneder ;o)

hehe.. Jeg takker også.