Settings.vbs

This script queries the Skype general parameters.

Copyright � 2004-2006 Skype Limited. Licensed under BSD license.

'// 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

'// Query Skype general parameters: 
WScript.Echo "Audio in:" & oSkype.Settings.AudioIn
WScript.Echo "Audio out:" & oSkype.Settings.AudioOut
WScript.Echo "Auto away:" & oSkype.Settings.AutoAway
WScript.Echo "Ringer:" & oSkype.Settings.Ringer
'oSkype.Settings.Avatar = "c:\temp\test.jpg"
WScript.Echo "Ringtone status:" & oSkype.Settings.RingToneStatus
'oSkype.Settings.RingTone = "c:\temp\test.mp3"
WScript.Echo "Video in:" & oSkype.Settings.VideoIn
WScript.Echo "PC speaker:" & oSkype.Settings.PCSpeaker
WScript.Echo "AGC:" & oSkype.Settings.AGC
WScript.Echo "AEC:" & oSkype.Settings.AEC
'oSkype.Settings.Language = "en"
WScript.Echo "Language:" & oSkype.Settings.Language

'// The language change event
Public Sub Skype_UILanguageChanged(ByVal aCode)
  WScript.Echo ">Language changed to " & aCode
End Sub


'// 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 ">Attachment status " & oSkype.Convert.AttachmentStatusToText(aStatus)
  If aStatus = oSkype.Convert.TextToAttachmentStatus("AVAILABLE") Then oSkype.Attach() End If
End Sub