Program SetSkypeAudioDevice;
{$APPTYPE CONSOLE}

uses
  SysUtils,
  ActiveX,
  SKYPE4COMLib_TLB;

Var
   Skype : TSkype;
   Key   : Char;

Var
     DeviceName   : String;
     Cmd          : ICommand;

Begin
  ActiveX.CoInitialize(nil);
  Skype := SKYPE4COMLib_TLB.TSkype.Create(nil);

  Try
   Writeln('Connecting to Skype..');
   Skype.Attach(6, True);
   // 1st parameter - protocol number
   // 2nd parameter - wait for attach
  Except
   Writeln('Skype client is not running or logged in.');
  End;

  if ParamCount <> 0 Then
   DeviceName := ' ' + ParamStr(1)
  Else Begin
   DeviceName := '';
   Writeln('Setting audio to Windows default device');
  End;

  Cmd := Skype.Command[1, 'SET AUDIO_IN' + DeviceName, '', True, 5000];
  Try
   Skype.SendCommand(Cmd);
   Writeln(Cmd.Reply + ' ' + DeviceName);
  Except
  End;

  Cmd := Skype.Command[2, 'SET AUDIO_OUT' + DeviceName, '', True, 5000];
  Try
   Skype.SendCommand(Cmd);
   Writeln(Cmd.Reply + ' ' + DeviceName);
  Except
  End;

  Skype.Destroy;
End.

using System;
using System.Threading;
using SKYPE4COMLib;

namespace SkypeAudioSettings
{
  class SetAudio
  {
    private static Skype Skype = new SkypeClass();
    private static string DeviceNameIn;
    private static string DeviceNameOut;
    private static string DeviceNameRinger;

    private static string GetDeviceName(string deviceName, string type)
    {
      if (deviceName != string.Empty)
      {
        Console.WriteLine("Trying to setup " + type + " to " + deviceName);
        return " " + deviceName;
      }
      else
      {
        Console.WriteLine("Trying to setup " + type + " to Windows default device");
        return "";
      }
    }

    [STAThread]
    static void Main(string[] args)
    {
      if (args.Length == 0)
      {
        Console.WriteLine("Usage: SkypeAudioSettings <pause secs> [<AudioIn> <AudioOut> <Ringer>]");
      }
      else
      {
        try
        {
          Thread.Sleep(Convert.ToInt32(args[0])*1000);

          try
          {
            Console.WriteLine("Connecting to Skype...");
            Skype.Attach(6, true);

            DeviceNameIn = GetDeviceName(args[1],"AudioIn");
            DeviceNameOut = GetDeviceName(args[2],"AudioOut");
            DeviceNameRinger = GetDeviceName(args[3],"Ringer");

            Skype.Settings.AudioIn = DeviceNameIn;
            Skype.Settings.AudioOut = DeviceNameOut;
            Skype.Settings.Ringer = DeviceNameRinger;

            Console.WriteLine("Skype Current Settings");
            Console.WriteLine("----------------------");
            Console.WriteLine("Audio In Device : " + Skype.Settings.AudioIn.ToString());
            Console.WriteLine("Audio Out Device: " + Skype.Settings.AudioOut.ToString());
            Console.WriteLine("Auto Away       : " + Skype.Settings.AutoAway.ToString());
            Console.WriteLine("Ringer Device   : " + Skype.Settings.Ringer.ToString());
            Console.WriteLine("AEC             : " + Skype.Settings.AEC.ToString());
            Console.WriteLine("AGC             : " + Skype.Settings.AGC.ToString());
            Console.WriteLine("PC Speaker      : " + Skype.Settings.PCSpeaker.ToString());
            Console.WriteLine("Video In Device : " + Skype.Settings.VideoIn.ToString());

          }
          catch (Exception ex)
          {
            Console.WriteLine("Skype client is not running or logged in. [Skype Error: " + ex.Message + "]");
          }
        }
        catch
        {
          Console.WriteLine("Error: <pause secs> parameters must be a number only.");
        }
      }
    }
  }
}