Okay I think you may be making a mistake in the file reading, or at least making it a bit more difficult.

Try modifying your script to fit into this structure.
Notice the /b which will give it a bare format
that is desired for scripting the names.

Also get and place the ReadFile UDF into your script.

Dim $ServerList, $strComputer, $Servers
Dim $WMI
$ServerList = @ScriptDir + '\' + 'servers.txt'
Shell '%COMSPEC% /c netview.exe /NTS /BDC /PDC /b > ' + $ServerList
If @ERROR
  "Netview is not found !" ??
  "You have to download netview at (http://www.optimumx.com/download/#NetView)" ?
  "and place it in this script directory." ?
  Quit @ERROR
EndIf
debhtml()
$Servers = ReadFile($ServerList)
For Each $strComputer In $Servers
  $strComputer = Trim(Join(Split($strComputer,'\\'),''))
  If $strComputer<>""
    "In progress for " + $strComputer + " ..." ?
    $WMI = WMIConfirm($strComputer)
    If $WMI > 0
    	'WMI on: ' + $strComputer + ' working okay' ?
    Else
    	'Unable to access the ' + $strComputer + ' due to WMI error' ?
    EndIf
  EndIf
Next


Then to make your file write faster you can change your WriteLine to something like this (untested in working code)

Function debhtml()
  Dim $Open, $x, $Close
  If Exist(".\resserv.html")
    Del ".\resserv.html"
  EndIf
  $Open = Open(3,".\resserv.html",5)
  $x = "<html>"+@CRLF
  $x = $x + "<head>"+@CRLF
  $x = $x + "<STYLE>"+@CRLF
  $x = $x + "BODY {"+@CRLF
  $x = $x + "  font-size:10 pt;"+@CRLF
  $x = $x + "  font-family: Verdana;"+@CRLF
  $x = $x + "}"+@CRLF
  $x = $x + "H3 {"+@CRLF
  $x = $x + "  font-size:12 pt;"+@CRLF
  $x = $x + "  font-family: Verdana;"+@CRLF
  $x = $x + "}"+@CRLF
  $x = $x + "TH {"+@CRLF
  $x = $x + "  font-family : Verdana;"+@CRLF
  $x = $x + "  font-size : 12;"+@CRLF
  $x = $x + "}"+@CRLF
  $x = $x + "TD {"+@CRLF
  $x = $x + "  font-family : Verdana;"+@CRLF
  $x = $x + "  font-size : 12;"+@CRLF
  $x = $x + "}"+@CRLF
  $x = $x + "</STYLE>"+@CRLF
  $x = $x + "</head>"+@CRLF
  $x = $x + "<body>"+@CRLF
  $x = $x + "<br>"+@CRLF
  $x = $x + "<H3>Disk used for servers on domain "+@DOMAIN+"</H3>"+@CRLF
  $x = $x + ""+@CRLF
  $x = $x + "Unfortunately the non Windows servers could not be query<br>"+@CRLF
  $x = $x + "and report the line 'No WMI or server offline' : (<br><br></font>"+@CRLF
  $x = $x + "<Table border=0>"+@CRLF
  $x = $x + "<TR>"+@CRLF
  $x = $x + "<TD width=120>Server</TD>"+@CRLF
  $x = $x + "<TD width=100>Used</TD>"+@CRLF
  $x = $x + "<TD width=100 bgcolor=gray> </TD>"+@CRLF
  $x = $x + "<TD width=120>Avail-Space</TD>"+@CRLF
  $x = $x + "</TR>"+@CRLF
  $x = WriteLine(3,$x)
  $Close = Close(3)
EndFunction

 

I'm 99.9% sure that you're feeding a blank or non machine name to the rest of your functions and then the GetObject
is failing but since it doesn't know to end there it keeps
generating bogus output.

Use the above coding method and I'm sure you'll end up with working code.