Computer Information Source
Get the Computer User:::Alien::
[vb]
Textbox1.Text = Microsoft.Win32.Registry.GetValue("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows NT\CurrentVersion", "RegisteredOwner", "")
[/vb]
Get the Computer Company:::Alien::
[vb]
Textbox1.text = Microsoft.Win32.Registry.GetValue("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows NT\CurrentVersion", "RegisteredOrganization", "")[/vb]
Gets Processor Name:::Alien::
[vb]
Textbox1.text = Microsoft.Win32.Registry.GetValue("HKEY_LOCAL_MACHINE\Hardware\DESCRIPTION\System\CentralProcessor\0", "Identifier", "")
[/vb]
Gets OS Name:::Alien::
[vb]
Textbox1.text = My.Computer.InfSFullName
[/vb]
Gets OS Version & Build Number:::Alien::
[vb]
Textbox1.text = My.Computer.InfSVersion
[/vb]
Gets System Product Name:::Alien::
[vb]
Textbox1.text = Microsoft.Win32.Registry.GetValue("HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\SystemInformation", "SystemProductName", "")
[/vb]
Gets Total Physical Memory:::Alien::
[vb]
Textbox1.text = My.Computer.Info.TotalPhysicalMemory
[/vb]
Gets Available Physical Memory:::Alien::
[vb]
Textbox1.text = My.Computer.Info.AvailablePhysicalMemory
[/vb]
Gets Clipboard Text:::Alien::
[vb]
Textbox1.text = My.Computer.Clipboard.GetText
[/vb]
Get the Computer User:::Alien::
[vb]
Textbox1.Text = Microsoft.Win32.Registry.GetValue("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows NT\CurrentVersion", "RegisteredOwner", "")
[/vb]
Get the Computer Company:::Alien::
[vb]
Textbox1.text = Microsoft.Win32.Registry.GetValue("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows NT\CurrentVersion", "RegisteredOrganization", "")[/vb]
Gets Processor Name:::Alien::
[vb]
Textbox1.text = Microsoft.Win32.Registry.GetValue("HKEY_LOCAL_MACHINE\Hardware\DESCRIPTION\System\CentralProcessor\0", "Identifier", "")
[/vb]
Gets OS Name:::Alien::
[vb]
Textbox1.text = My.Computer.InfSFullName
[/vb]
Gets OS Version & Build Number:::Alien::
[vb]
Textbox1.text = My.Computer.InfSVersion
[/vb]
Gets System Product Name:::Alien::
[vb]
Textbox1.text = Microsoft.Win32.Registry.GetValue("HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\SystemInformation", "SystemProductName", "")
[/vb]
Gets Total Physical Memory:::Alien::
[vb]
Textbox1.text = My.Computer.Info.TotalPhysicalMemory
[/vb]
Gets Available Physical Memory:::Alien::
[vb]
Textbox1.text = My.Computer.Info.AvailablePhysicalMemory
[/vb]
Gets Clipboard Text:::Alien::
[vb]
Textbox1.text = My.Computer.Clipboard.GetText
[/vb]