Skip to content

Instantly share code, notes, and snippets.

@wormeyman
Forked from jcasts/gist:8049707
Last active December 31, 2015 21:49
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save wormeyman/8049786 to your computer and use it in GitHub Desktop.
Save wormeyman/8049786 to your computer and use it in GitHub Desktop.
'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\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\GraphOn\GO-Global\Client"
lnk.save
'End Script
'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
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment