Go_Global_x32.vbs

'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

Go_Global_x64.vbs

'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