To make the problem clear let me provide the code.
<html>
<head>
<title>Trouble Shooting Tool for Helpdesk</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<script type="text/vbscript">
Sub IP()
'Option Explicit
On Error resume Next
Dim o_sehllobj, result, outPut
set o_sehllobj = CreateObject("Wscript.Shell") ' <.....i am having the error here...>
if(err.number<>0) Then
msgbox (Err.Description)
End If
result = o_sehllobj.Exec("ping uk911dp6008")
outPut = ""
Do While result.StdOut.AtEndOfStream <> True
outPut = outPut + result.StdOut.ReadLine
Loop
Dim oRE, oMatches
oRE = New RegExp
oRE.Global = True
oRE.IgnoreCase = True
oRE.Pattern = "[0-9]+.[0-9]+.[0-9]+.[0-9]+"
set oMatches = oRE.Execute(outPut)
Dim oMatch
For Each oMatch In oMatches
'textfield2.Text = oMatch.Value
msgbox(oMatch.Value)
Exit For
Next
End Sub
</script>
</head>
<body bgcolor="#FFFFFF">
<div id="Layer1" style="position:absolute; left:207px; top:25px; width:414px; height:20px; z-index:1"></div>
<div id="Layer2" style="position:absolute; left:157px; top:55px; width:549px; height:70px; z-index:2">
<form name="form1" >
<p>Computer Name:
<input type="text" name="textfield">
<INPUT TYPE="Button" NAME="Button1" VALUE="Click">
<SCRIPT FOR="Button1" EVENT="onClick" LANGUAGE="VBScript">
call IP()
</SCRIPT>
IP Address
<input type="text" name="textfield2">
</p>
</form>
</div>
<div id="Layer3" style="position:absolute; left:51px; top:145px; width:873px; height:17px; z-index:3">
<hr>
</div>
<div id="Layer4" style="position:absolute; left:53px; top:188px; width:881px; height:490px; z-index:4"></div>
</body>
</html>