Option Explicit

'Alustetaan muuttujat
Dim Result, Shell, ExecObj
Dim Prompt
Dim Title
Dim X
Dim Y
Dim Network

'Annetaan arvot
'Network on verkko tai tietokone, johon viesti lähetetään, esim. TYÖRYHMÄ.
'Jos annat arvoksi *, viesti lähetetään kaikille saatavilla oleville tietokoneille.
Network = "*"
Prompt = "Lähetä pikaviesti kaikille tietokoneille verkossa " & Network
Title = "Pikaviesti" 'Dialogin otsikko
x = 600 'Dialogin sijainti sivusuunnassa
y = 400 'Dialogin sijainti pystysuunnassa

'Pyydetään viesti käyttäjältä ja ajetaan net send
Result = InputBox(Prompt, Title, "", X, Y)
If Result <> "" Then
	'Haetaan Shell
	Set Shell = WScript.CreateObject("WScript.Shell")
	'Ajetaan net send
	Set ExecObj = Shell.Exec("net send " & Network & " " & Result)
	'Odotetaan, että sendi on hoidettu
	Do While ExecObj.Status = 0
		WScript.Sleep(100)
	Loop
	'Näytetään viestilaatikko, jossa on sendin tuloste
	MsgBox(ExecObj.StdOut.ReadAll())
End If

WScript.Quit()