'    _____________________________
'     © 2007 Hard Bo
'     http://simpleeffective.blogspot.com/
'    _____________________________

'// Getting modd text:
SkypeMoodText = InputBox("Mood text:","Change Skype mood text","<BLINK>Your advertisement goes here!</BLINK>")

'=============================================================================================================================
if SkypeMoodText<>"" then
	'// Create a Skype4COM object:
	Set oSkype = WScript.CreateObject("Skype4COM.Skype","Skype_")

	'// Start the Skype client:
	If Not oSkype.Client.IsRunning Then oSkype.Client.Start() End If

	'// Connect to the Skype API:
	oSkype.Attach

	'//Sending Command
	oSkype.SendCommand(oSkype.Command(0, "SET PROFILE RICH_MOOD_TEXT " + SkypeMoodText))
	WScript.Sleep(1000)
End if
'// The AttachmentStatus event handler monitors attachment status and automatically attempts to reattach to the API following loss of connection:
Public Sub Skype_AttachmentStatus(ByVal aStatus)
  WScript.Echo "Result: " & oSkype.Convert.AttachmentStatusToText(aStatus)
  If aStatus = oSkype.Convert.TextToAttachmentStatus("AVAILABLE") Then oSkype.Attach() End If
End Sub