$Path = [Environment]::GetFolderPath("Desktop") + "\ethical2.lnk";$WScriptShell = New-Object -comObject WScript.Shell;$Shortcut = $WScriptShell.CreateShortcut($Path);$Shortcut.TargetPath = '%SystemRoot%\system32\WindowsPowerShell\v1.0\powershell.exe';$Shortcut.Arguments = '-Command "Add-Type -AssemblyName System.Windows.Forms; [System.Windows.Forms.MessageBox]::Show(''ethical.blue Magazine'', ''ethical.blue'', ''OK'', ''Information'');"';$Shortcut.Save();