I need a bit help...

I have made this script which I can use to log users who have local admin permissions:
Code:



Break On  

$srv='\\server\share\'+@wksta+'.txt'

;$strComputer = "comp1"

If $strComputer = "" 

	$strComputer = "."   

EndIf



Open(1,$srv,5)

$logdata='User'+Chr(9)+'Local Group'+Chr(9)+'Workstation'+Chr(9)+'OS'+Chr(9)+'Build'+Chr(9)+'SP'+Chr(9)+'NT Version'+Chr(13)+Chr(10)

$nul=WriteLine(1,$logdata)

$logdata=$name+Chr(9)+$group+Chr(9)+@Wksta+Chr(9)+@ProductType+Chr(9)+@Build+Chr(9)+@CSD+Chr(9)+@Dos+Chr(13)+Chr(10)

$nul=WriteLine(1,$logdata)	

$colGroups = GetObject("WinNT://" + $strComputer + "")

If $colGroups

	$colGroups.Filter = "group",""



	

	For Each $objGroup In $colGroups

		$group=$objGroup.Name



		For Each $objUser In $objGroup.Members

    			$name=$objUser.Name

    			$logdata=$name+Chr(9)+$group+Chr(10)+Chr(13)

				$nul=WriteLine(1,$logdata)

? $name +"-"+ $group

Sleep 1

		Next					

	Next 

EndIf	

:end

$logdata=Chr(10)+Chr(13)+Chr(10)+Chr(13)

$nul=WriteLine(1,$logdata)



$nul=Close(1)


with output:
Quote:


User Local Group Workstation OS Build SP NT Version
TESTPC2 Windows XP Professional 2600 Service Pack 1 5.1
Administrator Administrators

Domain Admins Administrators

XPtest Administrators




Every workstation creates its own logfile. I want to import all these files into one Excel Worksheet.

I created a macro in Excel which import a single file:
Code:

Sub import()

'

' import Macro

' Macro recorded 1/27/2004 by Co

'



'

    Workbooks.OpenText Filename:="\\Server\share\TESTPC2.txt", _

        Origin:=437, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _

        xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, _

        Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), _

        Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1), _

        Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1), Array(14, 1), Array(15 _

        , 1)), TrailingMinusNumbers:=True

    Columns("A:A").EntireColumn.AutoFit

    Columns("B:B").EntireColumn.AutoFit

    Columns("C:C").EntireColumn.AutoFit

    Columns("D:D").EntireColumn.AutoFit

    Columns("E:E").EntireColumn.AutoFit

    Columns("F:F").EntireColumn.AutoFit

    Columns("G:G").EntireColumn.AutoFit

    Columns("H:H").EntireColumn.AutoFit

    Columns("I:I").EntireColumn.AutoFit

    Columns("J:J").EntireColumn.AutoFit

    ActiveWindow.ScrollColumn = 2

    ActiveWindow.ScrollColumn = 3

    ActiveWindow.ScrollColumn = 4

    Columns("K:K").EntireColumn.AutoFit

    Columns("L:L").EntireColumn.AutoFit

    Columns("M:M").EntireColumn.AutoFit

    Columns("N:N").EntireColumn.AutoFit

    ActiveWindow.ScrollColumn = 5

    Columns("O:O").EntireColumn.AutoFit

End Sub



Any idea how to modify this macro so it will import multiple files.. Or is there a way Kixtart can do the job??


Edited by Co (2004-01-28 09:26 AM)
_________________________
Co