How can we send the output ofame)" command to a text file a "net view \\(systemn

[Guest sydullasyed]

Hi,

Using AutoIt can we send the output of "net view\\(systemname)"command to a text file?

if anybody knows please assist me

[Xenobiologist]

HI,

use Run and @compsec or _RunDos and use the command net view \\name > netview.txt

Likely this way:

#include<Process.au3>
_RunDOS("net view > c:\netview.txt")

So long,

Mega

Edited August 18, 2006 by th.meger

[Guest sydullasyed]

HI,

use Run and @compsec or _RunDos and use the command net view \\name > netview.txt

Likely this way:

#include<Process.au3>
_RunDOS("net view > c:\netview.txt")

So long,

Mega

Hi,

Thanks for sending the solution

it's storing the whole o/p in the txt file(netview.txt).

it is as follows

==================================================

Shared resources at \\sydsye

XXXX

Share name Type Used as Comment

-------------------------------------------------------------------------------

sc Disk

testshare Disk testshare

The command completed successfully.

====================================================

Here with this i need to check the sharename (sc) either it exists or not

since all the o/p exists in txtfile i am thinking that move only the table to other txt file so that i can easily check for the share names

netview.txt

[Xenobiologist]

HI,

sorry what? The file is empty. If you want to check whether there is a special string in the txtfile then read it into an array with _FileReadToArray() and check every line with StringInStr <> 0 Then "Juhu" ...

So long,

Mega

[Guest sydullasyed]

HI,

sorry what? The file is empty. If you want to check whether there is a special string in the txtfile then read it into an array with _FileReadToArray() and check every line with StringInStr <> 0 Then "Juhu" ...

So long,

Mega

Hi

File contais the following information.....

Shared resources at \\sydsye

ssss

Share name Type Used as Comment

-------------------------------------------------------------------------------

sc Disk

testshare Disk testshare

The command completed successfully.

i need only the share names (so that i can check the existance of share names)

if we move only the share names to other txt file i think it's easy to check.

is there any way how to send only the share names ?

or else can we check here itself (i.e. with in this file only)"

Please assist me

[Guest sydullasyed]

Hi

File contais the following information.....

Shared resources at \\sydsye

ssss

Share name Type Used as Comment

-------------------------------------------------------------------------------

sc Disk

testshare Disk testshare

The command completed successfully.

i need only the share names (so that i can check the existance of share names)

if we move only the share names to other txt file i think it's easy to check.

is there any way how to send only the share names ?

or else can we check here itself (i.e. with in this file only)"

Please assist me

Hi

File contais the following information.....

============================

Shared resources at \\sydsye

ssss

Share name Type Used as Comment

-------------------------------------------------------------------------------

sc Disk

testshare Disk testshare

The command completed successfully.

==================================================

i need only the share names (so that i can check the existance of share names)

if we move only the share names to other txt file i think it's easy to check.

is there any way how to send only the share names ?

or else can we check here itself (i.e. with in this file only)"

Please assist me

[BPBNA]

Run now has a parameter to see the write, output or error streams of the child process.

$output = Run(@ComSpec & " /c C:\MyProg.exe", "", @SW_HIDE, $STDOUT_CHILD+$STDERR_CHILD)

Take a look at the StdoutRead() and StderrRead() functions.

[Danny35d]

I create an UDF which give you an array with at list of printer shares or disk shares.

_NetView('\\ServerName', 'print') will give you a list of printer shares.

_NetView('\\ServerName') will give you a list of disk shares.

expandcollapse popup

#include <Array.au3>

$Server = InputBox('Enter Server', 'Enter server name or ip address.')

;$ServerList = _NetView($Server, 'print')  ; Return Array with print share
$ServerList = _NetView($Server)   ; Return Array with disk share
$error = @error
If Not IsArray($ServerList) Then MsgBox(0, $ServerList, $error)
_ArrayDisplay($ServerList, $error)
Exit

;==========================================================================================
;
; Description:      NewView, get a list of disk or printer shares (Windows or Novell)
; Syntax:           _NetView($sServerName, [$sType = 'disk', $iNovell = 0])
;
; Parameter(s):     $sServerName = 'Server Name or Ip Address'
;                   $sType    =  disk  - Give you an array with all disk share (default)
;                                print - Give you an array with all printer share
;                   $iNovell = 0 (default) or 1 to query Novell share list
;
; Requirement(s):   $sServerName
; Return Value(s):  On Success - Return an array with all disk or printer share
;                   On Failure - Return "" and set the @error flag:
;                                   0 - No error.
;                                   1 - If file not opened in read mode or other error.
;                                   2 - If file not exists.
;                                   3 - No disk or printer share found.
;                                   4 - Wrong $sType, use either 'disk' or 'print'
; Author(s):        Danny35d
;
;==========================================================================================
Func _NetView($sServerName, $sType = 'disk', $iNovell = 0)
    Local $LineCount = 5, $sPrinterList = '', $sCmdLine = ''
    
    $sServerName = StringReplace($sServerName, '\', '')
    If $sType == -1 Then $sType = 'disk'
    If $iNovell <> 0 Then $sCmdLine = ' /network:nw'
    If StringLower($sType) <> 'disk' And StringLower($sType) <> 'print' Then
        SetError(4)
        Return('')
    EndIf
    
    RunWait(@ComSpec & ' /c net view \\' & $sServerName & $sCmdLine & ' > ' & @TempDir & '\NetView.txt', @TempDir, @SW_HIDE)
    If FileExists(@TempDir & '\NetView.txt') Then
        While 1
            $Line = FileReadLine(@TempDir & '\NetView.txt', $LineCount)
            If @error == -1 Or @error == 1 Then 
                If @error == 1 Then
                    FileDelete(@TempDir & '\NetView.txt')
                    SetError(1)
                    Return('')
                EndIf
                ExitLoop            
            EndIf
            $LineCount += 1
            $Line = StringSplit($Line, ' ')
            If _ArraySearch($Line, $sType) <> -1 Then $sPrinterList &= '|' & $Line[1]           
        WEnd
        $sPrinterList = StringTrimLeft($sPrinterList, 1)
        FileDelete(@TempDir & '\NetView.txt')
    Else
        SetError(2)
        Return('')
    EndIf
    
    If $sPrinterList <> '' Then
        SetError(0)
        Return(StringSplit($sPrinterList, '|'))
    Else
        SetError(3)
        Return('')
    EndIf
EndFunc

[PsaltyDS]

Hi,

Thanks for sending the solution

it's storing the whole o/p in the txt file(netview.txt).

it is as follows

==================================================

Shared resources at \\sydsye

XXXX

Share name Type Used as Comment

-------------------------------------------------------------------------------

sc Disk

testshare Disk testshare

The command completed successfully.

====================================================

Here with this i need to check the sharename (sc) either it exists or not

since all the o/p exists in txtfile i am thinking that move only the table to other txt file so that i can easily check for the share names

If you know which share you are looking for ahead of time, you can let the DOS command line check it for you:

$SystemName = @ComputerName ; Change to remote computer name if required
$ShareName = "sc" ; Change to the share you are looking for

$ExtCmd = 'NET VIEW \\' & $SystemName & ' | FIND /i "Disk" | FIND "' & $ShareName & '"'
$ErrorLevel = RunWait(@ComSpec & " /c " & $ExtCmd, @TempDir, @SW_MINIMIZE)
If $ErrorLevel = 0 Then
     MsgBox(64, "Results", "The share \\" & $SystemName & "\" & $ShareName & " exists.")
Else
     MsgBox(16, "Results", "The share \\" & $SystemName & "\" & $ShareName & " does not exist.")
EndIfoÝ÷ Ø­!·¥ëÞ¶WÆ+-±û§rبƧr¥
­ëÞæ¬êÚºÚ"µÍÌÍÔÞÝ[S[YHHÛÛ][YHÈÚ[ÙHÈ[[ÝHÛÛ][YHY]ZYÌÍÔÚS[YHH ][ÝÜØÉ][ÝÈÈÚ[ÙHÈHÚH[ÝHHÛÚÚ[ÈÜÌÍÕÝSÈH  ÌÎNÉÌLÉÌLÉÌÎNÈ    [È ÌÍÔÞÝ[S[YH [È ÌÎNÉÌLÉÌÎNÈ [È ÌÍÔÚS[YH    [È ÌÎNÉÌLÉÌÎNÂY[Q^ÝÊ ÌÍÕÝSÊH[ÙÐÞ
    ][ÝÔÝ[É][ÝË   ][ÝÕHÚH  ][ÝÈ  [È ÌÍÕÝSÈ [È ][ÝÈ^ÝË][ÝÊB[ÙBÙÐÞ
    ][ÝÔÝ[É][ÝË   ][ÝÕHÚH  ][ÝÈ  [È ÌÍÕÝSÈ [È ][ÝÈÙÈÝ^Ý][ÝÊB[Y

Edited August 22, 2006 by PsaltyDS