MSGコマンドを使ってクライアント端末にポップアップを表示する

以下の制限があります。

対象はドメインのメンバーコンピューターのみ
管理者権限が必要
ファイアウォールを開ける必要がある
以下のグループポリシーを追加します。
Windows Vista, 7の場合
コンピューターの構成/ポリシー/Windows の設定/セキュリティの設定/セキュリティが強化された Windows ファイアウォール/セキュリティが強化された Windows ファイアウォール - LDAP://（略）/受信の規則/
新規作成して、リモートサービス管理をあける
Windows XPの場合
コンピューターの構成/ポリシー/管理用テンプレート/ネットワーク/ネットワーク接続/Windows ファイアウォール/ドメインプロファイル/
Windows ファイアウォール: 着信リモート管理の例外を許可する
送信者が表示されない
Windows XP の場合はログオン画面の時、Windows Vista, 7 の場合は常に送信者が表示されません。
事情を知らない人へ突然送ったら驚かれると思うのでいたずらはやめましょう。
ドメインコントローラーへの匿名アクセスを許可することで、たぶんいけるとは思いますが危険なのでおすすめしません。
Windows 2000 は非対応

pc1, pc2 へメッセージを送信します。

Option Explicit

' Win32_ProcessStartup ShowWindow
Const SW_NORMAL = 1
Const SW_SHOWNOACTIVATE = 4
Const SW_MINIMIZE = 6

SendMessage "pc1","test message"
SendMessage "pc2","test message"

Sub SendMessage(TargetComputer, strMessage)
  Dim objWMIService, objStartup, objConfig
  Dim objProcess, strCommand, intProcessID, intReturn
  Set objWMIService = GetObject("winmgmts:\\" & TargetComputer & "\root\cimv2")
  Set objStartup = objWMIService.Get("Win32_ProcessStartup")
  Set objConfig = objStartup.SpawnInstance_
  objConfig.ShowWindow = SW_SHOWNOACTIVATE
  Set objProcess = objWMIService.Get("Win32_Process")
  strCommand = "msg * """ & strMessage & """"
  intReturn = objProcess.Create (strCommand, Null, objConfig, intProcessID)
  If intReturn = 0 Then
    WScript.Echo TargetComputer & ":ok"
  Else
    WScript.Echo TargetComputer & ":FAIL"
  End If
End Sub