Private Sub RenameDrive (Drive As String, NewName As String) As ResumableSub
Dim shl As Shell
shl.Initialize("shl", File.Combine(GetEnvironmentVariable("windir", "N/A"), "System32\label.exe"), Array(Drive, NewName))
shl.Run(-1)
Wait For shl_ProcessCompleted (Success As Boolean, ExitCode As Int, StdOut As String, StdErr As String)
Log(StdOut)
Log(StdErr)
Return Success And ExitCode = 0
End Sub