Database Search
If you can't find the information using the categories below, post a question over in our WinBatch Tech Support Forum.
TechHome
Shell
 |
- Accessing Recorded TV Metadata
- Create Network Shortcut
- Delete IE History Temporary and Cookies
- Delete Temporary Internet Files
- Enumerate Supported File Properties by Windows Shell
- Get Browser History
- List Temporary Internet Files
- Pin Items to the Start Menu or Windows 7 Taskbar
- Recurse Frames
- Start MS Search Assistant
- Write an Event to the Eventlog
- Zip Folder with Progress Bar
Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.
Create Network Shortcut
Keywords: Create Network Shortcut Link Lnk UNC Map Connect Share Shell.Application Wscript.Shell
;============================================================
; Create a shortcut under Network Locations
;============================================================
Nethood = 19 ; 0x13 Network Shortcuts folder
objShell = ObjectCreate("Shell.Application")
objWSHShell = ObjectCreate("Wscript.Shell")
objFolder = objShell.NameSpace(Nethood)
NethoodPath = objFolder.self.path
; Create Nethood Shortcut
LinkTarget = "\\Server-01\Public"
LinkName = "Johns Public Folder"
Description = "Johns Public Folder on the network"
IconLocation = DirWindows(1):"SHELL32.DLL"
IconIndex = 9
NetLocLocalPath = NethoodPath:LinkName
; If link already exists delete it.
If FileExist(NetLocLocalPath) Then FileDelete(NetLocLocalPath)
shortcut = NethoodPath : "\" : LinkName : ".lnk"
objShortcut = objWSHShell.CreateShortcut(shortcut)
objShortcut.TargetPath = LinkTarget
objShortcut.IconLocation = IconLocation:",":IconIndex
objShortcut.Description = Description
objShortcut.Save
;Clean up
objShortcut = 0
objFolder = 0
objWSHShell = 0
objShell = 0
Exit
Article ID: W18184
Filename: Create Network Shortcut.txt
File Created: 2013:05:24:12:21:00
Last Updated: 2013:05:24:12:21:00