Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations strongm on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Class doesn't support Automation: 'IWFS'

Status
Not open for further replies.

beautieee

Programmer
Oct 4, 2008
46
MY
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:

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>
 
I guess the problem really affected by password changed. Tried simulate installation of webservices using another machine and found the system needs to be restarted to make everything work like it is if password been changed.

Thank you very much.

Regards,
Beautieee
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top