Détecter les péripériques connectés

dim i

alpha 2
top 2,5
left 2,10
caption 2,"Disques :"

list 1
left 1,5
top 1,25
width 1,100
height 1,150
width 0,118
height 0,217
caption 0,""
item_add 1,"Recherche..."
wait 500
for i=65 to 90
  if dir_exists(chr$(i)+":\")=1 then item_add 1,chr$(i)+":\"
  if i=65 then item_delete 1,1
next i

dim i
alpha 2: top 2,5: left 2,50: caption 2,"Disques :"
list 1: left 1,50: top 1,25: width 1,80: height 1,150
width 0,160: height 0,420: caption 0,""
item_add 1,"Recherche..."
for i=65 to 90
  print " "+chr$(i)
  if dir_exists(chr$(i)+":\")=1 then item_add 1,chr$(i)+":\"
  if i=65 then item_delete 1,1
next i
end

' Liste des volumes montés et actifs avec leur nom
dim fm$, vo$, a$, c$, nv, i
dim v$(20)

fm$ = "Z:\temp"

EXECUTE_WAIT "Command.com /c fsutil fsinfo drives >" + fm$: ' liste de tous les volumes
File_Open_Read 1, fm$
File_ReadLN 1, vo$: File_ReadLn 1, vo$
File_Close 1
nv = 0
FOR i = 12 TO LEN(vo$) STEP 4
    c$ = MID$(vo$, i, 2)
    EXECUTE_WAIT "Command.com /c fsutil fsinfo volumeinfo " + c$ + " >" + fm$
    File_Open_Read 1, fm$
    FILE_READLN 1, a$
    IF LEFT$(a$, 6) <> "Erreur": ' (si volume non actif)
        nv = nv + 1: v$(nv) = c$ + " " + MID$(a$, 17, LEN(a$)-17+1)
    END_IF
    FILE_CLOSE 1
NEXT i
FOR i = 1 TO nv: PRINT v$(i): NEXT i: ' juste pour voir le résultat
END

for i=67 to 90
  if dir_exists(chr$(i)+":\")=1 then item_add 1,chr$(i)+":\"
next i

dim i
alpha 2: top 2,5: left 2,10: caption 2,"Disques :"

list 1: left 1,5: top 1,25: width 1,100: height 1,150
for i=67 to 90
  message chr$(i)
  if dir_exists(chr$(i)+":\")=1 then item_add 1,chr$(i)+":\"
next i

DIM fscr$, fvol$, a$
fscr$ = "Z:\Vol.vbs": ' --------- A AJUSTER ---------
fvol$ = "Z:\Volumes.txt": ' --------- A AJUSTER ---------
DATA "' ----------------------------------------------------------"
DATA "' Script donnant les caractéristiques des disques de l'ordinateur"
DATA "' ----------------------------------------------------------"
DATA "typeD=Array("+CHR$(34)+"Inconnu"+CHR$(34)+","+CHR$(34)+"Amovible"+CHR$(34)+","+CHR$(34)+"Fixe"+CHR$(34)+","+CHR$(34)+"Réseau"+CHR$(34)+","+CHR$(34)+"CD-ROM"+CHR$(34)+","+CHR$(34)+"RAM Disk"+CHR$(34)+")"
DATA "Dim net, shell, computer, fso, WMISet,oWinnt"
DATA "Set net  = Wscript.CreateObject("+CHR$(34)+"WScript.Network"+CHR$(34)+")"
DATA "Set shell = WScript.CreateObject("+CHR$(34)+"WScript.Shell"+CHR$(34)+")"
DATA "Set fso  = WScript.CreateObject("+CHR$(34)+"Scripting.FileSystemObject"+CHR$(34)+")"
DATA ""
DATA "computer=net.ComputerName"
DATA "InfosDisques Computer "
DATA "wscript.quit"
DATA ""
DATA "Sub InfosDisques(computer)"
DATA "set WMISet = GetObject("+CHR$(34)+"winmgmts:{impersonationLevel=impersonate}!//"+CHR$(34)+" & Computer).ExecQuery _"
DATA "   ("+CHR$(34)+"SELECT * FROM Win32_LogicalDisk"+CHR$(34)+")"
DATA "Message="+CHR$(34)+""+CHR$(34)+""
DATA "Mega=1048576"
DATA "For each Disk in WMISet"
DATA "  Capa=Disk.Size"
DATA "  Desc=TypeD(Disk.DriveType-1)"
DATA "  If Capa<>"+CHR$(34)+""+CHR$(34)+" Then"
DATA "    Name=Disk.VolumeName"
DATA "    Serial=Disk.VolumeSerialNumber"
DATA "    TT=int(cdbl(Capa)/mega)"
DATA "    TL=int(cdbl(Disk.FreeSpace)/mega)"
DATA "    Syst=Disk.FileSystem"
DATA "    If TT>0 Then"
DATA "      pc=int(TL*100/TT)"
DATA "    Else"
DATA "      pc="+CHR$(34)+""+CHR$(34)+""
DATA "    End If"
DATA "  Else"
DATA "    Name="+CHR$(34)+""+CHR$(34)+""
DATA "    Serial="+CHR$(34)+""+CHR$(34)+""
DATA "    TT="+CHR$(34)+""+CHR$(34)+""
DATA "    TL="+CHR$(34)+""+CHR$(34)+""
DATA "    Syst="+CHR$(34)+"non prêt"+CHR$(34)+""
DATA "    pc="+CHR$(34)+""+CHR$(34)+""
DATA "  End If"
DATA "  Message=Message & Disk.Name & "+CHR$(34)+" "+CHR$(34)+" & FormatStrL(name,11)"
DATA "  Message=Message & VBCRLF "
DATA "Next"
DATA "wscript.echo Message"
DATA "End Sub"
DATA ""
DATA "Function FormatStrL(ch,lmax)"
DATA "l=len(ch)"
DATA "If l<lmax Then "
DATA "  For k = l+1 To lmax"
DATA "    ch=ch & "+CHR$(34)+" "+CHR$(34)+""
DATA "  Next"
DATA "End If"
DATA "FormatStrL=ch"
DATA "End Function"
DATA "f"
FILE_OPEN_WRITE 1, fscr$
READ a$
WHILE a$ <> "f": FILE_WRITELN 1, a$: READ a$: END_WHILE
FILE_CLOSE 1
EXECUTE_WAIT "Cmd.exe /c " + fscr$ + " >" + fvol$
LIST 1: WIDTH 1, 200: HEIGHT 1, 300
FILE_LOAD 1, fvol$
END

EXECUTE_WAIT "wscript.exe " + "C:\temp\vol.vbs"