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)

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

---

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

shell '%COMSPEC% /c copy *.CVS ALLFILES.CVS'

Function GetFiles(strFolderSpec As String) As Variant

    Dim fso As Scripting.FileSystemObject
    Dim fld As Scripting.Folder
    Dim fil As Scripting.File
    Dim temp() As String
    ReDim temp(0)

    Set fso = New Scripting.FileSystemObject
    Set fld = fso.GetFolder(strFolderSpec)
    For Each fil In fld.Files
        temp(UBound(temp)) = fil.Name
        ReDim Preserve temp(UBound(temp) + 1)
    Next fil
    ReDim Preserve temp(UBound(temp) - 1)

    GetFiles = temp()
End Function

Sub Main
    Dim strFolder As String
    Dim strFiles As Variant
    Dim strFile As Variant

    strFolder = "Z:\vba\temp\"
    strFiles = GetFiles(strFolder)

    For Each strFile In strFiles
        Workbooks.OpenText Filename:=strFolder & strFile, Tab:=True
    Next strFile
End Sub