Net view results

[adored]

I need some help with a script

I want to make a script that get's the computer names from the cmd command "net view" en puts them in a dropdown list

but i have realy no clue how to do it

here some info:

you wil get a scheme like this from the command "net view"

Servername          Comment

-------------------------------------------------------------------------------
\\LOEK-BOVEN           Loekus.nl
\\COMPUTER2
\\COMPUTER3

now the thing I need it this,

i need all the names behinde the "\\" in a drop down list, but if you look at \\LOEK-BOVEN there is a comment, i DON'T need that in the drop down....

i hope it's a little bid clear

cheers, adored

[amanda089]

StringRegExp($string, "\\\\([0-9a-zA-Z-]*)", $flag)

Look at StringRegExp Documentation for more information on that function.

Edited August 28, 2006 by amanda089

[PsaltyDS]

I need some help with a script

I want to make a script that get's the computer names from the cmd command "net view" en puts them in a dropdown list

but i have realy no clue how to do it

here some info:

you wil get a scheme like this from the command "net view"

Servername          Comment

-------------------------------------------------------------------------------
\\LOEK-BOVEN           Loekus.nl
\\COMPUTER2
\\COMPUTER3

now the thing I need it this,

i need all the names behinde the "\\" in a drop down list, but if you look at \\LOEK-BOVEN there is a comment, i DON'T need that in the drop down....

i hope it's a little bid clear

cheers, adored

Old school DOS batch file technique:

@echo off
for /f "tokens=1"  %%i in ('net view') do (
    call :CheckName %%i
    )

:CheckName
Set TestVal=%1
If Not {%TestVal:~0,2%}=={\\} goto :EOF
Set TestVal=%TestVal:~2,15%
Set TestVal=%TestVal: =%
echo %TestVal%
goto :eof

Just for nostalgia's sake...

[adored]

Old school DOS batch file technique:

@echo off
for /f "tokens=1"  %%i in ('net view') do (
    call :CheckName %%i
    )

:CheckName
Set TestVal=%1
If Not {%TestVal:~0,2%}=={\\} goto :EOF
Set TestVal=%TestVal:~2,15%
Set TestVal=%TestVal: =%
echo %TestVal%
goto :eof

Just for nostalgia's sake...

hmm if i use this script it pops op the screen for a sec, and disapears

[Xenobiologist]

HI,

#include<File.au3>
#include<Array.au3>

RunWait(@ComSpec & ' /c net view > ' & @TempDir & "\netview.txt", '', @SW_HIDE)

Global $count = _FileCountLines(@TempDir & "\netview.txt")
Global $NetView[$count]

$file = FileOpen(@TempDir & "\netview.txt", 0)

; Check if file opened for reading OK
If $file = -1 Then
    MsgBox(0, "Error", "Unable to open file.")
    Exit
EndIf

For $i = 0 To $count
    $line = FileReadLine($file)
    If @error = -1 Then ExitLoop
    If StringInStr($line, "\\") <> 0 Then
        $NetView[$i] = _StringBetween1($line, "\\", " ")
    EndIf
Next

FileClose($file)
FileDelete(@TempDir & "\netview.txt")

_ArrayDisplay($NetView, "Servernames")

Func _StringBetween1($s_String, $s_Start = 0, $s_End = 0)
    $s_Start = StringInStr($s_String, $s_Start) + StringLen($s_Start)
    Return StringMid($s_String, $s_Start, StringInStr($s_String, $s_End) - $s_Start)
EndFunc   ;==>_StringBetween1

So long,

Mega

[amanda089]

#include<Array.au3>


$Servernames = Net_View()

_ArrayDisplay($Servernames, "Servernames")

Func Net_View()
    Local $s_Buf = '', $a_Buf, $i_Pid = Run(@ComSpec & ' /c net view', '', @SW_HIDE, 2 + 4)
    While Not @error
        $s_Buf &= StdoutRead($i_Pid)
    WEnd
    $a_Buf = StringRegExp ($s_Buf, "\\\\([0-9a-zA-Z-]*)", 3)
    ProcessClose($i_Pid)
    Return $a_Buf
EndFunc   ;==>Net_View

Using a regex to get the names.

[PsaltyDS]

hmm if i use this script it pops op the screen for a sec, and disapears

Well, it just outputs the list to STDOUT and ends. The shiny new hotness in AutoIT is being able to intercept the STDOUT and pipe it into your script. So you can run it like this:

#include <Constants.au3>

$Batch = "C:\Temp\NetView.bat" ; Edit to where you saved the batch file
$sOutput = ""
$hPID = Run(@ComSpec & " /c " & $Batch, @TempDir, @SW_MINIMIZE, $STDOUT_CHILD)
While 1
    $sOutput &= StdoutRead($hPID)
    If @error Then ExitLoop
WEnd
MsgBox(64, "Results", "NetView.bat Results: " & @CRLF & $sOutput)

It's still maddening that I can't find the COM object provider that will let us read NetBIOS\Network Neighborhood schtuff straight out...

[adored]

Well, it just outputs the list to STDOUT and ends. The shiny new hotness in AutoIT is being able to intercept the STDOUT and pipe it into your script. So you can run it like this:

#include <Constants.au3>

$Batch = "C:\Temp\NetView.bat" ; Edit to where you saved the batch file
$sOutput = ""
$hPID = Run(@ComSpec & " /c " & $Batch, @TempDir, @SW_MINIMIZE, $STDOUT_CHILD)
While 1
    $sOutput &= StdoutRead($hPID)
    If @error Then ExitLoop
WEnd
MsgBox(64, "Results", "NetView.bat Results: " & @CRLF & $sOutput)

It's still maddening that I can't find the COM object provider that will let us read NetBIOS\Network Neighborhood schtuff straight out...

yeah i knew how i needed to Stdoutread.. but i copy'd the script wrong

great thnx for the help