映射盘 已经做了，但还是不方便，想再人性化点，把共享目录路径也映射到桌面上，搜索看到 VBS 方式实现帖子，但测试后，发现些问题：
1.VBS
Set WshShell = WScript.CreateObject("WScript.Shell")
strDesktop = WshShell.SpecialFolders("Desktop") :'特殊文件夹“桌面”
set oShellLink = WshShell.CreateShortcut(strDesktop & "\网络共享.lnk")
oShellLink.TargetPath = "\\aaa\域用户目录" : '目标
oShellLink.WindowStyle = 3 :'参数1默认窗口激活，参数3最大化激活，参数7最小化
oShellLink.Hotkey = "Ctrl+Alt+e" : '快捷键
oShellLink.IconLocation = "fsmgmt.msc" : '图标
oShellLink.Description = "记事本快捷方式" : '备注
oShellLink.WorkingDirectory = strDesktop : '起始位置
oShellLink.Save : '创建保存快捷方式
问题如下：
我共享得目录都是以用户名称创建，如：
张三，登录名：ZS，目录共享名=共享目录-ZS$
李四，登录名：LS，目录共享名=共享目录-LS$
映射盘 P 用 ‘共享目录-%username%$’ 方式完成并得到：
共享目录-ZS
共享目录-LS
但用下面得 VBS 再为客户端创建 桌面快捷方式时，%username% 没法用，要如何解决？
set oShellLink = WshShell.CreateShortcut(strDesktop & "\网络共享.lnk")
这里想实现 创建以 当前用户登录名 作为快捷方式名称....
oShellLink.TargetPath = "\\aaa\域用户目录" : '目标
1.这里想实现 以当前登录用户名 作为 共享目录名称（按共享规则自动链接到各自对应用户目录）
2.还有，如果想实现判断网络路径是否能链接，链接执行P，否则退出，如何写？搜索没找到关于判断网络帖子
VBS 弱弱，唉
[ Last edited by leton on 2007-7-3 at 12:59 PM ]
1.VBS
Set WshShell = WScript.CreateObject("WScript.Shell")
strDesktop = WshShell.SpecialFolders("Desktop") :'特殊文件夹“桌面”
set oShellLink = WshShell.CreateShortcut(strDesktop & "\网络共享.lnk")
oShellLink.TargetPath = "\\aaa\域用户目录" : '目标
oShellLink.WindowStyle = 3 :'参数1默认窗口激活，参数3最大化激活，参数7最小化
oShellLink.Hotkey = "Ctrl+Alt+e" : '快捷键
oShellLink.IconLocation = "fsmgmt.msc" : '图标
oShellLink.Description = "记事本快捷方式" : '备注
oShellLink.WorkingDirectory = strDesktop : '起始位置
oShellLink.Save : '创建保存快捷方式
问题如下：
我共享得目录都是以用户名称创建，如：
张三，登录名：ZS，目录共享名=共享目录-ZS$
李四，登录名：LS，目录共享名=共享目录-LS$
映射盘 P 用 ‘共享目录-%username%$’ 方式完成并得到：
共享目录-ZS
共享目录-LS
但用下面得 VBS 再为客户端创建 桌面快捷方式时，%username% 没法用，要如何解决？
set oShellLink = WshShell.CreateShortcut(strDesktop & "\网络共享.lnk")
这里想实现 创建以 当前用户登录名 作为快捷方式名称....
oShellLink.TargetPath = "\\aaa\域用户目录" : '目标
1.这里想实现 以当前登录用户名 作为 共享目录名称（按共享规则自动链接到各自对应用户目录）
2.还有，如果想实现判断网络路径是否能链接，链接执行P，否则退出，如何写？搜索没找到关于判断网络帖子
VBS 弱弱，唉
[ Last edited by leton on 2007-7-3 at 12:59 PM ]