|
Dim buff$, ret&, bf&, pl&
buff = "software\microsoft\windows\currentversion" ret = RegOpenKeyEx(HKEY_LOCAL_MACHINE, buff, 0, KEY_QUERY_VALUE, pl) buff = String(127, 0) bf = 128 ret = RegQueryValueEx(pl, "RegisteredOwner", 0, REG_SZ, buff, bf) buff = Left$(buff, bf - 1) ret = RegCloseKey(pl) WinUser = buff |