h1

WMI script vol 1 :)

Luty 10, 2007

mcsaDziś na WSS’ie ktoś spytał jak sprawić aby przy wylogowywaniu z systemu jednej stacji ( jest ich kilka, wszystkie dzielą partycję D między sobą) system sprawdzał czy ktoś w tej sieci przypadkiem nie korzysta z plików tego komputera. Pierwsza rzecz jaka mi przyszła do głowy to LogOff Scripts ale że wiem tylko co to jest to pomyślałem że niezły practice będzie jak sprobuje to napisać :) Kfaz podpowiedział mi że jest coś takiego jak Scriptomatic i że to znacznie ułatwia pracę przy pisaniu skrytpów… no i miał rację. Po krótkim czasie nie znając VB stworzyłęm taki o to skrypt :

On Error Resume Next
arrComputers = Array("DESKTOP")
For Each strComputer In arrComputers
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_SessionConnection", "WQL", _
wbemFlagReturnImmediately + wbemFlagForwardOnly)
For Each objItem In colItems
Wscript.Echo "=========================================================="
Wscript.Echo "Uwaga! Ktos jeszcze korzysta z zasobów które udpostepniasz!"
Wscript.Echo "=========================================================="
Wscript.Echo "Szczegoly : "
WScript.Echo "Komputer/uzytkownik o nazwie : " &objItem.Antecedent
WScript.Echo "Korzysta z nastepujacych zasobow : " &objItem.Dependent
WScript.Echo
Next
Next

i w przypadku gdy ktos faktycznie korzystal wynik mialem nastepujacy (zmienione dane):
==========================================================
Uwaga! Ktos jeszcze korzysta z zasobów które udpostepniasz!
==========================================================
Szczegoly :
Komputer/uzytkownik o nazwie : Win32_ServerSession.computername="Mafia",U
serName="Al Pacino"
Korzysta z nastepujacych zasobow : Win32_ServerConnection.computername="Mafia",sharename="Bank",UserName="Al Pacino"

gdzie :
Al Pacino – nazwa usera ktorzy korzysta z mojego share’
Mafia – nazwa komputera tegoż usera
Bank – moj share.

Takze ja jestem happy bo udalo mi sie stworzyc cos w nowej nie znanej dla mnie dotąd bym powiedział „technologii” :) Jeszcze chciałbym znaleźć sposób na oczyszczenie wyników… ale wszystko w swoim czasie :)

3 uwag

  1. Wow! After all I got a webpage from where I can really obtain useful information regarding my
    study and knowledge.


  2. I delight in, result in I found exactly what I used to be taking a look for.

    You have ended my four day lengthy hunt!

    God Bless you man. Have a great day. Bye


  3. I like reading an article that can make men and women think.
    Also, many thanks for allowing for me to comment!



Skomentuj

Wprowadź swoje dane lub kliknij jedną z tych ikon, aby się zalogować:

Logo WordPress.com

Komentujesz korzystając z konta WordPress.com. Log Out / Zmień )

Zdjęcie z Twittera

Komentujesz korzystając z konta Twitter. Log Out / Zmień )

Facebook photo

Komentujesz korzystając z konta Facebook. Log Out / Zmień )

Google+ photo

Komentujesz korzystając z konta Google+. Log Out / Zmień )

Connecting to %s

%d bloggers like this: