INFORMATICS

The Best

Przełącznik języka

Tools

This Site

Mining

Security

CMS

Hardware

Backup

Windows Server

Databases

Emulators

Powershell

Storage Array

Active Directory

SEO

MSSQL

Antivirus program

Linux

Licznik

2.png9.png0.png0.png5.png6.png5.png
Today238
Yesterday832
This week2701
This month20690
Total2900565

Visitor Info

  • IP: 18.189.193.172
  • Browser: Unknown
  • Browser Version:
  • Operating System: Unknown

Who Is Online

4
Online
Martes, 30 Abril 2024 07:25

Skrypt do konwersji SID to USERNAME

Inicio desactivadoInicio desactivadoInicio desactivadoInicio desactivadoInicio desactivado
 

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