Set objShell=CreateObject("WScript.shell")
strDesktop=objShell.SpecialFolders("Desktop")

Set objShortcut=objShell.CreateShortcut(strDesktop &_
 "\Run Owner Report.lnk")

objShortcut.TargetPath="cmd.exe"
objShortcut.Arguments="/c C:\Scripts\Ownerreport.bat"
objShortcut.WorkingDirectory="c:\Scripts"
objShortcut.Save