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
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.
Categorieën
Systeembericht