Private Sub Form_Load()



     Form1.AutoRedraw = True 'Required for you to see the text on the form.



     Form1.Print ShowAvailableSpace("c:")

     Form1.Print ShowAvailableSpace("p:")

     Form1.Print ShowAvailableSpace("\\ks1572ln01\c$")

     Form1.Print ShowAvailableSpace("\\ks1572ln01\d$")

     Form1.Print ShowAvailableSpace("\\ks1572ln01\public")



End Sub







Public Function ShowAvailableSpace(drvPath) As String

 

   Dim fs, d, s

    Set fs = CreateObject("Scripting.FileSystemObject")

    Set d = fs.GetDrive(fs.GetDriveName(drvPath))

    s = "Drive " & UCase(drvPath) & " - "

    s = s & d.VolumeName & vbCrLf

    s = s & "Available Space: " & FormatNumber(d.AvailableSpace / 1024, 0)

    s = s & " Kbytes"

    ShowAvailableSpace = s



End Function

Quote:

Retrieving System Information
Computer Assets, Listing 8.1

Description
Retrieves information similar to that returned by the System Information utility.

Script Code

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colSettings = objWMIService.ExecQuery _
("SELECT * FROM Win32_OperatingSystem")
For Each objOperatingSystem in colSettings
Wscript.Echo "OS Name: " & objOperatingSystem.Name
Wscript.Echo "Version: " & objOperatingSystem.Version
Wscript.Echo "Service Pack: " & _
objOperatingSystem.ServicePackMajorVersion _
& "." & objOperatingSystem.ServicePackMinorVersion
Wscript.Echo "OS Manufacturer: " & objOperatingSystem.Manufacturer
Wscript.Echo "Windows Directory: " & _
objOperatingSystem.WindowsDirectory
Wscript.Echo "Locale: " & objOperatingSystem.Locale
Wscript.Echo "Available Physical Memory: " & _
objOperatingSystem.FreePhysicalMemory
Wscript.Echo "Total Virtual Memory: " & _
objOperatingSystem.TotalVirtualMemorySize
Wscript.Echo "Available Virtual Memory: " & _
objOperatingSystem.FreeVirtualMemory
Wscript.Echo "OS Name: " & objOperatingSystem.SizeStoredInPagingFiles
Next
Set colSettings = objWMIService.ExecQuery _
("SELECT * FROM Win32_ComputerSystem")
For Each objComputer in colSettings
Wscript.Echo "System Name: " & objComputer.Name
Wscript.Echo "System Manufacturer: " & objComputer.Manufacturer
Wscript.Echo "System Model: " & objComputer.Model
Wscript.Echo "Time Zone: " & objComputer.CurrentTimeZone
Wscript.Echo "Total Physical Memory: " & _
objComputer.TotalPhysicalMemory
Next
Set colSettings = objWMIService.ExecQuery _
("SELECT * FROM Win32_Processor")
For Each objProcessor in colSettings
Wscript.Echo "System Type: " & objProcessor.Architecture
Wscript.Echo "Processor: " & objProcessor.Description
Next
Set colSettings = objWMIService.ExecQuery _
("SELECT * FROM Win32_BIOS")
For Each objBIOS in colSettings
Wscript.Echo "BIOS Version: " & objBIOS.Version
Next

Quote:

Const ForReading = 1
Set objDictionary = CreateObject("Scripting.Dictionary")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile _
("c:\scripts\servers.txt", ForReading)
i = 0
Do Until objTextFile.AtEndOfStream
strNextLine = objTextFile.Readline
objDictionary.Add i, strNextLine
i = i + 1
Loop
For Each objItem in objDictionary
StrComputer = objDictionary.Item(objItem)
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer& "\root\cimv2")
Set colServices = objWMIService.ExecQuery _
("SELECT * FROM Win32_Service")
Wscript.Echo strComputer, colServices.Count
Next

Quote:

Enumerating Logical Disk Drive Properties
Disks and File Systems, Listing 10.3

Description
Displays property values for all the logical disk drives on a computer.

Script Code

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colDisks = objWMIService.ExecQuery _
("SELECT * FROM Win32_LogicalDisk")
For each objDisk in colDisks
Wscript.Echo "Compressed: " & objDisk.Compressed
Wscript.Echo "Description: " & objDisk.Description
Wscript.Echo "Device ID: " & objDisk.DeviceID
Wscript.Echo "Drive Type: " & objDisk.DriveType
Wscript.Echo "File System: " & objDisk.FileSystem
Wscript.Echo "Free Space: " & objDisk.FreeSpace
Wscript.Echo "Media Type: " & objDisk.MediaType
Wscript.Echo "Name: " & objDisk.Name
Wscript.Echo "Size: " & objDisk.Size
Wscript.Echo "Supports FileBased Compression: " & _
objDisk.SupportsFileBasedCompression
Wscript.Echo "System Name: " & objDisk.SystemName
Wscript.Echo "Volume Name: " & objDisk.VolumeName
Wscript.Echo "Volume Serial Number: " & _
objDisk.VolumeSerialNumber
Next

Quote:

Enumerating Free Disk Space
Disks and File Systems, Listing 10.6

Description
Enumerates the amount of free disk space for all the hard disks on a computer.

Script Code

Const HARD_DISK = 3
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colDisks = objWMIService.ExecQuery _
("SELECT * FROM Win32_LogicalDisk WHERE DriveType = " _
& HARD_DISK & "")
For Each objDisk in colDisks
Wscript.Echo "Device ID: " & objDisk.DeviceID
Wscript.Echo "Free Disk Space: " & objDisk.FreeSpace
Next

Quote:

On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_LogicalDisk",,48)
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oFH = oFSO.CreateTextFile("driveinfo.txt",True)

For Each objItem in colItems
oFH.Write "SystemName: " & objItem.SystemName & vbCrLf
oFH.Write "VolumeName: " & objItem.VolumeName & vbCrLf
oFH.Write "VolumeSerialNumber: " & objItem.VolumeSerialNumber & vbCrLf
oFH.Write "InstallDate: " & objItem.InstallDate & vbCrLf
oFH.Write "Description: " & objItem.Description & vbCrLf
oFH.Write "DriveType: " & objItem.DriveType & vbCrLf
oFH.Write "MediaType: " & objItem.MediaType & vbCrLf
oFH.Write "FileSystem: " & objItem.FileSystem & vbCrLf
oFH.Write "Status: " & objItem.Status & vbCrLf
oFH.Write "StatusInfo: " & objItem.StatusInfo & vbCrLf
oFH.Write "DeviceID: " & objItem.DeviceID & vbCrLf
oFH.Write "Name: " & objItem.Name & vbCrLf
oFH.Write "FreeSpace: " & objItem.FreeSpace & vbCrLf
oFH.Write "-------------------------------------------------------------" & vbCrLf & vbCrLf
Next

oFH.Close

Quote:
Set oFH = oFSO.CreateTextFile("driveinfo.txt",True)

Quote:
Set oFH = oFSO.CreateTextFile("driveinfo.txt", 8, True)

Quote:
Set oFH = oFSO.OpenTextFile("driveinfo.txt", 8, True)

Quote:
Yeah, the command line of :

net view /domain:domainname

gets you an ASCII list of the currently connected domain-participating PCs.

Quote:

How would you query the DNS server to list the names of the active PCs on its local subnet?