Dim Shell As Object
Shell = CreateObject("wscript.shell")
Shell.run("net send 192.168.0.192 test")
Shell = Nothing
อันที่2
Dim strProgramPath As String
Dim objShell As Object
strProgramPath = "net send 192.168.0.192 test"
objShell = CreateObject("Wscript.Shell")
objShell.Run(strProgramPath)