Rename mapped drive with powershell

Hello,

I would like to rename mapped network drives via Powershell.

here is the script i found on the inernet and i have modified it slightly.

param($deviceID = "R:", $name ="NewTest")
$drive = Get-WmiObject "Win32_LogicalDisk WHERE DeviceID = '$DeviceID'"
    if (-not $drive) { return }                      
    $drive.VolumeName = $name
    $null = $drive.Put()
    $Drive.DeviceID

Michael