VBScript，网络文件夹resscource

Question

我想尝试自动生成网络文件夹快捷方式。我可以用VBScript做到这一点吗？

我找到了this tutorial，但它只创建了一个普通的快捷方式

首先尝试：

 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

（Source）

第二次尝试：

此解决方案看起来类似于手动方式，但linkpath始终是文件夹路径文件的根目录： - （

Set objFSO = CreateObject("Scripting.FileSystemObject") 

linkpath = "C:\Users\freyd\AppData\Roaming\Microsoft\Windows\Network Shortcuts\MHG_Daten"
folderpath = "\\srv-014\MHG_Daten"
	
if objFSO.Folderexists(linkpath) = false then
	
	set WshShell = WScript.CreateObject("WScript.Shell")

	linkcmd = "mklink /D" + " " + """" + linkpath + """" + " " + """" + folderpath + """"
	cmd = "cmd /C " & linkcmd
	WshShell.Run cmd, 4, True

end if