Networking VBScript，网络文件夹resscource

我想尝试自动生成网络文件夹快捷方式。我可以用VBScript来完成这项工作吗

我找到了，但它只创建了一个正常的快捷方式

第一次尝试：

 Dim sh As New Shell32.Shell
 Dim fld As Shell32.Folder = sh.NameSpace("C:\")
 ' Schließen des Streams nicht vergessen(angehängtes .Close())

 IO.File.Create("C:\obj.lnk").Close() 
 Dim fi As Shell32.FolderItem = fld.ParseName("obj.lnk")
 If fi.IsLink Then
     Dim slo As Shell32.ShellLinkObject = DirectCast(fi.GetLink(), Shell32.ShellLinkObject)
     slo.Path = "C:\folder0" 'Ziel der Verknüpfung
     slo.Description = "Beschreibung"
     slo.Save()
 End If

（）

第二次尝试：

此解决方案类似于手动方式，但链接路径始终是folderpath文件的根：-(

Set objFSO=CreateObject（“Scripting.FileSystemObject”）
linkpath=“C:\Users\freyd\AppData\Roaming\Microsoft\Windows\Network Shortcuts\MHG\u Daten”
folderpath=“\\srv-014\MHG\u日期”
如果objFSO.Folderexists（linkpath）=false，则
设置WshShell=WScript.CreateObject（“WScript.Shell”）
linkcmd=“mklink/D”+++++++linkpath+++++folderpath++”
cmd=“cmd/C”&linkcmd
WshShell.runcmd，4，True
如果

结束“正常”快捷方式是什么意思？正常快捷方式与“网络”快捷方式有何不同？抱歉，这是正确的链接…网络文件夹快捷方式看起来像是使用mklink创建的文件夹。但它显示为映射的网络文件夹，但没有驱动器号