Hjælp til VBscript som konvertere FAT32 til NTFS

Hej
Dette spørgsmål er oprettet i forlængelse med et andet spørgsmål http://www.eksperten.dk/spm/497368

Jeg håber der er en som kan rette fejlen i dette script.


'----- kopier linier herunder
'Konverterer FAT-enheder til NTFS.
Dim fs, d, s, i, drevbogstav, msg, enhed, sv
SW_HIDE = 0 ' Hides the window and activates another window.
SW_SHOW = 5 ' Activates the window and displays it in its current size and position.
SW_SHOWMAXIMIZED = 3 ' Activates the window and displays it as a maximized window.
SW_SHOWMINIMIZED = 2 ' Activates the window and displays it as a minimized window.
SW_SHOWMINNOACTIVE = 7 ' Displays the window as a minimized window. The active window remains active.
SW_SHOWNORMAL = 1 'Activates and displays a window.
VentPaaSvar = True 'gå ikke videre før kaldet er færdigt
On Error Resume Next
Set fs = CreateObject("Scripting.FileSystemObject")
Set WshShell = WScript.CreateObject("WScript.Shell")
For i = 0 To 20
drevbogstav = Chr(65 + i) & ":\"
Set d = fs.GetDrive(drevbogstav)
Select Case d.DriveType
Case 2 'harddiskdrev
enhed = d.DriveLetter & ":" & d.VolumeName
If d.FileSystem = "NTFS" Then
msg = msg & enhed & " er allerede NTFS" & VbCrLf
Else
msg = msg & "konverterer " & enhed & VbCrLf
sv = WshShell.Run("CONVERT " & enhed & " /FS:NTFS", SW_SHOWNORMAL, VentPaaSvar)
End If
Case Else 'ignorer (ikke harddisk)
End Select
Next
MsgBox msg
'----- kopier linier herover

Den skriver den sidste partition flere gange (det skal den ikke).

Nogle gange konvertere scriptet ikke, da der kommer et kommandopropt-vindue, hvor der står:

Filsystemtypen er FAT32.
CONVERT kan  ikke opnå eksklusiv adgang til drevet K:,
så det kan ikke konverteres nu. Skal
konvertering af drevet planlægges til næste gang,
systemet genstarter? (J/N)