UDF Computer info

SUBMITTED BY: Guest

DATE: May 29, 2013, 7:12 a.m.

FORMAT: Text only

SIZE: 5.8 kB

Raw Download

HITS: 1020

Report
  1. #Region ;**** Directives created by AutoIt3Wrapper_GUI ****
  2. #AutoIt3Wrapper_Icon=Info 3.ico
  3. #AutoIt3Wrapper_Res_Comment=Displays Service tag, computer name and model
  4. #AutoIt3Wrapper_Res_Fileversion=0.0.0.1
  5. #AutoIt3Wrapper_Res_LegalCopyright=GreenCan
  6. #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
  7. #include <Misc.au3>
  9. #cs
  10. Get some collection of information to help user open a ticket at the service desk
  12. User ID: Login Name of User
  14. Model: Model of PC
  15. Service Tag: Service tag or serial number of the PC (Tested on Dell)
  16. Computer Name: Identification of the PC
  17. IP Address: All Network adaptors with IP address
  18. If not currently used mentions '(Disabled)' after the IP address
  19. WLan connection : xxx.xxx.xxx.xxx
  20. LAN Connection : xxx.xxx.xxx.xxx (Disabled)
  22. Putclip when done
  23. #ce
  25. Global Const $wbemFlagReturnImmediately = 0x10
  26. Global Const $wbemFlagForwardOnly = 0x20
  27. Local $colItems = "", $Output, $Disabled = False
  29. $Output &= "User ID: " & @TAB & @UserName & @CRLF & @CRLF
  31. $objWMIService = ObjGet("winmgmts:\\localhost\root\CIMV2")
  32. $colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_ComputerSystemProduct", "WQL", _
  33. $wbemFlagReturnImmediately + $wbemFlagForwardOnly)
  35. If IsObj($colItems) then
  36. For $objItem In $colItems
  37. $Output &= "Model: " & @TAB & @TAB & $objItem.Name & @CRLF
  38. $Output &= "Service Tag: " & @TAB & $objItem.IdentifyingNumber & @CRLF
  39. $Output &= "Computer Name: " & @TAB & @ComputerName & @CRLF
  40. Next
  41. Local $Active_Adaptors = GetWMI(2)
  42. If @error = 2 Then $Disabled = True
  43. Local $i = 0, $NetworkCard, $Description, $ServiceName, $ServiceNameKeyValue
  44. While True
  45. $i += 1
  46. $NetworkCard = RegEnumKey("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\NetworkCards", $i)
  47. If @error <> 0 Then ExitLoop
  48. $Description = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\NetworkCards\" & $NetworkCard , "Description")
  49. $ServiceName = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\NetworkCards\" & $NetworkCard , "ServiceName")
  50. $ServiceNameKeyValue = RegRead("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Interfaces\" & $ServiceName , "DhcpIPAddress")
  51. ; check if network adaptor, otherwise skip
  52. If StringInStr($Active_Adaptors , $Description ) > 0 Then
  53. ; make it end-user readable
  54. $Output &= "IP Address: " & @TAB & _Iif(StringInStr($Description, "WLAN") > 0,"WLan connection", "LAN Connection ") & _
  55. " : " & $ServiceNameKeyValue & _Iif(StringInStr($Active_Adaptors , $Description & " (Disabled)")> 0, " (Disabled)", "") & @CRLF
  56. EndIf
  57. WEnd
  58. ; if all adaptors are disabled
  59. If $Disabled Then
  60. $Output &= "IP Address: " & @TAB & "All network adaptors are disabled"
  61. EndIf
  62. ClipPut($Output)
  63. Msgbox(0,"Computer Info",$Output & @CRLF & @CRLF & "For selfticketing purpose, the information has been copied to your clipboard." & @CRLF & "You can now paste it into your ticket")
  64. Else
  65. Msgbox(48,"Computer Info","No WMI Objects Found for class: " & "Win32_ComputerSystemProduct" )
  66. Endif
  68. Exit
  70. Func GetWMI($Status = 0)
  71. ; $Status = 0 ==> enabled
  72. ; $Status = 1 ==> disabled
  73. ; $Status = 2 ==> Both
  74. Local $Active_Adaptors, $Disabled_Adaptors, $_Adaptors, $colItems
  75. If $Status = 0 Then
  76. $colItems = $objWMIService.ExecQuery("SELECT Description FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True", "WQL", 0x00).Count
  77. If $colItems > 0 Then
  78. $colItems = $objWMIService.ExecQuery("SELECT Description FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True", "WQL", 0x30)
  79. If IsObj($colItems) Then
  80. For $objItem In $colItems
  81. $Active_Adaptors &= $objItem.Description & @CRLF
  82. Next
  83. SetError(0)
  84. Return $Active_Adaptors
  85. Else
  86. Return SetError(1)
  87. EndIf
  88. Else
  89. Return SetError(2)
  90. EndIf
  91. ElseIf $Status = 1 Then
  92. $colItems = $objWMIService.ExecQuery("SELECT Description FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = False", "WQL", 0x00).Count
  93. If $colItems > 0 Then
  94. $colItems = $objWMIService.ExecQuery("SELECT Description FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = False", "WQL", 0x30)
  95. If IsObj($colItems) Then
  96. For $objItem In $colItems
  97. $Disabled_Adaptors &= $objItem.Description & " (Disabled)" & @CRLF
  98. Next
  99. SetError(0)
  100. Return $Disabled_Adaptors
  101. Else
  102. Return SetError(1)
  103. EndIf
  104. Else
  105. Return SetError(2)
  106. EndIf
  107. ElseIf $Status = 2 Then
  108. $colItems = $objWMIService.ExecQuery("SELECT Description, IPEnabled FROM Win32_NetworkAdapterConfiguration", "WQL", 0x00).Count
  109. If $colItems > 0 Then
  110. $colItems = $objWMIService.ExecQuery("SELECT Description, IPEnabled FROM Win32_NetworkAdapterConfiguration", "WQL", 0x30)
  111. If IsObj($colItems) Then
  112. For $objItem In $colItems
  113. $_Adaptors &= $objItem.Description & _iif($objItem.IPEnabled = True,""," (Disabled)") & @CRLF
  114. ConsoleWrite(@ScriptLineNumber & " " & $objItem.Description & " " & _iif($objItem.IPEnabled = True,""," (Disabled)") & @CRLF)
  115. Next
  116. SetError(0)
  117. Return $_Adaptors
  118. Else
  119. Return SetError(1)
  120. EndIf
  121. Else
  122. Return SetError(2)
  123. EndIf
  124. EndIf
  125. EndFunc
comments powered by Disqus