How can I get the "Computer Desction"

[stevethornton]

I am trying to get a list of all the computers on my network. I have done the easy bit and got a list of the Computer Names, but have not been able to get the associated Computer Descriptions. Any help would be appreciated.

Steve

[Monamo]

I am trying to get a list of all the computers on my network. I have done the easy bit and got a list of the Computer Names, but have not been able to get the associated Computer Descriptions. Any help would be appreciated.

Steve

Give this a shot. If you have all of the machine names in an array, you can just do a For...Next to handle changing $strComputer for each machine.

CODE

Const $HKEY_LOCAL_MACHINE = 0x80000002

$strComputer = "."

Dim $strDescription

$objRegistry = ObjGet("winmgmts:\\" & $strComputer & "\root\default:StdRegProv")

$strKeyPath = "System\CurrentControlSet\Services\lanmanserver\parameters"

$strValueName = "srvcomment"

$objRegistry.GetStringValue ($HKEY_LOCAL_MACHINE, $strKeyPath, $strValueName, $strDescription)

ConsoleWrite($strDescription &@CRLF)

[DW1]

@Monamo, will this work for anything but the local machine?

I was going to suggest:

; Generated by AutoIt Scriptomatic
$wbemFlagReturnImmediately = 0x10
$wbemFlagForwardOnly = 0x20
$colItems = ""
$strComputer = "localhost"
$Description=""
$objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2")
$colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_OperatingSystem", "WQL", $wbemFlagReturnImmediately + $wbemFlagForwardOnly)
If IsObj($colItems) then
   For $objItem In $colItems
      $Description = $objItem.Description & @CRLF
      ExitLoop
   Next
EndIf
MsgBox(0, "test", $Description )