Get more info about an IP address or domain name, such as organization, abuse contacts and geolocation.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
'#########################
'# CREATESHORTCUT_WSH.VBS
'# CREATES A SHORTCUT ON THE USERS DESKTOP TO A SPECIFIED FILE
'#
'# USES: WINDOWS SCRIPT HOST
'# LANGUAGE: VISUAL BASIC SCRIPTING EDITION
'#########################
'FORCE EXPLICIT VARIABLE DECLARATION
option explicit
'STEP OVER ERRORS FOR CUSTOM ERROR REPORTING
on error resume next
'DECLARE VARIABLES
dim shell, desktopPath, link, sys32Path
'INSTANTIATE THE WINDOWS SCRIPT HOST SHELL OBJECT
Set shell = WScript.CreateObject("WScr
'SET THE PATH TO THE WINDOWS DESKTOP FOLDER & MY DOCUMENTS FOLDER
desktopPath = shell.SpecialFolders("Desk
sys32Path = "%SystemRoot%\system32"
'CREATE A SHORTCUT ON THE USER'S DESKTOP
Set link = shell.CreateShortcut(deskt
'SET THE PROPERTIES FOR THE SHORTCUT
link.Description = "your shortcut here"
link.TargetPath = "http://????/"
link.WindowStyle = 3
link.WorkingDirectory = desktopPath
link.Save
'CLEANUP OBJECTS
set shell = nothing
'LET THE USER KNOW IF THERE WAS AN ERROR AND WHAT IT WAS
'OTHERWISE CONFIRM SHORCUT CREATION
'if err.number <> 0 then
' msgbox "There was an error creating your shortcut." & vbCrLf & err.description & vbCrLf & err.source, vbOKOnly-vbExclamation, "Shortcut Builder"
'else
' msgBox "Your new shortcut has been created!" & vbCrLf & "Please check your Windows Desktop.", vbOKOnly-vbInformation, "Shortcut Builder"
'end if