how to set null or empty values to variables or objects in an array

Hi
 I have this script which pulls OS version etc from a list of computers and write the values in a text file. But if a computer is not on the network it put the same value it has from the previous computer into the text file.
For example, in the script below, if server2 is not on the network, it will put the info from server1 into the text file. how do I fix this?

Thanks


Dim OutPutFile
Dim FileSystem

Set FileSystem = WScript.CreateObject("Scripting.FileSystemObject")

Set dtmConvertedDate = CreateObject("WbemScripting.SWbemDateTime")

Set oFSO = CreateObject("Scripting.FileSystemObject")
set OutPutFile = oFSO.opentextfile("Inventory.txt",8, true)
OutPutFile.Write ("Server Name, OS, OS Type, OS Version, Service Pack,OS Serial, Install Date, Language")
OutputFile.writeline

Dim array1
array1=Array("server1","server2")
for each server in array1
strComputer = server

on error resume next

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

Set colOperatingSystems = objWMIService.ExecQuery _
    ("Select * from Win32_OperatingSystem")
For Each objOperatingSystem in colOperatingSystems
    caption = objOperatingSystem.Caption
    Version = objOperatingSystem.Version
    SerialNumber = objOperatingSystem.SerialNumber
    SP = objOperatingSystem.CSDVersion
    dtmConvertedDate.Value = objOperatingSystem.InstallDate
    dtmInstallDate = dtmConvertedDate.GetVarDate
    InstallDate = dtmInstallDate
    Language = objOperatingSystem.OSLanguage

OutPutFile.WriteLine strcomputer & "," & caption & "," & version & "," & sp & "," & serialnumber & "," & installdate & "," & language
next
next
wscript.quitStart Free Trial