SELECT name,
CASE ( TYPE ) 
WHEN ‘P’ THEN ‘Stored Procedure’
WHEN ‘TR’ THEN ‘Trigger’
WHEN ‘V’ THEN ‘View’
WHEN ‘U’ THEN ‘Table’
WHEN ‘FN’ THEN ‘Function’
WHEN ‘F’ THEN ‘Foregin Key’
WHEN ‘K’ THEN ‘Key’
END AS ObjectType
FROM sysObjects
WHERE type IN (‘P’,‘TR’,‘V’,‘U’,‘FN’,‘F’,‘K’)
ORDER BY type,
name

SELECT
	name,
	CASE WHEN type=‘P’ THEN 
		‘Stored Procedure’
	ELSE
		CASE WHEN type=‘TR’ THEN 
			‘Trigger’ 
			ELSE CASE WHEN type=‘V’ THEN
				‘View’
				ELSE CASE WHEN type=‘U’ THEN
				‘Table’
					ELSE CASE WHEN type=‘FN’ THEN
						‘Function’
						ELSE CASE WHEN type=‘F’ THEN
						‘Foregin Key’
							ELSE CASE WHEN type=‘K’ THEN
							‘Key’
							END
						END
					END
				END
			END
		END
	END
FROM 
	sysObjects 
WHERE 
	type=‘P’ OR type=‘TR’ OR type=‘V’ OR type=‘U’ OR type=‘FN’ OR type=‘F’ OR type=‘K’ 
ORDER BY
	type, name

 RegistryKey^ rk = RegistryKey::OpenRemoteBaseKey(RegistryHive::LocalMachine, System::Environment::MachineName);
				 RegistryKey^ rkprograms = rk->OpenSubKey(“Software\Microsoft\Windows\CurrentVersion\Uninstall”,RegistryKeyPermissionCheck::ReadSubTree,System::Security::AccessControl::RegistryRights::FullControl);
 
					 array<string ^,1>^ rksubkeynames = rkprograms->GetSubKeyNames();
				 for (int i=0;i<rksubkeynames ->Length;i++) {
					 Object ^app = rkprograms->OpenSubKey(rksubkeynames[i])->GetValue(“DisplayName”);
					 if (app) {
						listBox1->Items->Add(app);
					 }
				 }</rksubkeynames></string>

 RegistryKey rk = RegistryKey.OpenRemoteBaseKey(RegistryHive.LocalMachine, “pvn”);
            RegistryKey rkprograms = rk.OpenSubKey(@“Software\Microsoft\Windows\CurrentVersion\Uninstall”);
            foreach (string s in rkprograms.GetSubKeyNames())
            {
                listBox1.Items.Add(s);
            }

class=“class1 class2″

<script language=“javascript”>
      history.go(1);
</script>