如何从CMD桌面上的计算机(右键单击管理选项的真正快捷方式)创建快捷方式?
答案 0 :(得分:2)
以下是一个例子:
Const MY_COMPUTER = &H11&
Dim Act, Desktop, Link, ObjF, ObjFItem, Shell
Set Act = CreateObject("Wscript.Shell")
Set Shell = CreateObject("Shell.Application")
Set ObjF = Shell.Namespace(MY_COMPUTER)
Desktop = Act.SpecialFolders("Desktop")
Set Link = Act.CreateShortcut(Desktop & "\Computer.lnk")
Set ObjFItem = ObjF.Self
Link.TargetPath = ObjFItem.Path
Link.WindowStyle = 1
Link.IconLocation = "Shell32.dll, 15"
Link.Description = "Shortcut To My Computer"
Link.WorkingDirectory = Desktop
Link.Save
.vbs
扩展名保存文件。 C:\Documents and Settings\bridge> c:\test.vbs
(假设您调用了文件test.vbs
)。