INFORMATICS

The Best

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
' =======================================

Search