{var%20f='http://v.t.sina.com.cn/share/share.php?appkey=1515056452',u=z||d.location,p=['&url=',e(u),'&title=',e(t||d.title),'&source=',e(r),'&sourceUrl=',e(l),'&content=',c||'gb2312','&pic=',e(p||'')].join('');function%20a(){if(!window.open([f,p].join(''),'mb',['toolbar=0,status=0,resizable=1,width=440,height=430,left=',(s.width-440)/2,',top=',(s.height-430)/2].join('')))u.href=[f,p].join('');};if(/Firefox/.test(navigator.userAgent))setTimeout(a,0);else%20a();})(screen,document,encodeURIComponent,'','','https://www.manongdao.com/data/attach/logo/logo.png', '推荐 不美不萌又怎样 的问题《How to create shortcut to Computer on the user'》','https://www.manongdao.com/q-1212267.html','页面编码gb2312|utf-8默认gb2312'));){kind=link}
I am working on a VBScript that is to show the "Computer" icon on the desktop. I've been able to do one for IE using the following code, however as Computer is a "Special Folder" that does not seem to have an actual location I can't use the same method. Would anyone have any idea how to enable it via VBScript?
IE Shortcut code:
Set objShell = WScript.CreateObject("WScript.Shell")
'Create Shortcut for IE on desktop
allUsersDesktop = objShell.SpecialFolders("AllUsersDesktop")
usersDesktop = objShell.SpecialFolders("Desktop")
Set objShortCut = objShell.CreateShortcut(usersDesktop & "\Internet Explorer.lnk")
objShortCut.TargetPath = "C:\Program Files\Internet Explorer\iexplore.exe"
objShortCut.Description = "Open Internet Explorer"
objShortCut.Save
My Computer CLSID is
::{20D04FE0-3AEA-1069-A2D8-08002B30309D}, so the code should be:Also you can use the following shell commands as
.TargetPathvalue:E. g.
.TargetPath = "shell:::{1FA9085F-25A2-489B-85D4-86326EEDCD87}"Note, you can just enter that shell commands in explorer window as path to test them.
UPDATE
The below VBScript code helps to test some CLSIDS: shortcuts are created in
\ShortcutTestfolder on the desktop, also folder objects are created, then report is saved and opened as.htmfile.TL;DR
While this is not the standard method of creating shortcuts, in this case, it might be your best option.
Create a shortcut to "Computer" interactively with the GUI shell. To deploy the shortcut: copy that file with the script.
Explanation
Windows shortcuts (.lnk) are among a myriad of undocumented features of Windows. Though I cannot find any description of the file format, it's not terribly complicated. The fields that you can set when you create/edit them interactively are present in the file (in UCS-16LE or some similar encoding).
Normally, you can see what windows uses for the target of a shortcut when you edit the shortcut. When you look at one of the special shortcuts, Windows will hide the CLSID (or whatever it actually is)—a well-known GUID that refers to something Windows Special™. In the case of "Computer," that identifier is
::{20D04FE0-3AEA-1069-A2D8-08002B30309D}, and I suspect (!!) that it doesn't change at all when moving from computer to computer.Here's the hex dump of a shortcut I just created.
I don't see any references to anything install-specific.
If the shortcut depended on environment variables or other computer-specific details, then just copying the .lnk file would be a terrible idea. However, because doing it The Right Way™ isn't easy, copying the .lnk file should be easy and (reasonably) robust.
This should do the trick :