[2003] Gebruik clients/werkstations meten*

[Verwijderd]

Beste,

Ik werk bij een organisatie met een 600+ medewerkers, met 800 werkplekken.
Wat opzich raar is, meer werkplekken dan medewerkers.

Zodoende zouden we graag het gebruik van de werkstations meten.
Om te kijken of er werkplekken kunnen vervallen.

Nu ben ik dus opzoek naar een mooie oplossing om het gebruik van de werkstations te meten.

Ik zat zelf te denken aan een een scriptje wat uitgevoerd wordt bij het uitloggen wat de totaal ingelogd tijd + hostname van het werkstation wegschrijft, echter kan ik geen variabele vinden met de totaal ingelogde tijd (windows 2003) wel de variabele %time%, wellicht kan ik hier nog iets mee berekenen door de inlogtijd en de uitlog tijd weg te schrijven en vervolgens te berekenen wat de totaal ingelogde tijd was.

Hebben jullie hier nog andere/betere oplossingen voor?

Het gaat om een (Citrix) netwerk wat gebruik maakt van zowel Novell Edir en MS AD.

[Remco]

Wij hadden ook een script nodig voor zoiets, maar dan net anders.
Ik gebruik het volgende script:

code:

Option Explicit
Dim objNetwork, objDomain, objFSO, strLogonDomain, strComputerNaam, strUserNaam, stripadres
Dim objFolder, objTextFile, objFile, objADSysInfo
Dim strFile, strText, strSiteNaam
'On Error Resume Next
'=========================================================
' Retrieve UserName, ComputerName
'=========================================================

  Set ObjNetwork = CreateObject("Wscript.Network")
  Set objADSysInfo = CreateObject("ADSystemInfo")
  strComputerNaam = lcase(objNetwork.ComputerName)
  strUserNaam = lcase(objNetwork.UserName)

  strSiteNaam = objADSysInfo.SiteName
'=========================================================
' Retrieve IP address
'=========================================================

Dim IP_Address : IP_Address = GetIP()

If IP_Address = "0.0.0.0" OR IP_Address = "" Then
  stripadres = "geen ip-adres gevonden"
Else
           stripadres = IP_Address
End If

Function GetIP()
  Dim ws : Set ws = CreateObject("WScript.Shell")
  Dim fso : Set fso = CreateObject("Scripting.FileSystemObject")
  Dim TmpFile : TmpFile = fso.GetSpecialFolder(2) & "/ip.txt"
  Dim ThisLine, IP
  If ws.Environment("SYSTEM")("OS") = "" Then
    ws.run "winipcfg /batch " & TmpFile, 0, True
  Else
    ws.run "%comspec% /c ipconfig > " & TmpFile, 0, True
  End If
  With fso.GetFile(TmpFile).OpenAsTextStream
    Do While NOT .AtEndOfStream
      ThisLine = .ReadLine
      If InStr(ThisLine, "Address") <> 0 Then IP = Mid(ThisLine, InStr(ThisLine, ":") + 2)
    Loop
    .Close
  End With
  'WinXP (NT? 2K?) leaves a carriage return at the end of line
  If IP <> "" Then
    If Asc(Right(IP, 1)) = 13 Then IP = Left(IP, Len(IP) - 1)
  End If
  GetIP = IP
  fso.GetFile(TmpFile).Delete  
  Set fso = Nothing
  Set ws = Nothing
End Function





'=========================================================
' Retrieve Logon Domain for the User
'=========================================================
  Set objDomain = GetObject("LDAP://rootDSE")
  strLogonDomain = objDomain.Get("dnsHostName")  

strFile = "\\dc05\_collectinfo\collnfo.csv"
strText = strUserNaam & "," & strComputerNaam & "," & strLogonDomain & "," & strSiteNaam & "," & Now() & "," & strIPadres

