Scripting

Const ForReading = 1
Const ForWriting = 2
Const ForAppending = 8

Const OutputFile = "C:\Temp\output.txt"

Set oFSO = CreateObject("Scripting.FileSystemObject")
Set txt = oFSO.OpenTextFile(OutputFile, ForWriting, True)

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colItems = objWMIService.ExecQuery("Select * from Win32_Environment")

For Each objItem in colItems
txt.Writeline "Description: " & objItem.Description
txt.Writeline "Name: " & objItem.Name
txt.Writeline "System Variable: " & objItem.SystemVariable
txt.Writeline "User Name: " & objItem.UserName
txt.Writeline "Variable Value: " & objItem.VariableValue
Next

txt.Close

hey Spartucus need your assistance again, i need to output the contents of C:\Lotus\Notes\data directory and only need the nsf,ndk and id files

please assist a script you can do would be useful

This should hopefully get you started :

Const FolderToSearch = "C:\Lotus\Notes\data"
Const OutputFile = "C:\Temp\results.txt"

Const ForReading = 1
Const ForWriting = 2
Const ForAppending = 8

Dim oFSO
Dim oFolder,oFiles
Dim text,ext

'Instantiate the FileSystem Object
set oFSO = CreateObject("Scripting.FileSystemObject")

' Check if folder to be searched exists at all and, if not exit gracefully

if oFSO.FolderExists(FolderToSearch) then

' Search Folder was found, so open the report file
Set txt = oFSO.OpenTextFile(OutputFile, ForWriting, True)

set oFolder = OFSO.GetFolder(FolderToSearch)

' Get collection of all the files in the folder to be searched
set oFiles = ofolder.Files

for each file in oFiles
' Get hold of the file extension and, if one of the ones we are looking for, log the filename to the report file
ext = oFSO.GetExtensionName(file.name)
ext = ucase(ext)
if ext = "NSF" OR ext = "NDK" OR ext = "ID" then
txt.writeline file.name
end if
next
txt.close
end if

set oFSO = Nothing

Regards,

Spartacus