Skip to content

Instantly share code, notes, and snippets.

@jcasts

jcasts/gist:8049707

Created December 20, 2013 02:39
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 1 You must be signed in to fork a gist
  • Save jcasts/8049707 to your computer and use it in GitHub Desktop.
Save jcasts/8049707 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.vb
'Start The Script
Dim SetWshNetwork
Set WshNetwork = WScript.CreateObject("WScript.Network")
Set wsc = WScript.CreateObject("WScript.Shell")
Set lnk = wsc.CreateShortcut(wsc.SpecialFolders("desktop") & "\Go-Global.LNK")
'Commands
lnk.targetpath = "C:\Program Files (x86)\GraphOn\GO-Global\Client\gg-client.exe"
lnk.arguments = "-h hosted.logoscms.com -c -u " & WshNetwork.UserName & " -p Password"
lnk.description = "DB Access"
lnk.workingdirectory = "C:\Program Files (x86)\GraphOn\GO-Global\Client"
lnk.save
'End Script
@wormeyman
Copy link

That works Thanks!

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment