• Hoeveel accounts op je computer?

    30 september 2011 21:48 door
    Ben je de enige die met de computer werkt, of met het hele gezin? Je staat versteld van het aantal accounts op één systeem

    Afhankelijk van je Windowsversie heb je verschillende type's van accounts op je systeem: administrator, standaard gebruiker, beperkte gebruiker en gast, om er maar een paar te noemen. Maar wat deze allemaal gemeen hebben is dat ze limieten op de acties van de gebruiker plaatsen in Windows.

    Zo, hoeveel verschillende accounts heb jij op je pc? Ik vermoed dat je het helemaal niet weet, alhoewel je denkt van wel.
    Kopieer en plak het volgende script in kladblok en sla het op als script.vbs". Vergeet
    de " niet en negeer de save as type: code box.

    Code:
    Dim objWMIService, objItem, objFso 
    Dim strComputer, UserName, Password 
    Dim SWBemlocator 
    Dim colItems 
    Dim Query, TxtFile, Count 
     
    CONST ForAppending = 8 
     
    strComputer = "." 
    Username = "" 
    Password = "" 
     
    Set SWBemlocator = CreateObject("wbemScripting.SWbemlocator") 
    Set objWMIService = SWBemlocator.ConnectServer(strComputer, _ 
     "\root\CIMV2",Username,Password) 
    Set colItems = objWMIService.ExecQuery("Select * from win32_Account") 
     
    Count = 0 
     
    Set objFso = CreateObject("Scripting.FileSystemObject") 
     
    If objFso.FileExists("AccountRes.txt") Then 
        Set TxtFile = objFso.OpenTextFile("AccountRes.txt", ForAppending) 
     
        Else Set TxtFile = objFso.CreateTextFile("AccountRes.txt", True) 
        End If 
     
     
    For Each objItem in colItems 
     
       Count = Count + 1 
     
       TxtFile.WriteLine "Account Number: " & Count 
       TxtFile.WriteLine "Name: " & objItem.Caption 
       TxtFile.WriteLine "Description: " & objItem.Description 
       TxtFile.WriteLine "SID: " & objItem.SID 
       TxtFile.WriteLine "SIDType: " & objItem.SIDType 
       TxtFile.WriteLine "Status: " & objItem.Status 
       TxtFile.WriteLine 
       TxtFile.WriteLine "~~~~~~~~~~~~~~~~~~~~~~~~" 
       TxtFile.WriteLine 
    Next 
     
    TxtFile.Close 
     
    Query = MsgBox("The script has completed.", vbOKOnly + vbInformation, "That's All Folks!") 
     
    WSCript.Quit
    Dubbelklik op het script om het uit te voeren en open de tekstfile die verschijnt op je desktop
    om het resultaat te lezen.
    Het zijn niet specifiek useraccounts maar ook type's van accounts, maar ga verder, geef toe,
    het waren er meer dan je verwachtte - ik was verrast toen ik het resultaat zag.
    Reacties 14 Reacties
    1. J.W.'s schermafbeelding
      J.W. -
      Dat waren er 38. Als ik de " gebruik in de bestandsnaam komt er de melding: ongeldige bestandsnaam!
    1. salmax's schermafbeelding
      salmax -
      bij mij ook jw
    1. butskristof's schermafbeelding
      butskristof -
      Bij mij ook, ik heb gewoon script.vbs gebruikt en dat geeft geen problemen. Bij mij waren het 51 accounts, inderdaad meer dan ik verwachte!
    1. Fakke_Berto's schermafbeelding
      Fakke_Berto -
      Ik vind niets op mijn bureaublad :-(.
    1. J.W.'s schermafbeelding
      J.W. -
      Zeker van dat u het daar hebt opgeslagen?????
    1. salmax's schermafbeelding
      salmax -
      ik kreeg het voor elkaar en ik had iets niet goed gelezen
      ik heb er 5x39 hoe komt dat ?
    1. compuchrisje's schermafbeelding
      compuchrisje -
      Als je zelf een gebruiker aanmaakt, komen er ineens een resem mede-gebruikers mee, van het systeem dus, zoals Rosty daar al heeft bewerkt via het scriptje.
    1. Fakke_Berto's schermafbeelding
      Fakke_Berto -
      Citaat Oorspronkelijk geplaatst door J.W. Bekijk bericht
      Zeker van dat u het daar hebt opgeslagen?????
      Ik heb het gevonden bij mijn documenten in plaats van op het bureaublad. Toch 36 accounts hoor.
    1. vadeveni's schermafbeelding
      vadeveni -
      Bij mij zijn het er 43 !
    1. MMKM47's schermafbeelding
      MMKM47 -
      Ik heb er 44 ...Mag ik er daar van verwijderen en hoe !!!
    1. ine's schermafbeelding
      ine -
      Bij mij 46, maar ik heb SQL geinstalleerd
    1. Koshke's schermafbeelding
      Koshke -
      Zijn er 37 hier
    1. minQkel's schermafbeelding
      minQkel -
      Ik heb er 45 :P
    1. Supreme 3sen's schermafbeelding
      Supreme 3sen -
      Heb er ook in de 40. Maar vraagje is het mogelijk om ook de ingestelde wachtwoorden te zien?