消息框-URL快捷方式图标 [英] Message Box- URL Shortcut icon

问题描述

大家好，

我创建了这个小脚本，用于使用url快捷方式复制图标快捷方式
会在员工桌面上安装带有已定义图标的特定网站的快捷方式.我目前正在使用VBScript创建快捷方式.以下是工作代码:

Hi Guys/Gals,

I have created this little script to copy the icon shortcut with url shortcut
that will install a shortcut to the specific website with a defined icon, on employees desktops. I''m currently using VBScript to create the shortcut. Below is the working code:

Set WshShell = CreateObject("WScript.Shell")
strDesktopPath = WshShell.SpecialFolders("Desktop")
Set objShortcutUrl = WshShell.CreateShortcut(strDesktopPath & "\Shortcut name goes here.lnk")
objShortcutUrl.TargetPath = "Web link goes here"
objShortcutUrl.IconLocation = "icon path goes here"
objShortcutUrl.Save

目前，它不提供任何快捷方式是否已复制到桌面的确认信息，脚本可以正常运行，但确实可以推送图标快捷方式.但是我想知道是否弹出提示说图标已成功复制或安装的图标".可以在脚本中添加一行以提示弹出窗口吗?

我将不胜感激.在此先感谢您.

At the moment it does not give any confirmation if the shortcut has been copied onto the desktop, the script is working fine it does push the icon shortcut. But I am wondering if a prompt pops up saying "Icon copied or installed successfully etc." Can a line be added in the script for prompt popup??

I would appreciate any help please. Thanks in advance.

推荐答案

可能该链接可以为您提供帮助:
http://community.spiceworks.com/scripts/show/298-change-shortcut-lnk-target-paths-bulk [

MAybe this link could help you:
http://community.spiceworks.com/scripts/show/298-change-shortcut-lnk-target-paths-in-bulk[^]

我得到了完成此工作的代码.

I got this code which does the job.

x=msgbox("Your Text Here" ,0, "Your Title Here")

这篇关于消息框-URL快捷方式图标的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！