'Поиск в SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProfileList 'ветки пользователя с именем, заданным в USERNAME 'и запись найденного SID'а в USERSID. Function GetSID() On Error Resume Next Const HKEY_LOCAL_MACHINE = &H80000002 strComputer = "." Set objRegistry=GetObject("winmgmts:\\" & strComputer & "\root\default:StdRegProv") strKeyPath = "SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProfileList" objRegistry.EnumKey HKEY_LOCAL_MACHINE, strKeyPath, arrSubkeys For Each objSubkey In arrSubkeys strValueName = "ProfileImagePath" strSubPath = strKeyPath & "\" & objSubkey objRegistry.GetExpandedStringValue HKEY_LOCAL_MACHINE,strSubPath,strValueName,strValue subStr = Split(strValue,"\") username = subStr(UBound(subStr)) If StrComp(username,Session.Property("USERNAME")) = 0 Then Session.Property("USERSID") = objSubkey End If Next GetSID = 0 End Function