Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations gkittelson on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
Net Send
- Thread starter Headshot
- Start date
Dim Message, wsh
Set wsh = Wscript.CreateObject("Wscript.Shell"
Set ArgObj = WScript.Arguments
message = InputBox("Please enter your message","Net Send Utility"
If message = "" then Wscript.Quit
For i = 0 to ArgObj.count -1
Wsh.run "Net Send " & ArgObj(i) & " " & message,True
Next
Regards
Steve Friday
Set wsh = Wscript.CreateObject("Wscript.Shell"
Set ArgObj = WScript.Arguments
message = InputBox("Please enter your message","Net Send Utility"
If message = "" then Wscript.Quit
For i = 0 to ArgObj.count -1
Wsh.run "Net Send " & ArgObj(i) & " " & message,True
Next
Regards
Steve Friday
- Status
Similar threads
- Locked
- Question
