INTELLIGENT WORK FORUMS
FOR COMPUTER PROFESSIONALS

Member Login

Come Join Us!

Are you a
Computer / IT professional?
Join Tek-Tips now!

Talk With Other Members
Be Notified Of Responses
To Your Posts
Keyword Search
One-Click Access To Your
Favorite Forums
Automated Signatures
On Your Posts
Best Of All, It's Free!

*Tek-Tips's functionality depends on members receiving e-mail. By joining you are opting in to receive e-mail.

LINK TO THIS FORUM!

Tek-Tips LinkedIn^® Group

Join our
LinkedIn^® Group!

Hook up with past and present colleagues and classmates quickly.

Partner With Us!

"Best Of Breed" Forums Add Stickiness To Your Site

(Download This Button Today!)

Feedback

"...just the few hours I've spent on this site I have learned a lot. I can now implement features that will be very useful to my company, and some of those I never knew existed..."

More...

Geography

Where in the world do Tek-Tips members come from?

Click Here To Find Out!

Tek-Tips Shirts!

Get your
Tek-Tips Forums
SWAG here!

Home > Forums > Programmers > Languages > VBScript Forum

Create shortcut in Windows 2008 (x86)

Read More Threads Like This One

DotNetNewbie (Programmer)

18 Jul 12 11:31

Hi there,

I am wanting to adapt my old login script to create shortcuts but I am getting the "cannot use parentheses" message, any advice most welcome:

CreateSMIcon("Google Chrome", "Google Chrome", "C:\Program Files (x86)\Google\Chrome\Application", "C:\Program Files (x86)\Google\Chrome\Application", "", "C:\Program Files (x86)\Google\Chrome\Application", "")

And the sub is below:

Private Sub CreateSMIcon(strDestination, strName, strPath, strWorkDir, strArguments, strIconLocation, strWindowStyle)
'Msgbox "Creating Icon for " & strName
Dim oWshShell, oFSO, oStartMenu, oIcon
Set oWshShell = CreateObject("WScript.Shell")
Set oFSO = CreateObject("Scripting.FileSystemObject")
If strIconLocation = " " then
strIconLocation = strPath
End If
If oFSO.FileExists(strpath) Then
oStartMenu = WshShell.SpecialFolders("All Programs")
Set oIcon = WshShell.CreateShortcut(oStartMenu & "\" & strDestination & "\" & strName & ".lnk")
oIcon.WindowStyle = strWindowStyle
oIcon.TargetPath = strPath
' oIcon.IconLocation = strPath
oIcon.IconLocation = strIconLocation
oIcon.Arguments = strArguments
oIcon.Description = "Created by Login script"
oIcon.WorkingDirectory = strWorkDir
oIcon.Save
End If
End Sub

Many thanks in advance.

.net

Reply To This Thread

Posting in the Tek-Tips forums is a member-only feature.

Click Here to join Tek-Tips and talk with other members!

Back To Forum

Back To VBScript