Zjištění "Uživatele" – Visual Basic – Fórum – Programujte.com

Chci omezit používaní aplikace jen v rámci jedné společnosti. Napadlo mě, že bych to udělal přes "Oprávněný uživatel", třeba Wordu. Tuším, že je to název Organizace, který se zadává při instalaci. Dá ze zobrazit přes Nápověda (ve Wordu), O aplikaci Microsoft Office Word, Oprávněný uživatel této kopie. Je na to nějaká API funkce? Něco jako GetUserName? Díky...

GetUserName je WinAPI funkce, stačí si ji "dodefinovat":

Private Declare Function GetUserName Lib "advapi32.dll" _

Alias "GetUserNameA" (ByVal UserName As String, _

ByRef BuffSize As Long) As Long

To liborb :
To co jsi napsal vrátí jenom zase Jméno uživatele. To nepotřebuju. Já potřebuju dostat název organizace z licence.
Tj.
Oprávněný uživatel:
Henry (dostanu z GetUserName)
ČEZ, a. s. (jaká API funkce?)

Tak to bude možné získat asi jen z registrů:

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion -> RegisteredOrganization

To liborb :
Jo pres registr by to melo jit, ale nejak mi to nechodi. Muzes to rozepsat na vic radku?

Dim readValue As String



readValue = My.Computer.Registry.GetValue _

	("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion", "RegisteredOrganization", Nothing)        



MsgBox("RegisteredOrganization: " & readValue)

To liborb :
Hmm, tak mi to napsalo Run-time erorr '424':
Object required

A jakou verzi VB používáš?

To liborb :
VB 6

Tak to potom bude jen o něco složitější: http://programujte.com/?akce=clanek&cl=2005122902-vb-38-lekce.

To liborb : Díky za link. Asi jsem úplně blbej, ale když chci vypsat z toho tvýho příkladu x (MsgBox x,,"x"), tak mi to nic nenapíše. Ale když vložím mezi 14. a 15. řádek (MsgBox GetString,,"GetString"), tak mi to napíše správnou odpověď (hodnotu).
Deklaraci funkce GetReg mám v modulu a proceduru s x= REG (HKEY_CURRENT_USER, "Console", "FaceName") mám v kódu, který je přiřazen k tlačítku.Může být tedy problém někde tady?

Hmm ... vypadá to, že v tom kódu na webu je chyba. Místo GetString bych tam spíš viděl GetREG.

To liborb : Díky moc, problém vyřešen, šlape to !!! :-)