Networking Problems

Hi - please help with the following two problems.

Background info - Moms and Kids computer were networked and worked fine until system mechanic 6 was run on kids and also service pack 2 was loaded on kids. Service pack 2 is not on Moms, but system mechanic was run on Moms.

Problem 1 - now we are not networked and after trying to reset the network setup with the network wizard - we still can not network. The following error message comes up: MShome is not accessible. You might not have permission to use this network resource. Contact the administrator of this server to find out if you have access persmission. The semaphore timeout period has expired. This message is there even when the firewall is set to off and the c drive is set to share.

Problem 2 - after the loading of the above mentioned programs - when Moms computer is turned on the following server message comes up: Please advise and help. Thanks. Sharon & Braden
'==========================================================================
'
' VBScript Source File -- Created with Support.com ScriptCenter(TM)
'
' NAME: server.vbs
'
' AUTHOR: Chip Blais, Content Developer, Tiger Team, Sony Electronics
' DATE : 10/11/2000
'
' COMMENT: Support Action to set active servers
' checks for registry key about notification, True = notify, False = turn
off notification.
' Sets server paths.
'
'==========================================================================

Option Explicit

Dim global, shellobj, wshEnv, strRegKey, strSysFolder, strUser, strNotify

const tgfixpath = "C:\Progra~1\Support.com\client\bin\tgfix.exe "
const lserver = "C:\Program files\Support.com\client\lserver"
const tgcmdpath = "c:\progra~1\Support.com\client\bin\tgcmd.exe "
set shellobj = WScript.createobject("WScript.shell")
Set wshEnv = shellObj.Environment("Process")

On Error Resume Next

'=================================================================================================
===================================================

strSysFolder = wshEnv("WINDIR")

If strSysFolder = "C:\WINNT" then

strRegKey =
"HKLM\Software\Microsoft\WindowsNT\CurrentVersion\WinLogon\Defaultusername"

Else If strSysFolder = "C:\WINDOWS" then

strRegKey = "HKLM\Network\Logon\username"

End If
End If

err.Clear

strUser = shellobj.RegRead (strRegKey)

strRegKey = "HKLM\Software\support.com\users\" & strUser & "\DnaServerList\74D49528\"

'=================================================================================================
===================================================

On Error Resume Next

strNotify = shellobj.RegRead ("HKEY_LOCAL_MACHINE\Software\tioga\Notification")

IF strNotify = "False" then

global = ""

shellobj.run tgfixpath & "/fds " & global ,1, TRUE

shellobj.RegDelete strRegKey

Else

global = "http://sdcglobal4.sel.sony.com/global"

shellobj.run tgfixpath & "/fds " & global ,1, TRUE


End If

err.Clear

shellobj.run tgfixpath & "/fds " & chr(34) & lserver & chr(34) ,1, TRUE
shellobj.run tgcmdpath & "/server",1, TRUE
wscript.Quit

 

Might want to give this a read (and try the Winsock fix)

http://www.microsoft.com/communitie...&tid=54802d61-5f1c-46c1-869f-2ac3429c96a6&p=1