zingolz.blogg.se

SpecialFolders ( "AllUsersDesktop" ) strAppPath = "" strIconPath = "%SystemRoot%\system32\SHEL元2.dll,23" objDesktop = objShell. VB.net Option Explicit Dim objShell, objDesktop, objLink Dim strAppPath, strWorkDir, strIconPath ' - ' Here are the variables that to change if you are making a 'real' script '******** Here's where objShell needs to be declared Set objShell = CreateObject ( "WScript.Shell" ) strWorkDir = objShell. Quit ' End of creating a desktop shortcut CreateShortcut ( objDesktop & "\Computer Ticket.lnk" ) ' - ' Section which adds the shortcut's key properties objLink. SpecialFolders ( "AllUsersDesktop" ) Set objLink = objShell. lnk file ' -' Option Explicit Dim objShell, objDesktop, objLink Dim strAppPath, strWorkDir, strIconPath ' - ' Here are the variables that to change if you are making a 'real' script '******** Here's where objShell needs to be declared Set objShell = CreateObject ( "WScript.Shell" ) strWorkDir = objShell. VB.net ' CreateShortCut.vbs - Create a Desktop Shortcut. I am assuming I would have to have the icon on the thumb which the scrip will move in to a new folder on the C: drive. I would like it to place the icon on all user that logon to the computer with my icon and the link to a ticketing system. My gold would be to have a scrip (vbs or bat file) on a thumb drive that I would plug in to a new computers and run it. ObjDesktop = objShell.SpecialFolders("AllUsersDesktop") StrWorkDir = objShell.SpecialFolders("AllUsersDesktop")

Text ' CreateShortCut.vbs - Create a Desktop Shortcut. ' Section which adds the shortcut's key properties

Set objLink = objShell.CreateShortcut(objDesktop & "\Computer Ticket.lnk") ObjDesktop = objShell.SpecialFolders("Desktop") Set objShell = CreateObject("WScript.Shell") StrIconPath = "%SystemRoot%\system32\SHEL元2.dll,23" StrWorkDir ="C:\Documents and Settings\%username%\Desktop" ' Here are the variables that to change if you are making a 'real' script ' CreateShortCut.vbs - Create a Desktop Shortcut.

I would like to know how I can change the icon to my own and set it to put the shortcut in the public folder desktop so no matter who logon it's on all desktop. I have this scrip below that when it runs it save a shortcup to google webpage on a desktop.