Set WshShell = WScript.CreateObject("WScript.Shell")
strCmd = chr(34) & WshShell.CurrentDirectory & "\SkypePortable.exe" & chr(34) & " /minimized /nosplash"
WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\Skype", strCmd, "REG_SZ"
