Last Modified: Fri, 24 Apr 2009 17:14:27 +0000 ; Created: Fri, 24 Apr 2009 17:14:27 +0000
Save the following into a file with the extension vbs or wsh with the appropriate edits:
'Create a WshShell Object
Set WshShell = Wscript.CreateObject("Wscript.Shell")
'Create a WshShortcut Object
Set oShellLink = WshShell.CreateShortcut("aaa.lnk")
'Set the Target Path for the shortcut
oShellLink.TargetPath = "notepad.exe"
'Set the additional parameters for the shortcut
oShellLink.Arguments = "c:\windows\desktop\aaa.txt"
'Save the shortcut
oShellLink.Save
'Clean up the WshShortcut Object
Set oShellLink = Nothing
|
|