[VB] Advanced Systems Analysis {30% COMPLETE}

SUBMITTED BY: Guest

DATE: April 5, 2013, 1:06 a.m.

FORMAT: Text only

SIZE: 10.6 kB

Raw Download

HITS: 1014

Report
  1. 'C# version coming with v1.0; Full Release will be on HackForums.net, alpha releases here, beta & alpha versions here.
  3. 'UNDER CONSTRUCTION. 30% COMPLETE. ALPHA RELEASE.
  4. 'Lucid Development
  5. 'Advanced Systems Analysis ---- UNDER CONSTRUCTION. 30% COMPLETE. ALPHA RELEASE.
  7. 'Featuers:
  8. ' OperatingSystem Information: (4% done)
  9. ' OS Version
  10. ' Name, Major, Minor, Build, Revision
  11. ' CPU Information: (63% done)
  12. ' AddressWidth
  13. ' Architecture
  14. ' Availability
  15. ' Caption
  16. ' COnfigManagerErrorCode
  17. ' ConfigManagerUserConfig
  18. ' CpuStatus
  19. ' CreationClassName
  20. ' CurrentClockSpeed
  21. ' CurrentVoltage
  22. ' DataWidth
  23. ' Description
  24. ' DeviceID
  25. ' ErrorCleared
  26. ' ErrorDescription
  27. ' ExtClock
  28. ' Family
  29. ' InstallDate
  30. ' L2CacheSize
  31. ' L2CacheSpeed
  32. ' L3CacheSize
  33. ' L3CacheSpeed
  34. ' LastErrorCode
  35. ' Level
  36. ' LoadPercentage
  37. ' Manufacturer
  38. ' MaxClockSpeed
  39. ' Name
  40. ' NumberOfCores
  41. ' NumberOfLogicalProcessors
  42. ' OtherFamilyDescription
  43. ' PNPDeviceID
  44. ' User Information (1% done)
  45. ' User Name
  46. ' Screen Resolution
  47. ' Computer Info (.5% done)
  48. ' WinDir()
  51. Imports System.Management
  52. Namespace LucidDevelopment ' ASA v0.3-b12-ALPHA
  53. Class OSVersionInfo
  54. 'These are basics, since these are easy to grab I'm not including very many in this version. v2 of this class will be more extensive
  56. Public Function GetOSVersion() As String
  57. Select Case Environment.OSVersion.Platform
  58. Case PlatformID.Win32S
  59. Return "Win 3.1"
  60. Case PlatformID.Win32Windows
  61. Select Case Environment.OSVersion.Version.Minor
  62. Case 0
  63. Return "Win95"
  64. Case 10
  65. Return "Win98"
  66. Case 90
  67. Return "WinME"
  68. Case Else
  69. Return "Unknown"
  70. End Select
  71. Case PlatformID.Win32NT
  72. Select Case Environment.OSVersion.Version.Major
  73. Case 3
  74. Return "NT 3.51"
  75. Case 4
  76. Return "NT 4.0"
  77. Case 5
  78. Select Case _
  79. Environment.OSVersion.Version.Minor
  80. Case 0
  81. Return "Win2000"
  82. Case 1
  83. Return "WinXP"
  84. Case 2
  85. Return "Win2003"
  86. End Select
  87. Case 6
  88. Return "Vista/Windows 7"
  89. Case Else
  90. Return "Unknown"
  91. End Select
  92. Case PlatformID.WinCE
  93. Return "Win CE"
  94. End Select
  95. Return "Unknown"
  96. End Function
  97. Public Function GetVersionMajor() As String
  98. Return Environment.OSVersion.Version.Major.ToString
  99. End Function
  100. Public Function GetVersionMinor() As String
  101. Return Environment.OSVersion.Version.Minor.ToString
  102. End Function
  103. Public Function GetVersionBuild() As String
  104. Return Environment.OSVersion.Version.Build.ToString
  105. End Function
  106. Public Function GetVersionRevision() As String
  107. Return Environment.OSVersion.Version.Revision.ToString
  108. End Function
  110. End Class
  111. Class CPUInfo
  113. Dim searcher As New ManagementObjectSearcher("root\CIMV2", "SELECT * FROM Win32_Processor")
  115. Private Function getObj(s As String) As String
  116. Try
  117. For Each queryObj As ManagementObject In searcher.[Get]()
  118. Return queryObj(s)
  119. Next
  120. Catch ex As Exception
  121. Return "Feil i søket '" & s & "' - " & ex.ToString
  122. End Try
  123. Return "Verdi Ukjent"
  124. End Function
  126. Public Function AddressWidth() As String
  127. Return getObj("AddressWidth")
  128. End Function
  129. Public Function Architecture() As String
  130. Return getObj("Architecture")
  131. End Function
  132. Public Function Availability() As String
  133. Return getObj("Availability")
  134. End Function
  135. Public Function Caption() As String
  136. Return getObj("Caption")
  137. End Function
  138. Public Function ConfigManagerErrorCode() As String
  139. Return getObj("ConfigManagerErrorCode")
  140. End Function
  141. Public Function ConfigManagerUserConfig() As String
  142. Return getObj("ConfigManagerUserConfig")
  143. End Function
  144. Public Function CpuStatus() As String
  145. Return getObj("CpuStatus")
  146. End Function
  147. Public Function CreationClassName() As String
  148. Return getObj("CreationClassName")
  149. End Function
  150. Public Function CurrentClockSpeed() As String
  151. Return getObj("CurrentClockSpeed")
  152. End Function
  153. Public Function CurrentVoltage() As String
  154. Return getObj("CurrentVoltage")
  155. End Function
  156. Public Function DataWidth() As String
  157. Return getObj("DataWidth")
  158. End Function
  159. Public Function Description() As String
  160. Return getObj("Description")
  161. End Function
  162. Public Function DeviceID() As String
  163. Return getObj("DeviceID")
  164. End Function
  165. Public Function ErrorCleared() As String
  166. Return getObj("ErrorCleared")
  167. End Function
  168. Public Function ErrorDescription() As String
  169. Return getObj("ErrorDescription")
  170. End Function
  171. Public Function ExtClock() As String
  172. Return getObj("ExtClock")
  173. End Function
  174. Public Function Family() As String
  175. Return getObj("Family")
  176. End Function
  177. Public Function InstallDate() As String
  178. Return getObj("InstallDate")
  179. End Function
  180. Public Function L2CacheSize() As String
  181. Return getObj("L2CacheSize")
  182. End Function
  183. Public Function L2CacheSpeed() As String
  184. Return getObj("L2CacheSpeed")
  185. End Function
  186. Public Function L3CacheSize() As String
  187. Return getObj("L3CacheSize")
  188. End Function
  189. Public Function L3CacheSpeed() As String
  190. Return getObj("L3CacheSpeed")
  191. End Function
  192. Public Function LastErrorCode() As String
  193. Return getObj("LastErrorCode")
  194. End Function
  195. Public Function Level() As String
  196. Return getObj("Level")
  197. End Function
  198. Public Function LoadPercentage() As String
  199. Return getObj("LoadPercentage")
  200. End Function
  201. Public Function Manufacturer() As String
  202. Return getObj("Manufacturer")
  203. End Function
  204. Public Function MaxClockSpeed() As String
  205. Return getObj("MaxClockSpeed")
  206. End Function
  207. Public Function Name() As String
  208. Return getObj("Name")
  209. End Function
  210. Public Function NumberOfCores() As String
  211. Return getObj("NumberOfCores")
  212. End Function
  213. Public Function NumberOfLogicalProcessors() As String
  214. Return getObj("NumberOfLogicalProcessors")
  215. End Function
  216. Public Function OtherFamilyDescription() As String
  217. Return getObj("OtherFamilyDescription")
  218. End Function
  219. Public Function PNPDeviceID() As String
  220. Return getObj("PNPDeviceID")
  221. End Function
  222. Public Function CPUID() As String
  223. Dim computer As String = "."
  224. Dim wmi As Object = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & computer & "\root\cimv2")
  225. Dim processors As Object = wmi.ExecQuery("Select * from " & "Win32_Processor")
  227. Dim cpu_ids As String = ""
  228. For Each cpu As Object In processors
  229. cpu_ids = cpu_ids & ", " & cpu.ProcessorId
  230. Next cpu
  231. If cpu_ids.Length > 0 Then cpu_ids = cpu_ids.Substring(2)
  233. Return cpu_ids
  234. End Function
  235. Public Function SystemSerialNumber() As String
  236. ' Get the Windows Management Instrumentation object.
  237. Dim wmi As Object = GetObject("WinMgmts:")
  239. ' Get the "base boards" (mother boards).
  240. Dim serial_numbers As String = ""
  241. Dim mother_boards As Object = _
  242. wmi.InstancesOf("Win32_BaseBoard")
  243. For Each board As Object In mother_boards
  244. serial_numbers &= ", " & board.SerialNumber
  245. Next board
  246. If serial_numbers.Length > 0 Then serial_numbers = _
  247. serial_numbers.Substring(2)
  249. Return serial_numbers
  250. End Function
  251. End Class
  252. Class UserInfo
  253. Public Function UserName() As String
  254. Return SystemInformation.UserName
  255. End Function
  256. Public Function Resolution() As String
  257. Return "(" & SystemInformation.WorkingArea.Width & ", " & SystemInformation.WorkingArea.Height & ")"
  258. End Function
  259. End Class
  260. Class ComputerInfo
  261. Public Function WinDir() As String
  262. Return Environ$("windir")
  263. End Function
  264. End Class
  265. End Namespace
comments powered by Disqus