EvanK has asked for the wisdom of the Perl Monks concerning the following question:

Does anyone know of a way to, on a Win2003 box, restart a Windows Media Services publishing point programmatically through perl, or a Windows API command accessible via perl?
 
For those not familiar with Windows Media Services (lucky you), allow me to explain...At work, we're using a Windows 2003 server for media streaming using windows media services (WMS for short), and some important points: Now, I've written a script to dynamically generate a playlist file for the music streamer (this would be run once every week or so)...however, I've run into some issues.
 
The publishing point i'm having trouble with is basically a looping playlist. When the server boots up, WMS starts the publishing point, which loads the playlist file (lets call it "list.wsx"). If, at any time after the publishing point is running, we make changes to list.wsx, the changes dont take effect until the publishing point is restarted.
 
So, what I need to do is restart this specific publishing point thus reloading the playlist file. I can't simply restart the entire WM service, however, because we have other publishing points that we dont want to interrupt.
 
I've scoured the CPAN for anything relating to WMS with no luck, and was hoping someone else might have experience hammering at it from perl?

__________
Build a man a fire, and he'll be warm for a day. Set a man on fire, and he'll be warm for the rest of his life.
- Terry Pratchett

  • Comment on Control Windows Media Services via Perl?

Replies are listed 'Best First'.
Re: Control Windows Media Services via Perl?
by marto (Cardinal) on Jun 14, 2006 at 20:57 UTC
      I appreciate the response, unfortunately thats a subscription website. Still scouring google for similar info though, and ++ for trying to help :)

      __________
      Build a man a fire, and he'll be warm for a day. Set a man on fire, and he'll be warm for the rest of his life.
      - Terry Pratchett

Re: Control Windows Media Services via Perl?
by girarde (Hermit) on Jun 14, 2006 at 22:09 UTC
    Win32::OLE may help you, if you have access to the API for WMS. The ActiveState perl distro has an OLE browser that might help with that.
Re: Control Windows Media Services via Perl?
by zentara (Cardinal) on Jun 15, 2006 at 10:38 UTC
Re: Control Windows Media Services via Perl?
by gellyfish (Monsignor) on Jun 15, 2006 at 10:55 UTC

    The Windows Media Services SDK documents the API, unfortunately it doesn't appear to have any scripting examples from a cursory examination.

    /J\

Re: Control Windows Media Services via Perl?
by EvanK (Chaplain) on Jun 15, 2006 at 15:04 UTC
    Well, it looks like I'll be doing some reading in microsoft's docs...If i do find anything, I'll probably end up building a module for controlling WMS.

    of course, if anyone knows of anything already existing, please enlighten me!

    __________
    Build a man a fire, and he'll be warm for a day. Set a man on fire, and he'll be warm for the rest of his life.
    - Terry Pratchett