Set WshShell = WScript.CreateObject("WScript.Shell")
strDesktop = WshShell.SpecialFolders("Desktop")                   
Set oShellLink = WshShell.CreateShortcut(strDesktop & "\PPDiag Server.lnk")
oShellLink.TargetPath = "c:\app\ppdiag\ServerCfg.hta"
oShellLink.WindowStyle = 7
oShellLink.IconLocation = "c:\app\ppdiag\ppd.ico"                                   
oShellLink.Description = "PPD Server configuration"    
oShellLink.WorkingDirectory = "c:\app\ppdiag\"      
oShellLink.Save