what about this:

del "C:\Documents and Settings\All Users\Start Menu\Programs\*.*"

$room=SubStr(@wksta,2,2)
$client=SubStr(%clientname%,2,2)
Select
Case ($room="19")
copy "\\server\room19\start menu\Programs\*.*" "C:\Documents and Settings\All Users\Start Menu\Programs\*.*"
endselect