Dear All,
Trying to fix brother's webserver hacked by previous IT staff through VPN and I managed to receover system functionality but im having error on certain link of :-
"Class doesn't support Automation: 'IWFS' "
Below is the error message when trying to click on of the button and the asp code attached as well.
I dont know ASP programing at all. How to fix this error? Does it affected by computer username and password? I reset the password to prevent further intended hacking.
Please advise.
Thank you very much.
Regards,
Error Message :
Active Server Pages error '00000000'
Create object failed
?
An error occurred while creating object 'IWFS'.
Microsoft VBScript runtime error '800a01ae'
Class doesn't support Automation: 'IWFS'
/newsway/versions/250/site/iway/automation/frameset/default.asp, line 40
Error Message from code below:
Full code listed below :
Trying to fix brother's webserver hacked by previous IT staff through VPN and I managed to receover system functionality but im having error on certain link of :-
"Class doesn't support Automation: 'IWFS' "
Below is the error message when trying to click on of the button and the asp code attached as well.
I dont know ASP programing at all. How to fix this error? Does it affected by computer username and password? I reset the password to prevent further intended hacking.
Please advise.
Thank you very much.
Regards,
Error Message :
Active Server Pages error '00000000'
Create object failed
?
An error occurred while creating object 'IWFS'.
Microsoft VBScript runtime error '800a01ae'
Class doesn't support Automation: 'IWFS'
/newsway/versions/250/site/iway/automation/frameset/default.asp, line 40
Error Message from code below:
Code:
if runpage="" OR (not IWFS.fileExists( Application("iwaybase")&"/"&runpage )) then
runpage = "automation/frameset/wrongaccess.asp"
end if
Full code listed below :
Code:
<!--#include VIRTUAL="/NewsWay/Versions/250/Site/IWay/inc/iway.asp" -->
<!--#include VIRTUAL="/NewsWay/Versions/250/Site/IWay/inc/catalog.asp" -->
<!--#include VIRTUAL="/NewsWay/Versions/250/Site/IWay/db/dbFunc.asp" -->
<!--#include VIRTUAL="/NewsWay/Versions/250/Site/IWay/automation/inc/automation.asp" -->
<!--#INCLUDE VIRTUAL="/NewsWay/Versions/250/Site/IWay/Inc/login.asp"-->
<!--#include VIRTUAL="/NewsWay/Versions/250/Site/IWay/App/skinEditor/skinFunctions.asp" -->
<%
iwayCacheControl( "nocache" )
Set NW = Server.CreateObject( "newsway.newsapi.1" )
Set IW = iwayGetComponent("IW")
Set oSkin = iwayGetComponent("Skin")
Set oCustomer = iwayGetComponent("Customer")
Set oPrintProvider = iwayGetComponent("PrintProvider")
Session( "processid" ) = ""
Session( "path" ) = ""
Session( "templatepath" ) = ""
'Session( "updateAddress" ) = ""
Session( "workflow" ) = ""
Session( "archiveindex" ) = ""
Session( "tempjob" ) = ""
Session( "abstempjob" ) = ""
Session( "username" ) = ""
Session( "password" ) = ""
Session( "iwayGuiCSS" ) = ""
iwayRequestParamsToSession()
Set paramDict = iwayRequestParamsToDictionary()
Set Session("paramDict") = paramDict
loginRequired = false
if iwayGetUrlParam("automationfunction") <> "" then
runpage = NW.nwfsReadProfileString( Request("automationfunction"), "processurl", "", Application("iwaybase")&"/automation/_nw_setup.txt" )
loginRequired = (lcase(NW.nwfsReadProfileString(Request("automationfunction"), "loginrequired", "false", Application("iwaybase")&"/automation/_nw_setup.txt")) = "true")
else
runpage = ""
end if
if runpage="" OR (not IWFS.fileExists( Application("iwaybase")&"/"&runpage )) then
runpage = "automation/frameset/wrongaccess.asp"
end if
path=autoGetParameter("path")
Session("templatepath")=path
customerid = ""
processid = autoGetParameter("processid")
autoTemplateLogin()
userid = autoGetTemplateParam("defaultuser","")
if userid = "_iw_clientUser" then
Response.Redirect("../../"&runpage&"?"&Request.QueryString())
end if
if Request("jobid") <> "" then
set oJob = iwayGetComponent("Job")
set jobParams = oJob.getJobParams(Request("jobid"), "jobpath")
call autoSetParameter( "templatepath", IW.removeFirstPathPart(jobParams.getItem("jobpath")) )
call autoSetParameter( "processid", processid )
autoTemplateLogin()
userid = autoGetTemplateParam("userid","")
if userid<>"" then
set oUser = iwayGetComponent("User")
set params = oUser.selectUserByID(userid, "loginName,password")
call autoSetParameter( "username", iwayConvertFromUnicode(params.getItem("loginName", "")) )
call autoSetParameter( "password", iwayConvertFromUnicode(params.getItem("password", "")) )
end if
call autoLogin() ' logs in
end if
if userid="" then
userid = autoGetTemplateParam("userid","")
if userid="" then
userid = autoGetParameter("userid")
end if
end if
customerid = autoGetTemplateParam("customerId","")
if customerid = "" then
customerid = autoGetParameter("customerid")
if customerid = "" and not userID = "" then
set oUser = iwayGetComponent("User")
set dt = oUser.selectUserByID( userId, "customerId")
customerId = dt.getItem("customerId")
end if
end if
if customerID<>"" then
Session("customerID") = customerID
Session("iwayGuiCSS") = oSkin.getCssVPath(customerID)
end if
Set printerData = GetBannerInfo(customerID)
toppanelurl = Application( "IWayBase" ) &"/automation/frameset/toppanel.asp"
automationFrameSrc = Application("IWayBase") & "/" & runpage & "?" & Request.QueryString()
if loginRequired Then
automationFrameSrc = "/Newsway/Interfaces/LoginPage/loginpage.asp?redirectUrl=" & iwayEncodeUrl(automationFrameSrc)
End if
%>
<HTML>
<HEAD>
<title>
<%=iwayConvertFromUnicode(printerData.getItem("name"))%>
</title>
</HEAD>
<frameset rows="100,*" border=0 >
<frame src="<%=toppanelurl%>?customerid=<%=customerid%>" noresize scrolling=no >
<frame src="<%=automationFrameSrc%>" name="automationframe" id="automationframe" >
</frameset>
</HTML>