WMI scripting template that runs the script against all the computers in a range of IP addresses (in this sample script, IP addresses 192.168.1.1 through 192.168.1.100).

Visual Basic
Edit|Remove
On Error Resume Next

intStartingAddress = 1
intEndingAddress = 100
strSubnet = "192.168.1."

For i = intStartingAddress to intEndingAddress
    strComputer = strSubnet & i

    ' =====================================================================
    ' Insert your code here
    ' =====================================================================

    Set objWMIService = GetObject _
        ("winmgmts:\\" & strComputer & "\root\cimv2")
    Set colItems = objWMIService.ExecQuery _
        ("Select * From Win32_OperatingSystem")
    For Each objItem in ColItems
        Wscript.Echo strComputer & ": " & objItem.Caption
    Next

    ' =====================================================================
    ' End
    ' =====================================================================

Next