Jump to content

How can I get the "Computer Desction"

Recommended Posts

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.


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.


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)

- MoChr(77)& Chr(97)& Chr(100)& Chr(101)& Chr(32)& Chr(121)& Chr(97)& Chr(32)& Chr(108)& Chr(111)& Chr(111)& Chr(107)-------I've told you 100,000 times not to exaggerate!-------Don't make me hit you with my cigarette hand...-------My scripts:Random Episode Selector, Keyboard MouseMover, CopyPath v2.1, SmartRename for XP,Window Tracer[sup]New![/sup]

Link to comment
Share on other sites

@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"
$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
MsgBox(0, "test", $Description )
Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

  • Recently Browsing   0 members

    • No registered users viewing this page.
  • Create New...