Share Watcher

[Ibrahim]

Checks your state and tells u if someone is using ur shares,should be usefull,I used the net session command and the help of Smashy

#include <Process.au3>
#Include <Constants.au3>
#include <File.au3>
while @error=0
    sleep(5000)
_RunDos("Net session >c:\session.bin")
;~ MsgBox(0,"intruders",FileRead("c:\session.bin"))
$No=_FileCountLines ("c:\session.bin")

if $No > 4 Then
for $count=5 to $No-2
    $read=FileReadLine("c:\session.bin",$count)
    $read=StringTrimLeft($read,2)
    $read=StringReplace($read,"            ",")) Username: ",1)
    $read=StringReplace($read,"               ","   OS #",2)
    $read=StringTrimRight($read,19)
TrayTip("Share REsource Opened","By: (("&$read,2,2)
sleep(2000)

    Next
FileDelete("c:\session.bin");;;;;;;;;;;;;;;<<<<<<<<<---------Added this line to return to normal when there is no entries(My Mistake Actually)
EndIf
WEnd

Feel free to edit it and add Menu Items and stuff I'm Already on that

Edited October 11, 2007 by Ibrahim

[Ibrahim]

Just replies about being useful/Useless would be nice guys

[SmOke_N]

Thought about using StdoutRead rather than writing to a file?

[Ibrahim]

NOw that's progress, but i guess i need to make a total make over with menus and stuff ,but is it usefull or not?

[DirtDBaK]

Seems pretty neat... nice work!

[gcriaco]

NOw that's progress, but i guess i need to make a total make over with menus and stuff ,but is it usefull or not?

Yes, very usefull.

Thank you very much

Peppe

[jvanegmond]

I asked for this 2 days ago in Chat!! I just had no idea how to do it myself.

This is awesome! Let me make some modifications and I'll have it running all the time.

Thanks!

[Ibrahim]

I'm Happy. . . .

[lordofthestrings]

I threw together the ones you just wrote..

hope you like the code change,

have a nice day!

#include <constants.au3>

while 1

_TrayTipMe("NET"     , "Net session"                                                                                                    , @SW_HIDE)
_TrayTipMe("ARP"     , "Arp -a"                                                                                                         , @SW_HIDE)
_TrayTipMe("NSLOOKUP", 'nslookup %computername%'                                                                                        , @SW_HIDE)
_TrayTipMe("IPCONFIG", 'echo off & for /F "usebackq tokens=1-15 delims= " %a in (`ipconfig /all ^| find /I "IP Address"`) do echo %o'   , @SW_HIDE)
WEnd

Func _TrayTipMe($strInfo, $StrCommand, $Hide)
; Traytip any BATCH Command
; custom Title per Command
; option to hide outputbox
    $PID = Run(@ComSpec & " /c " & $StrCommand, @scriptdir, $Hide, $STDERR_CHILD + $STDOUT_CHILD)
    $List = StdoutRead($PID, -1)
    TrayTip("",$strInfo & @CRLF & $List,4,2)
    Sleep(1500)
    $StrCommand = ""
EndFunc

Edited October 11, 2007 by lordofthestrings

[Ibrahim]

First of all the code is great when using as a function call

BUT,There is no Onevent Action here, it's not about displaying the entries it's about getting them when changed

thanks u r gr8

Edited October 11, 2007 by Ibrahim

[Ibrahim]

Guys Take a look at Manadar's Version It's more EFFECIENT

http://www.autoitscript.com/forum/index.php?showtopic=54957

He Did say my name ---->>>I'm Happy !!!

And So I guess somebody shoud put this in the "Not the Example Section"

Edited October 11, 2007 by Ibrahim