'=========================================================
' Create the Log File if not Exist!
'=========================================================
 Set objFSO = CreateObject("Scripting.FileSystemObject")
 If not objFSO.FileExists(strFile) Then
    Set objFile = objFSO.CreateTextFile(strFile)
    'Wscript.Echo "Just created " & strFile
    Set objFile = Nothing   
 End If 

'=========================================================
' Open Text file for Appending.
' ForAppending = 8 ForReading = 1, ForWriting = 2
'=========================================================
Const ForAppending = 8

Set objTextFile = objFSO.OpenTextFile(strFile, ForAppending, True)

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

Set objNetwork = Nothing
Set objADSysInfo = Nothing
Set objDomain = Nothing
Set objFSO = Nothing
Set objTextFile = Nothing
Set objFolder = Nothing

WScript.Quit

Dit script genereert de volgende regel:

code:

username, computername, logonserver, sitename, date, time, ipadres

[Turdie]

Verwijderd schreef op donderdag 21 oktober 2010 @ 11:23:
Beste,

Ik werk bij een organisatie met een 600+ medewerkers, met 800 werkplekken.
Wat opzich raar is, meer werkplekken dan medewerkers.

Zodoende zouden we graag het gebruik van de werkstations meten.
Om te kijken of er werkplekken kunnen vervallen.

Nu ben ik dus opzoek naar een mooie oplossing om het gebruik van de werkstations te meten.

Ik zat zelf te denken aan een een scriptje wat uitgevoerd wordt bij het uitloggen wat de totaal ingelogd tijd + hostname van het werkstation wegschrijft, echter kan ik geen variabele vinden met de totaal ingelogde tijd (windows 2003) wel de variabele %time%, wellicht kan ik hier nog iets mee berekenen door de inlogtijd en de uitlog tijd weg te schrijven en vervolgens te berekenen wat de totaal ingelogde tijd was.

Hebben jullie hier nog andere/betere oplossingen voor?

Het gaat om een (Citrix) netwerk wat gebruik maakt van zowel Novell Edir en MS AD.

Je zou kunnen kijken naar een oplossing van bijvoorbeeld Compuware, die kunnen de hele keten doormeten en adviezen geven. Het product heet Vantage.

[Remco]

Of kijk eens naar Spiceworks, dat is gratis.

[sanfranjake]

Hebben we het puur over Windows Server 2003? Of ook nog over clientbesturingssystemen? Die wil ik dan even in de titel zetten

[Rolfie]

Een Computer in de AD heeft een wachtwoord, wat je dus kan zien, gewoon kijken wanneer het wachtwoord is gewijzigd van het computer object. Ik geloof dat het iedere 30 dagen veranderd wordt.

Deze informatie kan je dus gemakkelijk gebruiken, en als een redelijk goede informatie bron gebruiken.

[SteeringWheel]

Rolfie schreef op donderdag 21 oktober 2010 @ 23:29:
Een Computer in de AD heeft een wachtwoord knip

Evenals een lastlogon attribuut waar je ook nog wat mee kan doen.

[Verwijderd]

sanfranjake schreef op donderdag 21 oktober 2010 @ 18:42:
Hebben we het puur over Windows Server 2003? Of ook nog over clientbesturingssystemen? Die wil ik dan even in de titel zetten

Clients zijn divers, maar voornamelijk thin clients (Wyse terminals)
Daar ben ik inderdaad niet duidelijk overgeweest, de clients hangen niet in het domein op een enkele uitzondering na.

[sanfranjake]

Als je dan met device-cal's werkt, zou je wellicht ook uit je licenseserver enige data kunnen verkrijgen. Als ik me niet vergis pakken die Wyse terminals netjes een CAL

[Turdie]

Wat me trouwens nog beter lijkt is een performance/stress test doen. Dus het gebruik van een virtueel aan users/machines simuleren, en die dan analyseren. Er zijn verschillende software pakketten op de markt en bedrijven die zich daarin specialiseren.

Of je wil puur alleen weten hoeveel er draait en wat er draait op je netwerk?

[ Voor 37% gewijzigd door Turdie op 22-10-2010 19:49 ]