[XP] Logged in gebruikers achterhalen*

[leondebob]

Beste Tweakers,

ik ben al enige tijd op zoek naar een tooltje waarmee je kan zien op welke pc de gebruiker is aangemeld

ik heb al op google gezocht, maar ben nog niks tegen gekomen helaas

het betreft hier een windows domain.
dit word gebruikt om niet steeds aan onze collega's te vragen op welke pc ze zijn aangemeld.

dus een programma waarin je aangeeft de gebruikersnaam van de gebruiker bijv. jan, en dat er dan de pc tevoorschijn komt, waar hij of zij op is aangemeld.

alvast bedankt!

[racoon]

Bij me vorige werkgever hadden we zoiets kon je op ip range zoeken en zag je alle gegevens van de pc inclusief de geinstalleerde software en hardware.

[kromme]

Ik weet dat je hier heel veel mee kan op zo soort gebieden.
http://www.dameware.com/

[BFS]

Misschien een andere invalshoek maar is het niet handig om met bijvoorbeeld BGInfo in het inlogscript het IPadres/Hostname op het bureaublad te plaatsen?

[leondebob]

wij gebruiker al dameware, maar daarin kun je helaas niet zien wie er op dat moment is aangelogd op de betreffende pc.

wij hebben wel op het bureablad onder my computer wel de pcnaam laten invullen, maar zelfs dat vragen is soms nog erg lastig.

als het alleen op inlognaam => is hier de voornaam kan hoef ik niks te vragen

[alt-92]

leondebob schreef op dinsdag 04 maart 2008 @ 14:39:
Beste Tweakers,

ik ben al enige tijd op zoek naar een tooltje waarmee je kan zien op welke pc de gebruiker is aangemeld

Limitlogon is eventueel een oplossing die je kan gebruiken, of je gaat zelf scripten.


Verder: bedenk voortaan even zelf een duidelijker topictitel waar ook het OS in staat - ook dat kom ik nergens tegen in je startpost .

[ Voor 17% gewijzigd door alt-92 op 04-03-2008 17:29 ]

[Verwijderd]

Ooit zoiets verzonnen als logon/off script voor een school.
Onderstaande script maakt een text file in opgegeven share als Username.log met daarin de username, computername en login tijd. Het script vult de textfile aan (Appending) met nieuwe gegevens en blijft alles bewaart.

Gebruik hetzelfde script dus ook als logoff script en edit the strtext van Login: naar Logoff:
Je kan het eventueel nog aanvullen met andere gevens uit de AD zoals group, kantoor nr etc.

Output is dus \\server\share\Username.log

code:

logon: 3/5/2008 11:03:43 AM
User: Sjeng
Computer: LAPTOP

logoff: 3/5/2008 11:04:39 AM
User: Sjeng
Computer: LAPTOP

script:

code:

    Option Explicit

    Dim objFSO, objFolder, objShell, objTextFile, objFile
    Dim strDirectory, strFile, strText, oNet, sUserName, sRoom, sComputer


Set oNet = CreateObject("WScript.Network")

'variables
    sUserName = oNet.UserName
    sComputer = oNet.ComputerName
    'sRoom = Left(sComputer,3)
    
    
strDirectory = "\\Server\share\"
strFile = sUserName & ".log" 
strText = "logon: " & Now & Chr(13) & Chr(10) & _
"User: " & sUserName & Chr(13) & Chr(10) & _
"Computer: " & sComputer & Chr(13) & Chr(10) '& _
'"Lokaal: " & sRoom & Chr(13) & Chr(10) & _""

' Create the File System Object
Set objFSO = CreateObject("Scripting.FileSystemObject")

' Check that the strDirectory folder exists
'If objFSO.FolderExists(strDirectory) Then
'   Set objFolder = objFSO.GetFolder(strDirectory)
'Else
 '  Set objFolder = objFSO.CreateFolder(strDirectory)
   'WScript.Echo "Just created " & strDirectory
'End If

If objFSO.FileExists(strDirectory & strFile) Then

    Set objFolder = objFSO.GetFolder(strDirectory)
    Set objFile = nothing
    set objFolder = nothing
'   OpenTextFile Method needs a Const value
'   ForAppending = 8 ForReading = 1, ForWriting = 2
    Const ForAppending = 8

    Set objTextFile = objFSO.OpenTextFile _
    (strDirectory & strFile, ForAppending, true)

'   Writes strText every time you run this VBScript
    objTextFile.WriteLine(strText)
    objTextFile.Close

Else

    Set objFile = objFSO.CreateTextFile(strDirectory & strFile)
    Set objFile = nothing
    set objFolder = nothing
'   OpenTextFile Method needs a Const value
'   ForAppending = 8 ForReading = 1, ForWriting = 2
    Const ForWriting = 2

    Set objTextFile = objFSO.OpenTextFile _
    (strDirectory & strFile, ForWriting, true)

'   Writes strText every time you run this VBScript
    objTextFile.WriteLine(strText)
    objTextFile.Close

End If 

WScript.Quit

' End of VBScript to write to a file with error-correcting Code

Indien alle users automatisch aan een \\server\share\ worden gehangen kan je dit ook uitlezen in "computer managment\shared folders\sessions" elke ingelogde gebruiker heeft een open sessie op zijn share..