-
VBSCRIPT > les disques
VÉRIFIER SI UN DISQUE EXISTE
Function DriveExist(drv) Dim oFSO, msg Set oFSO = CreateObject("Scripting.FileSystemObject") If oFSO.DriveExists(drv) Then DriveExist = True Else DriveExist = False End If End Function Msgbox DriveExist("D:\") MsgBox DriveExist("D")
INFOS SUR LES DISQUES
set fso = CreateObject("Scripting.FileSystemObject") set drive = fso.GetDrive("D") Wscript.Echo "AvailableSpace =", drive.AvailableSpace Wscript.Echo "DriveLetter =", drive.DriveLetter Wscript.Echo "DriveType =", drive.DriveType Wscript.Echo "FileSystem =", drive.FileSystem Wscript.Echo "FreeSpace =", drive.FreeSpace Wscript.Echo "IsReady =", drive.IsReady Wscript.Echo "Path =", drive.Path Wscript.Echo "RootFolder =", drive.RootFolder Wscript.Echo "SerialNumber =", drive.SerialNumber Wscript.Echo "ShareName =", drive.ShareName Wscript.Echo "TotalSize =", drive.TotalSize Wscript.Echo "VolumeName =", drive.VolumeName
you get this output
AvailableSpace = 716756209664 DriveLetter = D DriveType = 2 FileSystem = NTFS FreeSpace = 716756209664 IsReady = -1 Path = D: RootFolder = D:\ SerialNumber = 912945059 ShareName = TotalSize = 1856350711808 VolumeName = TOTO
—
dim objFSO, colDrives, objDrive, aff, tempaff Set objFSO = CreateObject("Scripting.FileSystemObject") Set colDrives = objFSO.Drives For Each objDrive in colDrives if (objDrive.IsReady = true) then aff = "LETTRE DU DISQUE : " & objDrive.DriveLetter & vbcrlf aff = aff & "NOM DU DISQUE : " & objDrive.VolumeName & vbcrlf aff = aff & "NUMERO DE SERIE : " & objDrive.SerialNumber & vbcrlf aff = aff & "TYPE DE DISQUE : " & objDrive.DriveType & vbcrlf aff = aff & "SYSTEME DE FICHIERS : " & objDrive.FileSystem & vbcrlf aff = aff & "PATH : " & objDrive.Path & vbcrlf aff = aff & "DOSSIER RACINE : " & objDrive.RootFolder & vbcrlf aff = aff & "ESPACE TOTAL : " & objDrive.TotalSize & vbcrlf aff = aff & "ESPACE DISPONIBLE : " & objDrive.AvailableSpace & vbcrlf if (objDrive.ShareName <> "") then aff = aff & vbcrlf & "NOM DE PARTAGE : " & objDrive.ShareName end if MsgBox aff, vbInformation, "DiskInfo(brol)" else Wscript.Echo "DISQUE " & objDrive.DriveLetter & " NON PRET" end if Next Wscript.Echo colDrives.count & " DISQUES AFFICHES"
—
Sub ShowDriveInfo(drvpath) Dim fs, d, s, t Set fs = CreateObject("Scripting.FileSystemObject") Set d = fs.GetDrive(drvpath) Select Case d.DriveType Case 0: t = "Unknown" Case 1: t = "Removable" Case 2: t = "Fixed" Case 3: t = "Network" Case 4: t = "CD-ROM" Case 5: t = "RAM Disk" End Select s = "Drive " & d.DriveLetter & ": - " & t If d.IsReady Then s = s & vbCrLf & "Drive is Ready." Else s = s & vbCrLf & "Drive is not Ready." End If Response.Write s End Sub
—