Smss.vbs

This script lists all SMS messages.

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

'// List Smss
For Each oSms In oSkype.Smss
  WScript.Echo "Sms Id: " & oSms.Id & " time " & oSms.Timestamp
  WScript.Echo "  type: " & oSms.Type & " " & oSkype.Convert.SmsMessageTypeToText(oSms.Type)
  WScript.Echo "  status: " & oSms.Status & " " & oSkype.Convert.SmsMessageStatusToText(oSms.Status)
  WScript.Echo "  failure reason: " & oSms.FailureReason
  WScript.Echo "  failed unseen: " & oSms.IsFailedUnseen
  WScript.Echo "  price: " & oSms.Price
  WScript.Echo "  price precision: " & oSms.PricePrecision
  WScript.Echo "  price currency: " & oSms.PriceCurrency
  WScript.Echo "  reply to number: " & oSms.ReplyToNumber
  For Each oTarget In oSms.Targets
    WScript.Echo "  target: " & oTarget.Number & " status: " & oSkype.Convert.SmsTargetStatusToText(oTarget.Status)
  Next
  WScript.Echo "  body: [" & oSms.Body & "]"
  For Each oChunk In oSms.Chunks
    WScript.Echo "  chunk: " & oChunk.Id & " [" & oChunk.Text & "]"
  Next  
Next