Before this line:

$DirectSS->Speak( $Phrase );

add the following line:


$DirectSS->{FileName} = ’output.wav’;

This results in the TTS audio being written to the file named "output.wav"

I have used this article to help me produce a great chart but I have one problem. If I use the chart type xl3DColumnStacked, it does not work. There seem to be several other tyes of chart that also do not work. Can anyone explain why or point out what I may have done wrong.

You can use the ExecQuery() method off of the WMI Services script object to solve this. The query is very similar to SQL and would allow you to specify that you want all Win32_LogicalDisk instances where the DeviceID is greater than or equal to "C:". You could make more sophisticated queries such as collect all instances between drives D: and L:, if you like. Try this Perl code:

use strict;

use Win32::OLE qw( in );

$Machine = ".";

my $WMIServices = Win32::OLE->GetObject

  ( "winmgmts:{impersonationLevel=impersonate,

  (security)}//$Machine/root/cimv2" ) || die;

my $DriveCollection = $WMIServices->ExecQuery

  ( ’select * from Win32_LogicalDisk where

  DeviceID >= "C:"’ ) || die "Query Failed";

foreach my $Drive ( in( $DriveCollection ) )

{

  my $FreePercent = int( ( $Drive->{FreeSpace} / $Drive->{Size} ) * 100 );

  print "$Drive->{DeviceID}\n";

  print "\tVolume: $Drive->{VolumeName}\n";

  print "\tDisk Size: " . FormatNumber( $Drive->{Size} ) . "\n";

  print "\tAvailable: " . FormatNumber( $Drive->{FreeSpace} ) . "

  ($FreePercent%)\n";

  print "\n";

}

  

sub FormatNumber

{

    my($Number) = @_;

    my $Suffix = "";

    if( $Number > 1024 * 1024 * 1024 )

    {

      $Number /= (1024 * 1024 * 1024);

      $Suffix = "G";

    }

    elsif( $Number > 1024 * 1024 )

    {

      $Number /= (1024 * 1024);

      $Suffix = "M";

    }

    elsif( $Number > 1024 )

    {

      $Number /= 1024;

      $Suffix = "K";

    }

    $Number = sprintf( "%0.2f", $Number );

    while( $Number =~ s/^(-?\d+)(\d{3})/$1,$2/ ){};

    return( $Number . $Suffix );

}

Can anybody offer any advice as to how to get the TTS output saved as a .WAV file for later use rather than announced in this example (ala like the demo VB Scripts allow in SAPI5.1)?

Excellent article though and saved me wading my way through VB!

]]>Hamish Tweedie Fri, 26 Jul 2002 21:27:15 GMThttp://www.windowsitpro.com/article/perl/progressive-perl-for-windows-teaching-perl-how-to-speak#commentsAnchorhttp://www.windowsitpro.com/article/perl/progressive-perl-for-windows-using-wmi-to-request-data-about-disk-drives#commentsAnchorMon, 17 Jun 2002 09:52:30 GMT

I am using WMI with Perl, but whenever I access the logical disks using Logical_disk class, the script scans the floppy drives as well. I am trying to find a way so that I can get data only about logical disk without scanning floppy drives every time script runs (as this may damage floppy drives on the server, if I run the script very frequently).

Yes, it is normal to be able to enumerate services on machines even though you don’t have administrator (or otherwise) access on the machine. The reason is because of how Win32 performs this enumeration. It is technical, but here it goes....

A program must call into the Win32 API OpenSCManager() function. This makes a connection (via RPC) to the remote machine’s Service Control Manager. According to MSDN, all processes are permitted to connect, list the services, and query if a service is locked or not. MSDN states, "This enables any process to open a service control manager database handle that it can use in the OpenService, EnumServicesStatus, and QueryServiceLockStatus functions. Only processes with Administrator privileges are able to open a database handle used by the CreateService and LockServiceDatabase functions." In other words, to control (start, stop, etc.), create, remove, or otherwise manage a service, you need to be an admin. But to list them is free to anyone.