[Iska]

Код:

objWMIService.Create "sndrec32.exe /embedding /play /close ""C:\Windows\Media\Notify.wav""", Null, Null, intProcessID

[cambit]

Апппп... А тогда что именно заменить?

[Iska]

Последнюю строку из приведённого Вами кода.

[cambit]

Еще пара уточнений - во второй строке server - имя или IP-адрес компьютера, Share - расшаренная папка, a %computername%.txt - что такое? - файл со списком компьютеров?
И как я понимаю, на удаленном компьютере обязательно должна быть расшаренная папка с правами на запись фалов?

[Iska]

cambit, для воспроизведения вторая строка Вам совершенно не нужна. Она собирает информацию об удалённом компьютере в файл на разделённом ресурсе.

Для простого воспроизведения достаточно:

Код:

WScript.CreateObject("WbemScripting.SWbemLocator"). _
	ConnectServer("PC3", "root\cimv2"). _
	Get("Win32_Process").Create _
	"sndrec32.exe /embedding /play /close ""C:\Windows\Media\Notify.wav"""

наличия на удалённой машине файлов «sndrec32.exe» — в PATH и «Notify.wav» — по указанному пути.

[cambit]

Спасибо, все работает! А если учетная запись на удаленном компьютере отличается от локального - можно ее указать отдельно (пусть даже и в открытом виде)?

[Iska]

Да, можно:

Код:

WScript.CreateObject("WbemScripting.SWbemLocator"). _
	ConnectServer("PC3", "root\cimv2", "UserAccount", "Password"). _
	Get("Win32_Process").Create _
	"sndrec32.exe /embedding /play /close ""C:\Windows\Media\Notify.wav"""

[cambit]

Спасибо огромное, но задача походу усложняется - на время проигрывания файла нужно включить реле - т.е. например в какой нибудь разряд LPT порта записать 1. а после окончания воспроизведения записать туда 0. Походу нужно выполнить на удаленной машине другой скрипт...

[Iska]

cambit, эта задача явно не для скрипта.

P.S. Для начала: Проект PCPORTS.