用批处理，如何能查询本机上有没有映射驱动器，如果有将映射驱动器里的一个文件发送到桌面快捷方式

如何能查询本机上有没有映射驱动器，，如果有将映射驱动器里的一个文件发送到桌面快捷方式
net use p: \\16.16.72.234\bfs_p bfs /user:bfs 这是我映射驱动器的信息。
最好能做一个。WIN 7 和XP可用的

@echo off
setlocal enabledelaydexpansion 
for /f "delims=" %%a in ('net use^|findstr "16.16.72.234"') do (
   for /f "tokens=2" %%b in ("%%a") do (
      if exist %%b:\ (
         set "SrcFile=%%b:\123.txt"
         set "LnkFile=%USERPROFILE%\desktop\123"
         call :CreateShort "!SrcFile!" "!LnkFile!"
     )
   )
)  
pause&exit
:CreateShort
mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(""%~2.lnk""):b.TargetPath=""%~1"":b.WorkingDirectory=""%~dp1"":b.Save:close") 上面的内容会将p盘根目录下的123.txt在桌面上创建快捷方式

不明白啊 = =！