windows security - How can I get the current user's SID in VB6? -

-

I have some old codes that we have to maintain in VB6. We need to add the ability of the current user to see the SID. Does anyone ever tell me some code that how does it show? Thanks in advance for your help!

try it 

  option clear '--- OpenProject Tokens Long = and H 20008 Pvt Decler as Private Constant Toucan_Ad all copyMemory Lib "Kernel 32" nicknamed "RTLMomemory" (not equal to PTO, in any form, as long as U., as long as ) Private Announcement Function GetCurrentProcess Lib "kernel32" () Long closed as the Private Declaration Function "H Nernel 32 "(Bye-H object as Long) OpenProcessToken Lib" advapi32.dll "(ByVal ProcessHandle as long as long as long as long as a personal announcement ceremony, long access to tokens are long) Long-time private announcement function GetTokenInformation Lib "advapi32.dll" (ByVal TokenHandle as Long, ByVal TokenInformationClass as Long, TokenInformation In any form, ByVal TokenInformationLength as long as long return lengths) Converters as Functions Dictasting Seed Lib "Advapi32.dll" Alias ​​"Converted Sidestration Seeday" (ByVal lpSid as long, LP string long personal announcement as long as Localfree Lib "Kernel 32" (long as heim) Long personal announcement As long as the functional lustlen Lib "kernel32" the nickname "lstrlenA" (ByVal lpString as long), Long Demonstrate as Long Demil lNeeded in the form of GetCurrentUserSid () string Deamam hprocessid long dim hToken form of the form of baBuffer () By in Dim sBuffer As String Dim lpSid as chronically low hprocessid = GetCurrentProcess (as long as lpString in) that hprocessid & lt; & Gt; 0) Call the GetTokenInformation (HTC, 1, BY, 0, L. Einidade) = 1 then OpenProtitocon (HProCDID, TokenWad, HTCen) = 1 Redeem Baber Buffer (0Linided) '--- Enum TokenAnnanceClass {TokenUser = 1, TokenGroup = 2, ...} If GetTokenInformation (hToken, 1, baBuffer (0), UBound (baBuffer), lNeeded = 1 then call coppy (lpSid, baBuffer (0), 4) If ConvertSidToStringSid (lpSid, lpString) then sBuffer = Space (Lestling Call) Comemoration (Bye Whisb Esbufer, Bye VL LP String, Lane (Assfuffer)) Call Local Free (LP string) GetCurrentUserSid = sBuffer End if and call call Handle (HTC) and if Call CloseHandley (HprocidID) End and Function

Comments

Post a Comment

Popular posts from this blog

asp.net - Javascript/DOM Why is does my form not support submit()? -

-
This is my first time working with asp.net and javascript, so I do not know very good web resources, or Much about javascript debugging I have to find out that on line oFormObject.submit (); Microsoft JScript Runtime Error: Object does not support this property or method I am using the link to work as a button because I am terrible in aesthetics and I think That link will look more professional than a table of 50 buttons. I have read that this solution can cause problems with browsers due to pre-rendering of my links and many additional traffic and problems, but CSS gives me a button like a link, which has issues of alignment and difference seemed to. & lt ;! DOCTYPE HTML PUBLIC "- // W3C // DTD HTML 4.01 // N" "http://www.w3.org/TR/html4/strict.dtd"> & Lt; Html xmlns = "http://www.w3.org/1999/xhtml" & gt; & Lt; Head & gt; & Lt; Link rel = "stylesheet" type = "text / css" href = "defect differen
Read more

sockets - Delphi: TTcpServer, connection reset when reading -

-
I am trying to implement one for Delphi, but there are some problems with communication. Fitnesse will start my process, and give me a portmember as a command line argument. Then I should make a socket on the port number given to me, and fitness will connect to that port I am using a TCPCP server for the job: < Pre> TcpServer1.LocalPort: = ParamStr (ParamCount); TcpServer1 Active: = true; On OnEXEPT () -Event, I send the protocol version to use as specified in the protocol. Process TForm1.TcpServer1Accept (From: TOBject; ClientSocket: TCustomIpClient); Var s: ansistring; Start clientSocket. Syndrome ('slim - v 0.0', # 10); SetLength (S, 6); ClientSketts Receavebook (S, 6); End; When I call ReceiveBuf (), the process ends, and fitness throws an exception: java.net.SocketException: connection Reset I have seen what sent and received. It shows that my code sends the protocol version, fitness sends back a message, and when I try to get this message
Read more

javascript - Classic ASP "ExecuteGlobal" statement acting differently on two servers -

-
I have a strange problem that I really do not know. In addition to developing a new ASP.NET site, I have to support the old "classic ASP" site. It is written in VBScript with a batch of JavaScript functions. Many of the JavaScript functions include 'files' Everything is fine on our production system (which security is controlled by another group - this is a military installation) Debugging them once did not work I). However, I have a fix for a vague bug that needs to be fully tested and some functions do not run under the "local" copy of the website that runs on my PC. For the record, I am running IIS 5.1 on XP. The problem is that some Javascript functions are running "OK" on the production server, but when they use it as a server, they are not defined on my PC what is happening that last Programmer, for some reason, has decided to put some functions in a series of files, which according to the observations, imitate the "need_once
Read more