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 bkrike on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

NET SEND AND GUI

Status
Not open for further replies.

craizie

IS-IT--Management
Oct 30, 2002
15
US
Does anyone know if there is a gui interface for sending net send messages across the network for Windows NT/2000/XP? Something similar to 'shutdown' command where if you type 'shutdown /i' it launches a gui interface instead.

Thanks
 
hi,

you can create a Vb script for sending the message. but you can send message on the network by using Machine name or username who is loggfen in on that machine.

This is the script...


try this out.


on error resume next
Const ForReading = 1, ForWriting = 2
Dim fso, f , MyFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set objWSHShell = WScript.CreateObject("Wscript.Shell")
Set f = fso_OpenTextFile("y:\netsend\machines.txt", ForReading)
Dim MachineName
Dim counter
dim myarray(1000)

counter=0

Do While f.AtEndOfStream <> True
retstring = f.ReadLine
counter = counter + 1
Loop

f.Close
Set f = fso_OpenTextFile(&quot;y:\netsend\machines.txt&quot;, ForReading)

For x= 1 to counter
MyArray(x) = f.ReadLine
Next
msg = &quot;Enter your Message here&quot;
msg = InputBox(&quot;Please type your message below.&quot; & vbCRLF & &quot;If you cancel or leave this entry unchanged. It will get cancel&quot;,&quot;Windows Net Send&quot;,msg)

If (msg = &quot;Enter your Message here&quot; OR msg = &quot;&quot;) Then ' Don't send message
Wscript.Quit
End If


for y = 1 to counter
MachineName=MyArray(y)
objWSHShell.run &quot;net send &quot;&MachineName&&quot; &quot;&msg, 7, False

next


=============================
ENJOYYYYYYYYY
=============================
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top