Set oWS = WScript.CreateObject("WScript.Shell")
sLinkFile = "mestsa003 - " + WScript.Arguments.Item(0) + ".lnk"
Set oLink = oWS.CreateShortcut(sLinkFile)
oLink.TargetPath = "G:\VS-Code-Settings\Git\mestsa003.bat"
oLink.Arguments = WScript.Arguments.Item(0)
oLink.Save