k, did some testing.
waiting for windows to update the reg first and then doing the change helped.
I have 1 drive that times out of the 2s bound but all others do hit the mark around 0,1-1,5s


;FUNCTION Label (version 1.2)
;
;AUTHOR Lonkero
;
;ACTION Read and Write Drive Label
;
;SYNTAX Label("DRIVE","LABEL")
;
;PARAMETERS
; DRIVE
; - drive to rename
; LABEL
; - new name of the drive
; to read the label, leave out
;
;RETURNS
; nothing on write.
; on read the current label.
; check @error for possible errors
;
;DEPENDENCIES
; Minimum operating systems: Windows 2000/ME
; COMerror UDF
;
;EXAMPLE
; "Current Label for C: is:"
; Label('c:')
; ? "Changing it..."
; Label('c:\','my fancy new name')
; if @error
; ? "ERROR OCCURED:" @serror
; else
; ? "New Label for C: is:"
; Label('c:')
; endif
;
;CODE
function label($_d,optional $_s)
dim $,$_l
$_l=left($_d,1)
$=createobject("shell.application")
if vartype($_s)
$_d=0
do
sleep 0.1
$_d=$_d+1
until $_d>20 or 1=readvalue("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\MountPoints\_Notif",$_l)
$.namespace($_l+":\").self.name=$_s
exit COMerror(@error)
else
$label = $.namespace(left($_l,1)+":\").self.name
exit COMerror(@error)
endif
endfunction
_________________________
!

download KiXnet