• Home
 · 
• Miscellaneous
 · 
• Get the info about specific user account using Win32_Account WMI Class

Get the info about specific user account using Win32_Account WMI Class

Get the info about specific user account using Win32_Account WMI Class

Rate Get the info about specific user account using Win32_Account WMI Class

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

On Error Resume Next
Computer = "."
Set WMIService = GetObject("winmgmts:\\" & Computer & "\root\cimv2")
Set Items = WMIService.ExecQuery("Select * from Win32_Account where Name='Admin'")
Set OutFile = CreateObject("WScript.Shell")
Const ForAppending = 2
Set FileSystem = CreateObject("Scripting.FileSystemObject")
Set TextFile = FileSystem.OpenTextFile ("c:\Accounts2.txt", ForAppending, True)
TextFile.WriteLine "Account information as follows......"
TextFile.WriteLine
For Each Accounts in Items
TextFile.WriteLine "**********************************************************"
	TextFile.WriteLine "Caption: " & Accounts.Caption
	TextFile.WriteLine "Description: " & Accounts.Description
	TextFile.WriteLine "Domain/Workgroup: " & Accounts.Domain
	TextFile.WriteLine "Local Account: " & Accounts.LocalAccount
	TextFile.WriteLine "Name: " & Accounts.Name
	TextFile.WriteLine "SID: " & Accounts.SID
	TextFile.WriteLine "SID Type: " & Accounts.SIDType
	TextFile.WriteLine "Status: " & Accounts.Status
TextFile.WriteLine "**********************************************************"
Next
TextFile.Close
OutFile.Run "notepad.exe c:\Accounts2.txt",1,True