Menghantar Mesej dalam Rangkaian dengan vbscript

Option Explicit

Const MyApp = "Send Network Message"
Const Netsend = "%COMSPEC% /C %SystemRoot%\system32\NET.EXE SEND"
Const WindowStyle = 0
Const WaitOnReturn = False

Dim sCommand, sSendto, sMessage
Dim oSh

On Error Resume Next

If Not IsWinnt() Then
Wscript.Echo "Jalankan skrip ini dalam Windows berasaskan NT"
Wscript.Quit(1)
End If

sSendto = InputBox("Taipkan nama komputer atau alamat IP, atau gunakan karakter * untuk menghantar mesej secara" & _
" broadcast ke dalam domain", MyApp)
If sSendto = "" Then Wscript.Quit(1)
sCommand = Netsend & " " & sSendto

sMessage = InputBox("Mesej Anda:", MyApp)
If sMessage = "" Then Wscript.Quit(1)
sCommand = sCommand & " " & sMessage

Set oSh = CreateObject("Wscript.Shell")
oSh.Run sCommand, WindowStyle, WaitOnReturn
Set oSh = Nothing


Private Function IsWinnt()

Const OSNT = "Windows_NT"
Dim oSh
Dim sOS

IsWinnt = False

Set oSh = CreateObject("Wscript.Shell")
sOS = oSh.ExpandEnvironmentStrings("%OS%")
Set oSh = Nothing

If sOS = OSNT Then IsWinnt = True

End Function