option explicit

Dim objNetwork
Dim colDrives
Dim i
Dim objFSO
Dim objFile
Dim strComputer
Dim objWMIService
Dim objPrinter
Dim colInstalledPrinters
Dim colItems
Dim objItem

Const ForWriting = 2
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.CreateTextFile("C:\Info.txt", ForWriting)



Set objNetwork = WScript.CreateObject("WScript.Network")
Set colDrives = objNetwork.EnumNetworkDrives
For i = 0 to colDrives.Count-1 Step 2
objFile.WriteLine colDrives.Item(i) & vbTab & colDrives.Item (i + 1)
objFile.WriteLine " "
objFile.WriteLine "********************************************************************"
objFile.WriteLine " "
Next


objFile.Close

strComputer = "."
Const ForAppending = 8
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("C:\Info.txt", ForAppending)

Set objWMIService = GetObject("winmgmts:" _
 & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colInstalledPrinters = objWMIService.ExecQuery _
 ("SELECT * FROM Win32_Printer")
For Each objPrinter in colInstalledPrinters
objFile.WriteLine "Name: " & objPrinter.Name
 objFile.WriteLine "Location: " & objPrinter.Location
objFile.WriteLine " "
objFile.WriteLine "********************************************************************"
objFile.Writeline " "
Next

Set colItems = objWMIService.ExecQuery _
    ("Select * from Win32_ComputerSystem")
For Each objItem in colItems
    objfile.Writeline "Computer Name: " & objItem.Name
Next

objFile.Close