Skrypt do konwersji SID to USERNAME

Skrypt do konwersji SID do username

' =======================================
' Author:     Shane Boudreaux
'    Date:         6/20/2001
'    Purpose:    Convert SID to Account Name
' =======================================
' =======================================
' Main Entry Point
' =======================================
On Error Resume Next
 
wscript.echo getSID
' =======================================
' =======================================
' Supporting Functions and Procedures
' =======================================
Private Function getSID()
' Get SID from user
Const POPUP_TITLE = "SID To User Conversion"
SID = InputBox("Enter SID",POPUP_TITLE)
server = "."
Set objWMIService = GetObject("winmgmts:\\" & server & "\root\cimv2")
 
Set objAccount = objWMIService.Get("Win32_SID.SID='" & SID & "'")
strUser = objAccount.AccountName
strDomain = objAccount.ReferencedDomainName
If Err.Number <> 0 Then
getSID = Err.Description
Err.Clear
Else
getSID = "User: " & vbtab & UCase(strUser) & vbcrlf & "Domain: " & vbtab & UCase(strDomain)
End If
End Function
' =======================================

INFORMATICS

The Best

Przełącznik języka

BUY COFFEE

Tools

This Site

Mining

Security

CMS

Hardware

Backup

Windows Server

Uncategorised

useful sites

Databases

Emulators

Powershell

Storage Array

Active Directory

SEO

MSSQL

DNS

Antivirus program

Linux

Foto

Licznik

Visitor Info

Who Is Online

Skrypt do konwersji SID to USERNAME

Search