Jump to content

Search the Community

Showing results for tags 'network lan enum computers'.

  • Search By Tags

    Type tags separated by commas.
  • Search By Author

Content Type


Forums

  • General
    • Announcements and Site News
    • Administration
  • AutoIt v3
    • AutoIt Help and Support
    • AutoIt Technical Discussion
    • AutoIt Example Scripts
  • Scripting and Development
    • Developer General Discussion
    • Language Specific Discussion
  • IT Administration
    • Operating System Deployment
    • Windows Client
    • Windows Server
    • Office

Categories

  • AutoIt Team
    • Beta
    • MVP
  • AutoIt
    • Automation
    • Databases and web connections
    • Data compression
    • Encryption and hash
    • Games
    • GUI Additions
    • Hardware
    • Information gathering
    • Internet protocol suite
    • Maths
    • Media
    • PDF
    • Security
    • Social Media and other Website API
    • Windows
  • Scripting and Development
  • IT Administration
    • Operating System Deployment
    • Windows Client
    • Windows Server
    • Office

Find results in...

Find results that contain...


Date Created

  • Start

    End


Last Updated

  • Start

    End


Filter by number of...

Joined

  • Start

    End


Group


Member Title


Location


WWW


Interests

Found 1 result

  1. I'm currently using the following code to read the stdout stream of the NET command and using the parameter 'view' (which lists all computers in the current domain.) My question is, what is the best approach to finding the connected computers on the LAN. Any help is much appreciated. Thanks. Function & Example: (working code) #include <Array.au3> #include <Constants.au3> TCPStartup() Local $aArray = _GetNetView() _ArrayDisplay($aArray) TCPShutdown() Func _GetNetView() ; Based on the idea by AoRaToS: http://www.autoitscript.com/forum/topic/78672-lan-chatting-help-needed/page__view__findpost__p__568770 Local $aError[1][2] = [[0, 2]], $iPID = Run(@ComSpec & ' /c net view', '', @SW_HIDE, $STDOUT_CHILD), $sOutput = '' While 1 $sOutput &= StdoutRead($iPID) If @error Then ExitLoop EndIf WEnd Local $aArray = StringRegExp($sOutput, '([0-9a-zA-Z-]*)', 3) If @error Then Return SetError(@error, 0, $aError) EndIf Local $aReturn[UBound($aArray, 1) + 1][2] = [[UBound($aArray, 1), 2]] For $i = 0 To $aReturn[0][0] - 1 $aReturn[$i + 1][0] = StringStripWS($aArray[$i], 3) $aReturn[$i + 1][1] = TCPNameToIP($aReturn[$i + 1][0]) Next Return $aReturn EndFunc ;==>_GetNetView
×
×
  • Create New...