Set WshShell = WScript.CreateObject("WScript.Shell")
Set Fso = CreateObject("Scripting.FileSystemObject")
WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\Skype", ""
WshShell.RegDelete "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\Skype"
strDesktop = WshShell.SpecialFolders("Desktop")
strLink = strDesktop & "\Skype.lnk"
If Fso.FileExists(strLink) Then
	Fso.DeleteFile strLink
End If

