heb hier een systeem dmv vbs & gpo & share.
als een gebruiker inlogt wordt er gecontrolleerd of er een bestand op een bepaalde plek zet.. zo ja wordt die gene uitgelogd. zo nee wordt het bestand geplaatst.
als die gene weer uit logt wordt het bestand verwijderd.
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
| '----==== Duinkonijn (r) ====----
Set fs = CreateObject("Scripting.FileSystemObject")
Set shl = CreateObject("Wscript.shell")
Set objNetwork = WScript.CreateObject("WScript.Network")
stout = "shutdown -l"
gebruiker = objNetwork.UserName
'vul hier serverlokatie in
lokatie = "\\server\share$\" +gebruiker
stoutlok= "c:\stout.txt"
on error resume next
weg = fs.DeleteFile(stoutlok,force)
Set objSystemSet = GetObject("winmgmts:{impersonationLevel=impersonate,(Shutdown)}").InstancesOf("Win32_OperatingSystem")
if fs.FileExists(lokatie) = True then
Set maakstaan = fs.CreateTextFile(stoutlok,True)
maakstaan.WriteLine ("stout")
maakstaan.Close
For Each objSystem In objSystemSet
objSystem.Win32Shutdown 0
Next
msgbox "U bent al ergens anders ingelogd, of U heeft uw computer de laatste keer verkeerd afgesloten"
else
Set maakaan = fs.CreateTextFile(lokatie,True)
maakaan.WriteLine ("ingelogd")
maakaan.Close
End If |
code:
1
2
3
4
5
6
7
8
9
10
11
| '----==== Duinkonijn (r) ====----
Set fs = CreateObject("Scripting.FileSystemObject")
Set objNetwork = WScript.CreateObject("WScript.Network")
gebruiker = objNetwork.UserName
'vul hier servernaam + share in
lokatie = "\\servernaam\share$\" +gebruiker
stout = "c:\stout.txt"
on error resume next
if fs.FileExists(stout) = False then
weg = fs.DeleteFile(lokatie, force)
End if |
de 1 plaats je bij je login script bij user gpo, de ander bij logout
[
Voor 74% gewijzigd door
Duinkonijn op 05-02-2010 12:08
]
Het is makkelijk om iemand zijn negatieve eigenschappen te benoemen, maar kan je ook de positieve eigenschappen benoemen?