' Dla podanego woluminu kod prbuje uruchomi narzdzie chkdsk.
' ------ KONFIGURACJA SKRYPTU ------
strComputer = "."
strDrive = "<Napd>" ' np. D:
boolFixErrors = True  ' True = chkdsk /f, False = chkdsk
' ------ KONIEC KONFIGURACJI ---------
set objWMI = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
set objDisk = objWMI.Get("Win32_LogicalDisk.DeviceID='" & strDrive & "'")
intRC = objDisk.ChkDsk(boolFixErrors)
if intRC = 0 then
   WScript.Echo "Dziaanie narzdzia chkdsk zostao zakoczone powodzeniem."
elseif intRC = 1 then
   WScript.Echo "Uruchomienie narzdzia chkdsk zaplanowano podczas kolejnego adowania systemu."
else
   WScript.Echo "Podczas pracy narzdzia chkdsk wystpi bd: " & intRC
end if
