INFORMATICS

The Best

Przełącznik języka

Zaproś mnie na KAWE

Jeżeli podoba Ci się strona i chcesz wspomóc projekt!

Postaw mi kawę na buycoffee.to

Tools

This Site

Mining

Księgowość

Płatnik

Security

CMS

Hardware

Backup

Windows Server

Uncategorised

Databases

Przydatne strony

Emulators

Poczta

PHP

Powershell

Storage Array

Active Directory

SEO

Serwis

MSSQL

DNS

Windows

Poradniki

Antivirus program

Linux

Naprawy

Windows Server

Foto

Licznik

2.png9.png0.png3.png2.png3.png7.png
Today149
Yesterday291
This week451
This month2210
Total2903237

Visitor Info

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

Who Is Online

2
Online
poniedziałek, 06 maj 2024 04:28

Skrypt do konwersji SID to USERNAME

Gwiazdka nieaktywnaGwiazdka nieaktywnaGwiazdka nieaktywnaGwiazdka nieaktywnaGwiazdka nieaktywna
 

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