Script til af sende en besked rundt til alle computer tilsluttet

Hey ingeman !
Er alle computerne meldt ind i AD, og ligger de i så fald i samme OU ?
/Killer

Jeg kører ikke med active directory.

ok .... Så kan du evt. lave et lille ping-script, der løber igennem det subnet, de ligger på.
Hvis de svarer skal der sendes en besked til dem.

ja - og hvordan gør man så lige det ?

Dette script tjekker HELE 192.168.10 netværket, og sender besked, hvis maskinen svarer inden for 2 ping af 50 milisekunder. (Det sparer tid :) )

on error resume next
set shell = wscript.createobject("wscript.shell")
set stdout = wscript.stdout
Dim fso, fi
strbase = "192.168.1."
for i =  1 to 254
cpuadresse = strbase & i
set scping = shell.exec("ping -n 2 -w 50 " & cpuadresse)
strresult = Lcase(scping.stdout.readall)
if instr(strresult, "reply from") then
shell.run "net send " & cpuadresse & " Serveren lukkes om 10 minutter"
end if
next

Hov ...
det er naturligvis 192.168.1.0 netværket :)
messengerservicen skal være startet både på serveren OG klienterne.
/Killer

Hey ingeman !
virkede det ?

/Killer