You can use "winmgmts" like this: Private Sub Form_Load() strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" _ & strComputer & "\root\cimv2") Set colSettings = objWMIService.ExecQuery _ ("Select * from Win32_OperatingSystem") For Each objOperatingSystem In colSettings Label1.Caption = objOperatingSystem.**Name** Next End Sub More properties in: http://msdn.microsoft.com/en-us/library/aa394239(VS.85).aspx Hope be helpful