version 6.50 0 Form1 1022 716 1 RegistryDesktop.dll 0 1 reg:Registry 0 Sub designer addform(Form1,"Form1","",220,255,255)@ End Sub @EndOfDesignText@ Sub Globals Sec_Svr = "" Sec_User = "" regKey = "Volatile Environment" regSvr = "LOGONSERVER" regUser = "CLIENTNAME" End Sub Sub App_Start Form1.Show reg.New1 reg.RootKey(reg.rtCurrentUser) Sec_Svr = reg.GetString(regKey,regSvr) Sec_User = reg.GetString(regKey,regUser) If StrLength(main.Sec_User) = 0 Then Msgbox("No User") End Sub