Hi everyone, I noticed someone else posted a simular message with no replies and I have the same thing going on out of nowhere. I have a Sony PCV-RZ36G desktop. There is more to this message but I thought I would start with the main section.
Help! Thanks Dave
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\Defaultusern ame"
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\"
'========================================================================== ==========================================================================