Передовые возможности Silverlight 4 COM+

<Button x:Name="btnWriteFile" Content="Write file to C:\test.txt" Click="btnWriteFile_Click" />

private void btnWriteFile_Click(object sender, RoutedEventArgs e)
{
    using(dynamic fsoCom = ComAutomationFactory.CreateObject("Scripting.FileSystemObject"))
    {
        dynamic file = fsoCom.CreateTextFile(@"c:\test.txt", true);
        file.WriteLine("Bloody Hell!");
        file.WriteLine("Silverlight is writing to C:\\");
        file.Close();
    }
}

<Button x:Name="btnExecuteCmdPing" Content="Cmd Ping 127.0.0.1" Click="btnExecuteCmdPing_Click" />

private void btnExecuteCmdPing_Click(object sender, RoutedEventArgs e)
{
    using(dynamic shell = ComAutomationFactory.CreateObject("WScript.Shell"))
    {
        shell.Run(@"cmd /k ping 127.0.0.1");
    }
}

<Button x:Name="btnPinCalculator" Content="Pin Calcuator to the Win7 Taskbar" Click="btnPinCalculator_Click" />

private void btnPinCalculator_Click(object sender, RoutedEventArgs e)
{
    using (dynamic ShellApplication = ComAutomationFactory.CreateObject("Shell.Application"))
    {
        dynamic commonPrograms = ShellApplication.NameSpace(23);
        string allUsersPath = commonPrograms.Self.Path;
 
        dynamic directory = ShellApplication.NameSpace(allUsersPath + @"\Accessories");
        dynamic link = directory.ParseName("Calculator.lnk");
 
        dynamic verbs = link.Verbs();
        for (int i = 0; i < verbs.Count(); i++)
        {
            dynamic verb = verbs.Item(i);
            if (verb.Name.Replace(@"&", string.Empty).ToLower() == "pin to taskbar")
            {
                verb.DoIt();
            }
        }
    }
}

<Button x:Name="btnAddOOBAppToStartup" Content="Add out-of-browser application to Startup" Click="btnAddOOBAppToStartup_Click" />

private void btnAddOOBAppToStartup_Click(object sender, RoutedEventArgs e)
{
    using (dynamic ShellApplication = ComAutomationFactory.CreateObject("Shell.Application"))
    {
        dynamic commonPrograms = ShellApplication.NameSpace(11);
        string allUsersPath = commonPrograms.Self.Path;
 
        dynamic directory = ShellApplication.NameSpace(allUsersPath + @"\Programs");
        dynamic link = directory.ParseName(Deployment.Current.OutOfBrowserSettings.ShortName + ".lnk");
        string OOBLink = link.Path;
 
        using (dynamic WShell = ComAutomationFactory.CreateObject("WScript.Shell"))
        {
            WShell.RegWrite(@"HKLM\Software\Microsoft\Windows\CurrentVersion\Run\"
                                        + Deployment.Current.OutOfBrowserSettings.ShortName,
                                        OOBLink);
            MessageBox.Show("Please restart your machine and this application will load on startup.");
        }
    }
}

<Button x:Name="btnText2Speech" Content="Use Text to Speech" Click="btnText2Speech_Click" />

private void btnText2Speech_Click(object sender, RoutedEventArgs e)
{
    using (dynamic ISpeechVoice = ComAutomationFactory.CreateObject("SAPI.SpVoice"))
    {
        ISpeechVoice.Volume = 100;
        ISpeechVoice.Speak("<rate speed=\"0\"><pitch middle=\"0\">Hello World! My HoverCraft is full of eels.");
    }
}

<Button x:Name="btnIterateWIA" Content="Iterate over external Cameras and Scanners" Click="btnIterateWIA_Click" />

private void btnIterateWIA_Click(object sender, RoutedEventArgs e)
{
    StringBuilder sb = new StringBuilder();
    sb.AppendLine("List of available external devices and commands:");
    using (dynamic DeviceManager = ComAutomationFactory.CreateObject("WIA.DeviceManager"))
    {
        var deviceInfos = DeviceManager.DeviceInfos;
        for (int i = 1; i <= deviceInfos.Count; i++)
        {
            var IDevice = deviceInfos.Item(i).Connect();
            var DeviceID = IDevice.DeviceID;
            var DeviceName = IDevice.Properties("Name").Value;
            var Commands = IDevice.Commands;
            for (int j = 1; j <= Commands.Count; j++)
            {
                var IDeviceCommand = Commands.Item(j);
                var CommandName = IDeviceCommand.Name;
                var CommandDescription = IDeviceCommand.Description;
                sb.AppendLine("    " + DeviceName + " (" + DeviceID + "), " + CommandName + ": " + CommandDescription);
                // Execute with: IDevice.ExecuteCommand(IDeviceCommand.CommandID);
            }
        }
    }
    MessageBox.Show(sb.ToString());
}

<Button x:Name="btnGetExternalImage" Content="Acquire External Image from Scanner/Camera" Click="btnGetExternalImage_Click" />

private void btnGetExternalImage_Click(object sender, RoutedEventArgs e)
{
    using (dynamic CommonDialog = ComAutomationFactory.CreateObject("WIA.CommonDialog"))
    {
        dynamic imageFile = CommonDialog.ShowAcquireImage();
        if (imageFile != null)
        {
            imageFile.SaveFile(@"c:\myImage.jpg");
            MessageBox.Show("Saved c:\\myImage.jpg");
        }
    }
}

<Button x:Name="btnUseFullDotNet" Content="Use a class from the full .Net frameowrk" Click="btnUseFullDotNet_Click"/>

private static int foo = 0; 
private void btnUseFullDotNet_Click(object sender, RoutedEventArgs e)
{
    using (dynamic ReaderWriterLock = ComAutomationFactory.CreateObject("System.Threading.ReaderWriterLock"))
    {
        ReaderWriterLock.AcquireWriterLock(1);
        MessageBox.Show("System.Threading.ReaderWriterLock.AcquireWriterLock() - acquired lock");
        foo++;
        ReaderWriterLock.ReleaseWriterLock();
        MessageBox.Show("System.Threading.ReaderWriterLock.ReleaseWriterLock() - released lock");
        ReaderWriterLock.AcquireReaderLock(1);
        MessageBox.Show("While in reader lock - Foo value is " + foo);
        ReaderWriterLock.ReleaseReaderLock();
 
    }
}

<Button x:Name="btnIterateOverProgIDs" Content="Iterate over valid COM+ ProgIDs" Click="btnIterateOverProgIDs_Click" />

private void btnIterateOverProgIDs_Click(object sender, RoutedEventArgs e)
{
    StringBuilder sb = new StringBuilder();
    sb.AppendLine("The first 25 valid ProgIDs: ");
    using (dynamic SWbemLocator = ComAutomationFactory.CreateObject("WbemScripting.SWbemLocator"))
    {
        SWbemLocator.Security_.ImpersonationLevel = 3;
        SWbemLocator.Security_.AuthenticationLevel = 4;
        dynamic IService = SWbemLocator.ConnectServer(".", @"root\cimv2");
        dynamic QueryResults = IService.ExecQuery(
            @"SELECT Caption, Description, InprocServer32, ProgID FROM Win32_ClassicCOMClassSetting where progid is not null");
        for (int i = 1; i < 25 /*QueryResults.Count*/; i++)
        {
            string progID = QueryResults.ItemIndex(i).ProgID;
            sb.AppendLine("   " + progID);
        }
    }
    MessageBox.Show(sb.ToString());
}