TimesTen and output binding parameters
Does TimesTen support output binding parameters?
Output binding parameters are normally only used with stored procedures that pass back values via input parameters. Since TimesTen does not currently support stored procedures, we also do not support that kind of parameter binding.
We support regular parameter binding and of course columm binding to receive the results of select statements etc.
Chris
Similar Messages
-
Varying result set and binding parameters in sqlcmd from variable
SSIS - Support of Multiple versions of our product
Our Enterprise Data warehouse consolidates data from multiple data sources. We have a requirement that we should be able to support data collection from different version of these data sources at the same time.
Ex. Customer has three different versions of our product installed 7.3, 7.3.1 and 7.3.2. The data warehouse would in this case would be on version 7.3.2, but should be able to collect data from prior versions of the data sources.
We use stored procedures to collect data from sources into our staging area and then we transform and load it on to the warehouse. The design of SSIS packages are that, there is one main package that executes packages for each table that we collect data
from the source. The main package is invoked per source that we need to collect data from, if there are three sources at run time there will be three instances of the main package running. These packages run on the warehouse machine to pull the data from the
source system.
We would like to maintain one version of these packages on the warehouse and support collecting data from different source versions.
Challenges
The signature of stored procedures on the source system has changed between versions
There are some additional fields returned by these stored procedures in the newer release
Example
7.3 version signature :
[dbo].[PDW_GetMediaAgentSummary](@LastVersionID
AS BIGINT,
@InitializeDays as
INT = 60,
@NextVersionID AS
BIGINT OUTPUT)
7.3 Sp1 version signature: [dbo].[PDW_GetMediaAgentSummary](@LastVersionID
AS BIGINT,
@DataStartDate AS
DateTime2(3),
@NextVersionID AS
BIGINT OUTPUT)
Also, let us say in 7.3 this stored procedure returned 8 fields and 7.3 sp1 it is returning 10 fields.
The way we are trying to accommodate is to use “SQLCmd from variable” option in the OLE DB source to cover the signature difference, but this option does not allow us to bind parameters
to variables to get the output value. The second issue of additional fields (or the lack of additional fields from the 7.3 procedure), we tried to turned off the metadata validation, but we get field not found error at run time when we run the SSIS package
against 7.3 version. Looks like the only way we could solve is to duplicate the data flow tasks, based on the source version. Looking for better way to do this, since this could go out of control as the number of releases increases.
Appreciate help on this.I suggest you branch your package into one route vs another based on some flag that indicates version the package is connected to then it will execute one stored proc or another, this can be done
using the Precedence Constraints, or make a wrapper stored proc that hides the data differences between the versions.
Arthur
MyBlog
Twitter -
Query Bind Parameters and LOV's [JHS 10.1.3.1]
Using the JHeadstart Developer's Guide instructions (starting section 3-69) I have started to learn and then implement Query Bind Parameters in JHeadstart - but I am being met with nothing but troubles.
Is there anything 'special' that I have to do in order to get a query bind parameter to work with a LOV? I have followed the instructions in the Developer's Guide but just replaced the bind parameters that would otherwise be in a Dynamic Domain into a LOV group in the JHeadstart Application Definition file..
To be precise about all of this, I have been trying to get this to work with the HR database schema. So, like in the mini-tutorial I have a query bind parameter on a Employee table View Object set as a LOV to the ManagerId field on the Departments View Object (set in Form View).
What is actually happening when I open up my LOV, is that no rows are ever displayed in the LOV pop-up window.
What am I doing wrong?Michael,
Take a look at this thread:
Re: Group Used as LOV does not return records
You have to use a managed bean to "communicate" the value of the Employees base page to the LOV page definition.
Steven Davelaar,
Jheadstart Team. -
Binding input and Output node elements
Hi all,
Binding Input and Output nodes of a model node.
Most of the time, we create a object of the input model node and then,
bind that object with wdContext.
Do we need to bind output node objects too in RFC Models?
Regards
Neha SinghHi Neha,
There is no need to create/bind the model node. you can execute a bapi using classes.
To execute a bapi, you should do the following things.
1. Import the RFC and create the model.
2. Create an object of the input class of the bapi
e.g. :
Zbapi_Test_Input commision_Input = new Zbapi_Testn_Input();
3. Set the input
commision_Input.setSpart(division);
4. execute the bapi
commision_Input.execute();
5. Disconnect the model
commision_Input.modelInstance().disconnectIfAlive();
6. Get the output. Create an object for output class
Zbapi_Test_Output output = commision_Input.getOutput();
String commission = output.getCommision();
Hope this helps you. -
In trace file and output file showing bind variable instead of value
Hi,
database 9i
optimizer = choose(for cost based)
In my trace file and output file showing bind variable instead of value.
in my trace file 20 queries.
I alse set this parameter in session level.
alter session set events '10046 trace name context forever, level 4';
but still showing traceoutput file bind variable.
Pls help its very urgentCan you post the query for which the bind variable values are not being shown and the trace output for the same?
Probably it is listed down somewhere when you actually executed the query among the others. Try completely analyzing your trace file.. -
Getting "Ordinal binding and Named binding cannot be combined" error
Hello,
I am getting following exception while calling stored produre:
*"Ordinal binding and Named binding cannot be combined"*
I am calling stored procedure with JDBC with 1 input parameter and 1 output parameters as mentioned below:
CallableStatement collableStat = connection.prepareCall("{ call sp_clnt_intermed_validation(?,?) };
// Registering In parameters
collableStat.setString("p_user_name", "SampleUser");
// Registering Out parameters
for(String paramKey : paramKeysSet) {
collableStat.registerOutParameter("p_success_flag", Types.VARCHAR);
// execute stored procedure
collableStat.execute();
Please guide.
Regards,
Akshay.
Edited by: 914678 on Feb 15, 2012 5:48 AMWhy is the registerOutParameter in a loop?
You don't state your DB version but as of 10g there is no support for named parameters for a PL/SQL function because there is no 'name' of the returned parameter. So use ordinal indexes for both parameters.
Instead of
collableStat.setString("p_user_name", "SampleUser");
collableStat.registerOutParameter("p_success_flag", Types.VARCHAR);use
collableStat.setString(1, "SampleUser");
collableStat.registerOutParameter(2, Types.VARCHAR);Next time post this in the JDBC forum.
Edited by: rp0428 on Feb 15, 2012 11:48 AM -
How to get Log and Output File Names for a concurrent request
Hi,
I am submitting a concurrent frm OAF with the following code in AM
try{
OADBTransaction tx = getOADBTransaction();
Connection conn = tx.getJdbcConnection();
ConcurrentRequest cr = new ConcurrentRequest(conn);
Vector parameters = new Vector();
parameters.addElement("10");
nRequestID= cr.submitRequest("CIE","DTFEMP","","",false,parameters);
tx.commit();
}catch(RequestSubmissionException e)
How do i get the handle to log and output files for the abvoe concurrent request ?
One more thing is there a way where we can evaluate the environment variables
like in the above example once i get a the request id
logfile = $APPLCSF/$APPLOUT/"l"+requestID+".log"
and
outputfile=$APPLCSF/$APPLOUT/"o"+requestID+".out"
is there a way i can get the values of $APPLCSF and $APPLOUT from the os ?
Thanks
Tom...
Thanks
Tom ...You can query the Fnd_Concurrent_Requests table using Request_ID, which has the log & out file directory details.
Hth
Srini -
Harvesting asset info and output to CSV
I need a script modified that will run on all servers in a work group in order to gather asset data on the appliances running Windows Server 2000 embedded edition. There are no domain services and these systems and this network technology is not an option
in our environment due to proprietary security, networking and infrastructure restrictions. I have found a script that works but i need it modified to output to a csv as it wont output and .xls .xlsx properly. The script will be run on the only computer on
the network that can access these devices. Any help on this would be awesome.
' Get Windows Server Information
' Written By Kely Mulcahey, E.C.S. LLC.
' Created: March 1, 2006
' Version: 3.0, Revised 5/30/2014
On Error Resume Next
Dim PUBOSVer ' Global OS Version
' Open File For Writing
Set WshNetwork = WScript.CreateObject("WScript.Network")
Const ForReading = 1
' Get Server List
strServerFilename = "servers.txt"
Set objFSO = CreateObject("Scripting.FileSystemObject")
If objFSO.FileExists(strServerFilename) Then
' Open Servers File
Set objServers = objFSO.OpenTextFile(strServerFilename, ForReading)
Else
' Server File is missing: Exit
intMsg = MsgBox("File: " & Chr(34) & UCASE(strServerFilename) & Chr(34) & _
" is either " & _
"Missing or Damaged!" & vbcrlf & _
vbcrlf & _
"This Script will now Exit.", vbCritical, "Server File Error")
WScript.Quit(0)
End If
Do Until objServers.AtEndOfStream
strNewServer = Trim(objServers.ReadLine)
strServerList = strServerList & strNewServer & vbcrlf
intServerCnt = intServerCnt + 1
Loop
' Enumerate Server Array
For a = 0 To intServerCnt - 1
strServer = Split(strServerList, vbcrlf)
Next
' Create Excel Spreadsheet
Set objXLA = CreateObject("Excel.Application")
objXLA.Visible = False
objXLA.DisplayAlerts = False
Set objWorkbook = objXLA.Workbooks.Add()
Set objWorksheet = objWorkbook.Worksheets(1)
'Excel Constants
Const xlEdgeLeft = 7
Const xlContinuous = 1
Const xlNone = -4142
Const xlMedium = -4138
Const xlThin = 2
'Set Headers
' System Information
objXLA.Cells(1,1).Value = "Service ID"
objXLA.Cells(1,2).Value = "Company Name"
objXLA.Cells(1,3).Value = "Manufacturer"
objXLA.Cells(1,4).Value = "Model"
objXLA.Cells(1,5).Value = "Operating System"
' Processors
objXLA.Cells(1,6).Value = "Processor Type"
objXLA.Cells(1,7).Value = "Processors"
' RAM
objXLA.Cells(1,8).Value = "RAM"
objXLA.Cells(1,9).Value = "Slots"
objXLA.Cells(1,10).Value = "Max Capacity"
' Network
objXLA.Cells(1,11).Value = "NIC Port"
objXLA.Cells(1,12).Value = "Speed"
objXLA.Cells(1,13).Value = "Connection Name"
objXLA.Cells(1,14).Value = "Primary IP"
objXLA.Cells(1,15).Value = "Virtual IP"
objXLA.Cells(1,16).Value = "Primary DNS"
objXLA.Cells(1,17).Value = "Secondary DNS"
' Hard Disks
objXLA.Cells(1,18).Value = "Interface"
objXLA.Cells(1,19).Value = "Physical Disks"
objXLA.Cells(1,20).Value = "Disk Size"
objXLA.Cells(1,21).Value = "Fault Tolerant"
objXLA.Cells(1,22).Value = "Hot Spare"
' Set Top Line
objXLA.Cells(1, 1).EntireRow.Font.Bold = True
objXLA.Cells(1, 1).EntireRow.Font.Underline = True
For b = 0 To UBound(strServer) - 1
strServerParts = Split(strServer(b), " ")
strComputer = strServerParts(0)
' Parse Server Information
If UBound(strServerParts) = 2 Then
strUsername = Trim(strServerParts(1))
strPassword = Trim(strServerParts(2))
End If
' Create Connection Object
Set objWMIService = Nothing
Set objSWbemLocator = CreateObject("WbemScripting.SWbemLocator")
Set objWMIService = objSWbemLocator.ConnectServer _
(strComputer, "root\cimv2", strUsername, strPassword)
objWMIServices.Security_.ImpersonationLevel = 3
' Check if Server Exists
For intWMICheck = 0 To 15
If Not objWMIService Is Nothing Then
Exit For
Else
WScript.Sleep(1000)
End If
Next
' Server Exists
If intWMICheck < 15 Then
' Get CPU Information
Set colProcessor = objWMIService.ExecQuery("SELECT * FROM Win32_Processor")
For Each colProc In colProcessor
strManuf = colProc.Manufacturer
strDescription = ProcessorName(colProc.Name)
strClockSpeed = colProc.CurrentClockSpeed
strSocket = strSocket & colProc.SocketDesignation & vbcrlf
strProcID = strProcID & colProc.ProcessorID & vbcrlf
strUniqueID = strUniqueID & colProc.UniqueID & vbcrlf
ProcCount = ProcCount + 1
Next
' Determine if Hyperthreading is Enabled
strHTStatus = GetHTStatus(strSocket, ProcCount, strProcID, strUniqueID)
' DC / HT Results
If strHTStatus = "True" Then
If InStr(strManuf, "Intel") Then
strDescription = strDescription & " (Dual Core or H/T)"
Else
strDescription = strDescription & " (Dual Core)"
End If
ProcCount = ProcCount / 2
End If
' Export Information
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colCS = objWMIService.ExecQuery("Select * from Win32_ComputerSystem",,48)
' Write Basic System Information
For Each objItem in colCS
Set colOS = objWMIService.ExecQuery("Select * from Win32_OperatingSystem",,48)
For Each objItemOS in colOS
' Get SP Version
If objItemOS.CSDVersion <> "" Then
strSPVersion = objItemOS.CSDVersion
Else
strSPVersion = "No Service Packs Installed"
End If
If objItemOS.LastBootUpTime <> "" Then
strLastBoot = DateConvert(objItemOS.LastBootUpTime)
Else
strLastBoot = "N/A"
End If
' Set OS Version Information
PUBOSVer = objItemOS.Caption
objXLA.Cells(b + 2, 1).Value = objItemOS.csname
objXLA.Cells(b + 2, 3).Value = objItem.Manufacturer
objXLA.Cells(b + 2, 4).Value = objItem.Model
objXLA.Cells(b + 2, 5).Value = PUBOSVer & " - " & strSPVersion
objXLA.Cells(b + 2, 6).Value = strDescription
objXLA.Cells(b + 2, 7).Value = ProcCount
objXLA.Cells(b + 2, 8).Value = MemoryConvert(objItem.TotalPhysicalMemory)
Next
Next
' Get Memory Breakdown
Dim strMemBreak
strMemBreak = Split(MemoryBreakdown(), vbcrlf)
n = 0
For n = 0 To UBound(strMemBreak) - 1
strSlots = strSlots & strMemBreak(n) & Chr(10)
Next
strMaxCapacity = strMemBreak(UBound(strMemBreak))
objXLA.Cells(b + 2, 9).Value = Left(strSlots, Len(strSlots) - 1)
objXLA.Cells(b + 2, 10).Value = strMaxCapacity
' Dispose
strMemBreak = ""
strMaxCapacity = ""
strSlots = ""
'--------------Computer Information (End)------------------'
'-------------Partition Information (Start)----------------'
' Get Drive Count
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set DiskItemsParent = objWMIService.ExecQuery("Select * from Win32_DiskDrive")
intCount = DiskItemsParent.Count
' Process Drives
intDriveMark = 0
For i = 0 To intCount - 1
Set DiskItems = objWMIService.ExecQuery("Select * from Win32_DiskDrive WHERE Index = " & i)
For Each diskItem in DiskItems
' Convert Drive Size
If diskItem.Size <> "" Then strSize = strSize & ByteConvert(diskItem.Size) & Chr(10) Else strSize = "N/A" & Chr(10)
If diskItem.StatusInfo <> "" Then strStsInfo = diskItem.StatusInfo Else strStsInfo = "N/A"
If diskItem.SCSIBus <> "" Then strSCSIBus = diskItem.SCSIBus Else strSCSIBus = "N/A"
If diskItem.SCSILogicalUnit <> "" Then strSCSILog = diskItem.SCSILogicalUnit Else strSCSILog = "N/A"
If diskItem.SCSIPort <> "" Then strSCSIPort = diskItem.SCSIPort Else strSCSIPort = "N/A"
If diskItem.SCSITargetId <> "" Then strSCSITarget = diskItem.SCSITargetId Else strSCSITarget = "N/A"
' Get Model
strModel = Split(diskItem.Model, " ")
' Detect HP Array
If (UCase(strModel(0)) = "HP" Or UCase(strModel(0)) = "COMPAQ") And intDriveMark = 0 Then
strGetHPArray = GetHPArray(strComputer, strUsername, strPassword)
If strGetHPArray <> "" Then
strSplitHP = Split(strGetHPArray, Chr(13))
For a = 0 To UBound(strSplitHP)
strSplitResult = Split(strSplitHP(a), ":")
i = i + 1
strDriveCount = strDriveCount & Trim(strSplitResult(0)) & Chr(10)
strDriveSize = strDriveSize & Trim(strSplitResult(1)) & Chr(10)
strDriveFault = strDriveFault & Trim(strSplitResult(2)) & Chr(10)
strDriveSpare = strDriveSpare & Trim(strSplitResult(3)) & Chr(10)
strInterface = strInterface & "HP SCSI" & Chr(10)
Next
' Set Controller Output
objXLA.Cells(b + 2, 19).Value = Trim(Left(strDriveCount, Len(strDriveCount) - 1))
objXLA.Cells(b + 2, 20).Value = Trim(Left(strDriveSize, Len(strDriveSize) - 1))
objXLA.Cells(b + 2, 21).Value = Trim(Left(strDriveFault, Len(strDriveFault) - 1))
objXLA.Cells(b + 2, 22).Value = Trim(Left(strDriveSpare, Len(strDriveSpare) - 1))
intDriveMark = 1 ' Mark That Data was Obtained
Else
strDriveCount = strDriveCount & "1" & Chr(10)
strDriveSize = strDriveSize & strSize & Chr(10)
strDriveFault = strDriveFault & "N/A" & Chr(10)
strDriveSpare = strDriveSpare & "N/A" & Chr(10)
strInterface = strInterface & "HP SCSI " & Chr(10)
' Set Controller Output
intDriveMark = 1 ' Mark That Another Pass is Invalid
' Set Controller Output
objXLA.Cells(b + 2, 19).Value = Trim(Left(strDriveCount, Len(strDriveCount) - 1))
objXLA.Cells(b + 2, 20).Value = Trim(Left(strDriveSize, Len(strDriveSize) - 1))
objXLA.Cells(b + 2, 21).Value = Trim(Left(strDriveFault, Len(strDriveFault) - 1))
objXLA.Cells(b + 2, 22).Value = Trim(Left(strDriveSpare, Len(strDriveSpare) - 1))
End If
Else
strDriveCount = strDriveCount & "1" & Chr(10)
strDriveSize = strDriveSize & strSize & Chr(10)
strDriveFault = strDriveFault & "N/A" & Chr(10)
strDriveSpare = strDriveSpare & "N/A" & Chr(10)
' Set Controller Output
intDriveMark = 1 ' Mark That Another Pass is Invalid
' Set Controller Output
objXLA.Cells(b + 2, 19).Value = Trim(Left(strDriveCount, Len(strDriveCount) - 1))
objXLA.Cells(b + 2, 20).Value = Trim(Left(strDriveSize, Len(strDriveSize) - 1))
objXLA.Cells(b + 2, 21).Value = Trim(Left(strDriveFault, Len(strDriveFault) - 1))
objXLA.Cells(b + 2, 22).Value = Trim(Left(strDriveSpare, Len(strDriveSpare) - 1))
' Set Interface
If diskItem.InterfaceType = "IDE" Then
strInterface = strInterface & "ATA" & Chr(10)
Else
strInterface = strInterface & "SATA/SCSI" & Chr(10)
End If
End If
' Set Cell Value "Interface"
objXLA.Cells(b + 2, 18).Value = Left(strInterface, Len(strInterface) - 1)
Next
' Dispose Drive Sizes
strDriveSize = ""
Next
' Dispose Drive Values
strDriveCount = ""
strDriveFault = ""
strDriveSpare = ""
strInterface = ""
'----Partition Information (End)---------------------------'
'----Network Information (Start)---------------------------'
Set colItems = objWMIService.ExecQuery("Select * from Win32_NetworkAdapter")
i = 1
eth = 0
Dim STOREDIP(0)
intNum = 0
For Each objItem in colItems
If objItem.NetConnectionStatus <> "" Then
' Determine Connection Status
If objItem.NetConnectionStatus = 0 Then
strNetStat = "Disabled"
ElseIf objItem.NetConnectionStatus = 2 Then
strNetStat = "Connected"
ElseIf objItem.NetConnectionStatus = 7 Then
strNetStat = "Disconnected"
Else
strNetStat = "Unknown"
End If
If objItem.NetConnectionStatus <> 0 Then
' Get Network Card Information
Const HKEY_LOCAL_MACHINE = &H80000002
strKeyPath1 = "SYSTEM\CurrentControlSet\Services\Tcpip\Parameters"
strKeyPath2 = "SYSTEM\CurrentControlSet\Services\NetBT\Parameters"
strHostEntry = "Hostname"
strDomainEntry = "Domain"
strNodeEntry = "DhcpNodeType"
strRoutingEntry = "IPEnableRouter"
Set objReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _
strComputer & "\root\default:StdRegProv")
objReg.GetStringValue HKEY_LOCAL_MACHINE,strKeyPath1,strHostEntry,strHostname
objReg.GetStringValue HKEY_LOCAL_MACHINE,strKeyPath1,strDomainEntry,strDomain
objReg.GetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath2,strNodeEntry,dwNodeType
objReg.GetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath1,strRoutingEntry,dwIPRouting
Select Case dwNodeType
Case 4 strNodeType = "Mixed"
Case 8 strNodeType = "Hybrid"
Case Else strNodeType = dwNodeType
End Select
If dwIPRouting = 0 Then
strIPRouting = "No"
ElseIf dwIPRouting = 1 Then
strIPRouting = "Yes"
Else
strIPRouting = "?"
End If
Set colFirstNicConfig = objWMIService.ExecQuery _
("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")
For Each objFirstNicConfig In colFirstNicConfig
strDnsWins = objFirstNicConfig.DNSEnabledForWINSResolution
Next
Set colNicConfigs = objWMIService.ExecQuery _
("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")
' Display per-adapter settings.
For Each objNicConfig In colNicConfigs
intIndex = objNicConfig.Index
Set objNic = objWMIService.Get("Win32_NetworkAdapter.DeviceID=" & intIndex)
' Connection Name
If GetOsVer > 5 Then
' Works only in XP / 2003
strNetConn = objNic.NetConnectionID
ElseIf GetOsVer = 5 Then
strNetConn = ""
' Get Home Drive of Remote Server
Set objShell = CreateObject("WScript.Shell")
Set objEtherName = objShell.Exec("cmd /c ipconfig | find " & Chr(34) & "Ethernet" & Chr(34))
strEtherName = objEtherName.StdOut.ReadAll()
strEtherParse = Split(strEtherName, Chr(13))
strEtherConn = Split(strEtherParse(eth), " ")
For y = 2 To UBound(strEtherConn)
strNetConn = strNetConn & " " & strEtherConn(y)
Next
' Trim Connection Name
strNetConn = Left(Trim(strNetConn), Len(Trim(strNetConn)) - 1)
Else
strNetConn = ""
End If
' IP Addresses
strIPAddresses = ""
If Not IsNull(objNicConfig.IPAddress) Then
For Each strIPAddress In objNicConfig.IPAddress
strIPAddresses = strIPAddresses & strIPAddress & " "
Next
End If
strIPCollection = Split(strIPAddresses, " ")
' Subnets
strIPSubnets = ""
If Not IsNull(objNicConfig.IPSubnet) Then
For Each strIPSubnet In objNicConfig.IPSubnet
strIPSubnets = strIPSubnets & strIPSubnet & " "
Next
End If
strSMCollection = Split(strIPSubnets, " ")
' Virtual IP's
strVirtual = ""
If UBound(strIPCollection) > 1 Then
For IPCount = 1 To UBound(strIPCollection) - 1
strVirtual = strVirtual & (strIPCollection(IPCount) & " / " & strSMCollection(IPCount)) & Chr(10)
Next
strVirtual = Left(strVirtual, Len(strVirtual) - 1)
End If
If Trim(strVirtual) = "" Then strVirtual = "N/A"
' Gateways
strDefaultIPGateways = ""
If Not IsNull(objNicConfig.DefaultIPGateway) Then
For Each strDefaultIPGateway In objNicConfig.DefaultIPGateway
strDefaultIPGateways = strDefaultIPGateways & strDefaultIPGateway & " "
Next
Else
strDefaultIPGateways = "N/A"
End If
' If IP is repeated, and was already reported.
intSkipLoop = 0
If Trim(strNetConn) <> "" Then
For j = 0 To intNum - 1
If STOREDIP(j) = strIPAddresses Then
intSkipLoop = 1
Exit For
End If
Next
If intSkipLoop = 0 Then
ReDim Preserve STOREDIP(intNum)
STOREDIP(intNum) = strIPAddresses
intNum = intNum + 1
End If
Else
intSkipLoop = 1
End If
' DNS
strDNSServerSearchOrder = ""
If Not IsNull(objNicConfig.DNSServerSearchOrder) Then
For Each strDNSServer In objNicConfig.DNSServerSearchOrder
strDNSServerSearchOrder = strDNSServerSearchOrder & strDNSServer & " "
Next
strDNS = Split(strDNSServerSearchOrder, " ")
strDNS1 = strDNS(0)
If Trim(strDNS1) = "" Then strDNS1 = "N/A"
If UBound(strDNS) > 1 Then
strDNS2 = strDNS(1)
Else
strDNS2 = "N/A"
End If
Else
strDNS1 = "N/A"
strDNS2 = "N/A"
End If
' Run Output Process
If intSkipLoop = 0 Then
' Connection Speed
strSpeed = "Unknown"
Set objWMIService2 = objSWbemLocator.ConnectServer _
(strComputer, "root\WMI", strUsername, strPassword)
objWMIServices.Security_.ImpersonationLevel = 3
Set listAdapters = objWMIService2.ExecQuery("SELECT * FROM MSNdis_LinkSpeed")
Set enumAdapters = objWMIService2.ExecQuery("SELECT * FROM MSNdis_EnumerateAdapter")
For Each objAdapter in listAdapters
For Each objEnum in enumAdapters
intEnum = Len(objEnum.DeviceName)
If objNicConfig.SettingID = Right(objEnum.DeviceName, intEnum - 8) Then
If objEnum.InstanceName = objAdapter.InstanceName Then
intLength = Len(objAdapter.NdisLinkSpeed/10000)
If intLength > 3 Then
strSpeed = Left(objAdapter.NdisLinkSpeed/10000, intLength - 3)
strSpeed = strSpeed & ".0 Gbps"
Else
strSpeed = objAdapter.NdisLinkSpeed/10000 & " Mbps"
End If
End If
End If
Next
Next
strTotalDesc = strTotalDesc & objNicConfig.Description & Chr(10)
strTotalSpeed = strTotalSpeed & strSpeed & Chr(10)
strTotalNetConn = strTotalNetConn & strNetConn & Chr(10)
strPrimaryIP = strPrimaryIP & strIPCollection(0) & " / " & strSMCollection(0) & Chr(10)
strDNSTotal1 = strDNSTotal1 & strDNS1 & Chr(10)
strDNSTotal2 = strDNSTotal2 & strDNS2 & Chr(10)
strTotalVirtual = strTotalVirtual & strVirtual & Chr(10)
i = i + 1
eth = eth + 2
' Dispose
strDescription = ""
ProcCount = 0
strClockSpeed = ""
strInterface = ""
intCount = 0
strSize = ""
strSpeed = ""
strIPCollection = ""
strVirtual = ""
strDNS = ""
strDNS1 = ""
strDNS2 = ""
End If
Next
' Output
' Trim Leading Chr(10)
If Left(strPrimaryIP, 1) = Chr(10) Then strPrimaryIP = Right(strPrimaryIP, Len(strPrimaryIP) - 1)
If Left(strTotalVirtual, 1) = Chr(10) Then strTotalVirtual = Right(strTotalVirtual, Len(strTotalVirtual) - 1)
If Left(strDNSTotal1, 1) = Chr(10) Then strDNSTotal1 = Right(strDNSTotal1, Len(strDNSTotal1) - 1)
If Left(strDNSTotal2, 1) = Chr(10) Then strDNSTotal2 = Right(strDNSTotal2, Len(strDNSTotal2) - 1)
objXLA.Cells(b + 2, 11).Value = Trim(Left(strTotalDesc, Len(strTotalDesc) - 1))
objXLA.Cells(b + 2, 12).Value = Trim(Left(strTotalSpeed, Len(strTotalSpeed) - 1))
objXLA.Cells(b + 2, 13).Value = Trim(Left(strTotalNetConn, Len(strTotalNetConn) - 1))
objXLA.Cells(b + 2, 14).Value = Trim(Left(strPrimaryIP, Len(strPrimaryIP) - 1))
objXLA.Cells(b + 2, 15).Value = Trim(Left(strTotalVirtual, Len(strTotalVirtual) - 1))
objXLA.Cells(b + 2, 16).Value = Trim(Left(strDNSTotal1, Len(strDNSTotal1) - 1))
objXLA.Cells(b + 2, 17).Value = Trim(Left(strDNSTotal2, Len(strDNSTotal2) - 1))
End If
End If
' Dispose Per Loop
strTotalDesc = ""
strTotalSpeed = ""
strTotalNetConn = ""
strPrimaryIP = ""
strDNSTotal1 = ""
strDNSTotal2 = ""
strTotalVirtual = ""
Set eth = 0
Set i = 0
Next
'------------Network Information (End)------------------'
Else
'No Data Present
objXLA.Cells(b + 2, 1).Value = strComputer
objXLA.Cells(b + 2, 3).Value = "Information Not Available"
objXLA.Cells(b + 2, 1).EntireRow.Font.Bold = True
objXLA.Cells(b + 2, 1).EntireRow.Interior.ColorIndex = 44
End If
' Dispose Per Server
ProcCount = 0
strSocket = ""
strProcID = ""
strUniqueID = ""
Set objWMIService = Nothing
Next
'-----------------Functions (Start)---------------------'
' System Memory Conversion
Function MemoryConvert(strMem)
Dim intLength
Dim intExp
Dim intSize
Dim strSize
Dim strMeasure
Dim strMemory
intLength = Len(strMem)
If (intLength Mod 4 = 0) Then
intExp = CInt((intLength / 3) - 2)
Else
intExp = CInt((intLength / 3) - 1)
End If
' Convert to Lowest Integer Value
For intCount = 1 To Len(intExp)
chrRead = Mid(intExp, intCount, 1)
If chrRead = "." Then
Exit For
Else
strRead = strRead & chrRead
End If
Next
intExp = Cint(strRead)
intSize = CLng(strMem / (2 ^ (intExp * (10))))
If Len(intSize) = 1 Then
strFormat = FormatNumber(CStr(intSize), 2)
Else
strFormat = intSize + 1
End If
If (intExp = 1) Then
strMeasure = "KB"
ElseIf (intExp = 2) Then
strMeasure = "MB"
ElseIf (intExp = 3) Then
strMeasure = "GB"
ElseIf (intExp = 4) Then
strMeasure = "TB"
ElseIf (intExp = 5) Then
strMeasure = "PB"
ElseIf (intExp = 6) Then
strMeasure = "EB"
End If
MemoryConvert = strFormat & " " & strMeasure
End Function
' System Byte Conversion
Function ByteConvert(strMem)
Dim intLength
Dim intExp
Dim intSize
Dim strSize
Dim strMeasure
Dim strMemory
intLength = Len(strMem)
If (intLength Mod 3 = 0) Then
intExp = (intLength / 3) - 1
Else
intExp = (intLength / 3)
End If
' Convert to Lowest Integer Value
For intCount = 1 To Len(intExp)
chrRead = Mid(intExp, intCount, 1)
If chrRead = "." Then
Exit For
Else
strRead = strRead & chrRead
End If
Next
intExp = Cint(strRead)
intSize = CLng(strMem / (2 ^ (intExp * (10))))
strFormat = FormatNumber(CStr(intSize), 2)
If (intExp = 1) Then
strMeasure = "KB"
ElseIf (intExp = 2) Then
strMeasure = "MB"
ElseIf (intExp = 3) Then
strMeasure = "GB"
ElseIf (intExp = 4) Then
strMeasure = "TB"
ElseIf (intExp = 5) Then
strMeasure = "PB"
ElseIf (intExp = 6) Then
strMeasure = "EB"
End If
ByteConvert = strFormat & " " & strMeasure
End Function
' System RAID Byte Conversion
Function ByteConvertRAID(strMem)
Dim intLength
Dim intExp
Dim intSize
Dim strSize
Dim strMeasure
Dim strMemory
intLength = Len(strMem)
If (intLength Mod 3 = 0) Then
intExp = (intLength / 3) - 1
Else
intExp = (intLength / 3)
End If
' Convert to Lowest Integer Value
For intCount = 1 To Len(intExp)
chrRead = Mid(intExp, intCount, 1)
If chrRead = "." Then
Exit For
Else
strRead = strRead & chrRead
End If
Next
intExp = Cint(strRead)
intSize = (strMem / (2 ^ (intExp * (10))))
strFormat = FormatNumber(CStr(intSize), 2)
If (intExp = 0) Then
strMeasure = "MB"
ElseIf (intExp = 1) Then
strMeasure = "GB"
ElseIf (intExp = 2) Then
strMeasure = "TB"
ElseIf (intExp = 3) Then
strMeasure = "PB"
ElseIf (intExp = 4) Then
strMeasure = "EB"
End If
ByteConvertRAID = strFormat & " " & strMeasure
End Function
' Trim Processor Description
Function ProcessorName(strName)
Dim intCounter
Dim strRead
Dim chrRead, chrReadMore
For intCounter = 1 to Len(strName)
chrRead = Mid(strName, intCounter, 1)
chrReadMore = Mid(strName, intCounter + 1, 1)
If ((chrRead <> " ") Or ((chrRead = " ") And (chrReadMore <> " "))) Then
strRead = strRead & chrRead
End If
Next
ProcessorName = Trim(strRead)
End Function
' Get Hyper-Threading Status
Function GetHTStatus(strName, intProc, strID, strUnique)
strNameArray = Split(strName, vbcrlf)
strIDArray = Split(strID, vbcrlf)
strUniqueList = Split(strUnique, vbcrlf)
intTotal = 0
' Check Socket Designation
For i = 0 To UBound(strNameArray) - 1
intMark = 1
' Check for Redundancies
For j = i + 1 To UBound(strNameArray) - 1
If strNameArray(i) = strNameArray(j) Then
intMark = 0
End If
Next
' If Redundant Unique ID's Exist
For j = i + 1 To UBound(strNameArray) - 1
If strUniqueList(i) <> "" And strUniqueList(j) <> "" And _
(strUniqueList(i) <> strUniqueList(j)) Then
intMark = 1
End If
Next
' Check for NULL ProcessorID
If Trim(strIDArray(i)) = "0000000000000000" Then
intMark = 0
End If
' Calculate Total
If intMark = 1 Then
intTotal = intTotal + intMark
End If
Next
' Compare Results
If intProc = 2 * intTotal Then
GetHTStatus = "True"
Else
GetHTStatus = "False"
End If
End Function
' Get Memory Breakdown
Function MemoryBreakdown
Set colPMAItems = objWMIService.ExecQuery("Select * from Win32_PhysicalMemoryArray",,48)
For Each objPMAItem in colPMAItems
lngMax = CLng(objPMAItem.MaxCapacity)
intCount = CInt(objPMAItem.MemoryDevices)
Next
ReDim Preserve strPMArray(intCount)
Set colPMItems = objWMIService.ExecQuery("Select * from Win32_PhysicalMemory",,48)
For Each objPMItem in colPMItems
strValue = strValue & objPMItem.DeviceLocator & ": "
strValue = strValue & objPMItem.Capacity / 2^20 & "MB, "
strValue = strValue & objPMItem.Speed & "MHz"
strPMArray(TrimTrailingNumber(objPMItem.Tag)) = strValue
strValue = ""
Next
j = 0
strResult = ""
For j = 0 To intCount - 1
If Trim(strPMArray(j)) = "" Then strPMArray(j) = "<Empty>"
strResult = strResult & strPMArray(j) & vbcrlf
Next
strResult = strResult & (lngMax / 2^10) & "MB"
MemoryBreakdown = strResult
End Function
' Get Part Name
Function ExtractPartName(strName)
Dim chrRead
Dim strRead
Dim i
For i = 2 To Len(strName)
chrRead = Mid(strName, Len(strName) - (i - 1), 1)
If chrRead <> Chr(34) Then
strRead = chrRead & strRead
Else
Exit For
End If
Next
ExtractPartName = strRead
End Function
' Get Trailing Number
Function TrimTrailingNumber(strNum)
Dim chrRead
Dim strRead
Dim intLen
strNum = Trim(strNum)
intLen = Len(strNum)
i = 1
For i = 1 To intLen
chrRead = Mid(strNum, intLen - (i - 1), 1)
If IsNumeric(chrRead) = "True" Then
strRead = chrRead & strRead
Else
Exit For
End If
Next
TrimTrailingNumber = strRead
End Function
' Function: WMIDateStringToDate(dtmDate)
Function WMIDateToString(dtmDate)
WMIDateToString = CDate(Mid(dtmDate, 5, 2) & "/" & _
Mid(dtmDate, 7, 2) & "/" & _
Left(dtmDate, 4) & " " & _
Mid(dtmDate, 9, 2) & ":" & _
Mid(dtmDate, 11, 2) & ":" & _
Mid(dtmDate, 13, 2))
End Function
' Function: GetOsVer
Function GetOsVer
Set colOperatingSystems = objWMIService.ExecQuery _
("Select * from Win32_OperatingSystem")
For Each objOperatingSystem In colOperatingSystems
GetOSVer = CSng(Left(objOperatingSystem.Version, 3))
Next
End Function
' Function: GetHPArray
Function GetHPArray(strComputer2, strUsername2, strPassword2)
' Check for 64-bit Windows
If InStr(PUBOSVer, "x64") Then
strCompaq = "Program Files (x86)\Compaq\Cpqacuxe\Bin"
Else
strCompaq = "Program Files\Compaq\Cpqacuxe\Bin"
End If
' Create Connection Object
Set objWMIServiceRem = objWMIService.Get("Win32_Process")
' Confirm Location of Compaq Array Manager
Set objHPShell = CreateObject("WScript.Shell")
Set objHPFSO = CreateObject("Scripting.FileSystemObject")
Set WshNetwork2 = WScript.CreateObject("WScript.Network")
WshNetwork2.MapNetworkDrive "", "\\" & strComputer2 & "\C$" ,,strUsername2, strPassword2
strProgram = "\\" & strComputer2 & "\C$\" & strCompaq & "\cpqacuxe.exe"
' Ensure Access is Possible
If objHPFSO.FileExists(strProgram) Then
' Process Array Config
strProcess = Chr(34) & "C:\" & strCompaq & "\cpqacuxe.exe" & Chr(34) & " -c c:\output.txt"
Process = objWMIServiceRem.Create(strProcess, null, null, intProcessID)
' Check for "output.txt"
For intTimerHP = 0 To 10
If objFSO.FileExists("\\" & strComputer2 & "\C$\output.txt") Then
Exit For
Else
WScript.Sleep(1000)
End If
Next
' Process Output
If intTimerHP < 10 Then
' Check for Locked Output File
Set objHPOutputFile = objHPFSO.GetFile("\\" & strComputer2 & "\C$\output.txt")
If objHPOutputFile.Size <> 0 Then
' Close File
Set objHPOutputFile = Nothing
' Continue Processesing File
Set objHPInputFile = objHPFSO.OpenTextFile("\\" & strComputer2 & "\C$\output.txt", ForReading)
Do Until objHPInputFile.AtEndOfStream
strHPArray = strHPArray & objHPInputFile.ReadLine & vbcrlf
Loop
' Close Input File
objHPInputFile.Close
' Close Link to Server
objHPFSO.DeleteFile("\\" & strComputer2 & "\C$\output.txt")
Set objGetHPArray = objHPShell.Exec("net use \\" & strComputer2 & "\C$ /delete /yes")
Do While (objGetHPArray.Status = 0)
WScript.Sleep(500)
Loop
' Create String Array
strHPParse = Split(strHPArray, vbcrlf)
' Parse For Individual RAID Arrays
Dim strArrayList()
z = 0
For i = 0 To UBound(strHPParse)
j = 0
' Array and Drives
If InStr(strHPParse(i), "Array Specifications") Then
ReDim Preserve strArrayList(z)
strArrayList(z) = strArrayList(z) & strHPParse(i) & vbcrlf
For j = i + 1 To Ubound(strHPParse)
If InStr(strHPParse(j), "Array Specifications") Then
Exit For
Else
strArrayList(z) = strArrayList(z) & strHPParse(j) & vbcrlf
End If
Next
z = z + 1
End If
Next
' Process Each RAID Array
x = 0
For x = 0 To UBound(strArrayList)
strListParse = Split(strArrayList(x), vbcrlf)
For y = 0 To UBound(strListParse)
' Drives
If Left(strListParse(y), 6) = "Drive=" Then
strDrives = ""
strDrives = Split(strListParse(y), ",")
k = 0
For j = 0 To UBound(strDrives)
k = k + 1
Next
strDriveCount = k ' For Output
End If
' Hot Spare
If InStr(strListParse(y), "OnlineSpare=") Then
If InStr(strListParse(y), "OnlineSpare= No") Then
strHotSpare = strHotSpare & "N" ' For Output
Else
strHotSpare = strHotSpare & "Y" ' For Output
End If
End If
' Logical Drives
If InStr(strListParse(y), "Logical Drive Specifications") Then
' Find First Logical Drive
strRAID = Split(strListParse(y + 2), " ")
strRAIDResult = strRAIDResult & "RAID " & strRAID(1) & " / " ' For Output
strGetDrive = Split(strListParse(y + 3), " ")
strRAIDSize = strRAIDSize & ByteConvertRAID(strGetDrive(1)) & " / " ' For Output
End If
Next
' Process Results
strRAIDSize = Left(strRAIDSize, Len(strRAIDSize) - 3)
strRAIDResult = Left(strRAIDResult, Len(strRAIDResult) - 3)
strNewList = strNewList & strDriveCount & _
":" & strRAIDSize & ":" & strRAIDResult & ":" & strHotSpare & Chr(13)
' Dispose Array Variables
strDriveCount = ""
strRAIDSize = ""
strRAIDResult = ""
strHotSpare = ""
Next
' Return Array Output
GetHPArray = Left(strNewList, Len(strNewList) - 1)
Exit Function
Else ' "output.txt" Is Locked
' Close File
Set objHPOutputFile = Nothing
' Kill Remote Connection
Set objGetHPArray = objHPShell.Exec("net use \\" & strComputer2 & "\C$ /delete /yes")
Do While (objGetHPArray.Status = 0)
WScript.Sleep(500)
Loop
GetHPArray = ""
Exit Function
End If
Else ' "output.txt" Does not Exist
' Kill Remote Connection
Set objGetHPArray = objHPShell.Exec("net use \\" & strComputer2 & "\C$ /delete /yes")
Do While (objGetHPArray.Status = 0)
WScript.Sleep(500)
Loop
GetHPArray = ""
Exit Function
End If
Else ' "Array Manager Does not Exist
' Input not Available
Set objGetHPArray = objHPShell.Exec("net use \\" & strComputer2 & "\C$ /delete /yes")
Do While (objGetHPArray.Status = 0)
WScript.Sleep(500)
Loop
GetHPArray = ""
Exit Function
End If
End Function
'--------------------Functions (End)--------------------'
' Set Excel Attributes
Const xlVAlignTop = -4160
Set objRange2 = objWorksheet.UsedRange
objRange2.VerticalAlignment = xlVAlignTop
' Set Font Attributes
objXLA.Cells.Font.Size = 8
objXLA.Cells.Font.Name = "Arial"
objXLA.Cells.Font.ColorIndex = 11
objXLA.Cells.EntireColumn.AutoFit
objXLA.Cells(1, 9).ColumnWidth = 30 ' RAM Slots
objXLA.Cells(1, 11).ColumnWidth = 40 ' NIC Port
objXLA.Cells(1, 13).ColumnWidth = 25 ' Connection Name
objXLA.Cells(1, 14).ColumnWidth = 25 ' Interface IP's
objXLA.Cells(1, 15).ColumnWidth = 25 ' Virtual IP's
objXLA.Cells(1, 16).ColumnWidth = 15 ' DNS1
objXLA.Cells(1, 17).ColumnWidth = 15 ' DNS2
objXLA.Cells(1, 18).ColumnWidth = 15 ' Interface Type
objXLA.Cells.HorizontalAlignment = 2 ' Drive Count
objXLA.Cells(1, 20).ColumnWidth = 20 ' Virtual IP's
objXLA.Cells(1, 21).ColumnWidth = 20 ' Virtual IP's
' Save
set objFSO2 = CreateObject("Scripting.FileSystemObject")
strFileName = objFSO2.getAbsolutePathName("") & "\Scan Results.xls"
objWorkbook.SaveAs(strFileName)
objWorkbook.Close
objXLA.Quit
' Notify User
WScript.Echo "Process Completed (" & Now & ")"
' Close Program
WScript.Quit(0)I Need my script modified to run this script and output to CSV but its so big I am not sure where to start. I don't need it in XLS at all, and I can add my own headers, cell sizes and colors, etc. so It should just output the data to a simple CSV.
On Error Resume Next
Dim PUBOSVer ' Global OS Version
' Open File For Writing
Set WshNetwork = WScript.CreateObject("WScript.Network")
Const ForReading = 1
' Get Server List
strServerFilename = "servers.txt"
Set objFSO = CreateObject("Scripting.FileSystemObject")
If objFSO.FileExists(strServerFilename) Then
' Open Servers File
Set objServers = objFSO.OpenTextFile(strServerFilename, ForReading)
Else
' Server File is missing: Exit
intMsg = MsgBox("File: " & Chr(34) & UCASE(strServerFilename) & Chr(34) & _
" is either " & _
"Missing or Damaged!" & vbcrlf & _
vbcrlf & _
"This Script will now Exit.", vbCritical, "Server File Error")
WScript.Quit(0)
End If
Do Until objServers.AtEndOfStream
strNewServer = Trim(objServers.ReadLine)
strServerList = strServerList & strNewServer & vbcrlf
intServerCnt = intServerCnt + 1
Loop
' Enumerate Server Array
For a = 0 To intServerCnt - 1
strServer = Split(strServerList, vbcrlf)
Next
' Create Excel Spreadsheet
Set objXLA = CreateObject("Excel.Application")
objXLA.Visible = False
objXLA.DisplayAlerts = False
Set objWorkbook = objXLA.Workbooks.Add()
Set objWorksheet = objWorkbook.Worksheets(1)
'Excel Constants
Const xlEdgeLeft = 7
Const xlContinuous = 1
Const xlNone = -4142
Const xlMedium = -4138
Const xlThin = 2
'Set Headers
' System Information
objXLA.Cells(1,1).Value = "Service ID"
objXLA.Cells(1,2).Value = "Company Name"
objXLA.Cells(1,3).Value = "Manufacturer"
objXLA.Cells(1,4).Value = "Model"
objXLA.Cells(1,5).Value = "Operating System"
' Processors
objXLA.Cells(1,6).Value = "Processor Type"
objXLA.Cells(1,7).Value = "Processors"
' RAM
objXLA.Cells(1,8).Value = "RAM"
objXLA.Cells(1,9).Value = "Slots"
objXLA.Cells(1,10).Value = "Max Capacity"
' Network
objXLA.Cells(1,11).Value = "NIC Port"
objXLA.Cells(1,12).Value = "Speed"
objXLA.Cells(1,13).Value = "Connection Name"
objXLA.Cells(1,14).Value = "Primary IP"
objXLA.Cells(1,15).Value = "Virtual IP"
objXLA.Cells(1,16).Value = "Primary DNS"
objXLA.Cells(1,17).Value = "Secondary DNS"
' Hard Disks
objXLA.Cells(1,18).Value = "Interface"
objXLA.Cells(1,19).Value = "Physical Disks"
objXLA.Cells(1,20).Value = "Disk Size"
objXLA.Cells(1,21).Value = "Fault Tolerant"
objXLA.Cells(1,22).Value = "Hot Spare"
' Set Top Line
objXLA.Cells(1, 1).EntireRow.Font.Bold = True
objXLA.Cells(1, 1).EntireRow.Font.Underline = True
For b = 0 To UBound(strServer) - 1
strServerParts = Split(strServer(b), " ")
strComputer = strServerParts(0)
' Parse Server Information
If UBound(strServerParts) = 2 Then
strUsername = Trim(strServerParts(1))
strPassword = Trim(strServerParts(2))
End If
' Create Connection Object
Set objWMIService = Nothing
Set objSWbemLocator = CreateObject("WbemScripting.SWbemLocator")
Set objWMIService = objSWbemLocator.ConnectServer _
(strComputer, "root\cimv2", strUsername, strPassword)
objWMIServices.Security_.ImpersonationLevel = 3
' Check if Server Exists
For intWMICheck = 0 To 15
If Not objWMIService Is Nothing Then
Exit For
Else
WScript.Sleep(1000)
End If
Next
' Server Exists
If intWMICheck < 15 Then
' Get CPU Information
Set colProcessor = objWMIService.ExecQuery("SELECT * FROM Win32_Processor")
For Each colProc In colProcessor
strManuf = colProc.Manufacturer
strDescription = ProcessorName(colProc.Name)
strClockSpeed = colProc.CurrentClockSpeed
strSocket = strSocket & colProc.SocketDesignation & vbcrlf
strProcID = strProcID & colProc.ProcessorID & vbcrlf
strUniqueID = strUniqueID & colProc.UniqueID & vbcrlf
ProcCount = ProcCount + 1
Next
' Determine if Hyperthreading is Enabled
strHTStatus = GetHTStatus(strSocket, ProcCount, strProcID, strUniqueID)
' DC / HT Results
If strHTStatus = "True" Then
If InStr(strManuf, "Intel") Then
strDescription = strDescription & " (Dual Core or H/T)"
Else
strDescription = strDescription & " (Dual Core)"
End If
ProcCount = ProcCount / 2
End If
' Export Information
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colCS = objWMIService.ExecQuery("Select * from Win32_ComputerSystem",,48)
' Write Basic System Information
For Each objItem in colCS
Set colOS = objWMIService.ExecQuery("Select * from Win32_OperatingSystem",,48)
For Each objItemOS in colOS
' Get SP Version
If objItemOS.CSDVersion <> "" Then
strSPVersion = objItemOS.CSDVersion
Else
strSPVersion = "No Service Packs Installed"
End If
If objItemOS.LastBootUpTime <> "" Then
strLastBoot = DateConvert(objItemOS.LastBootUpTime)
Else
strLastBoot = "N/A"
End If
' Set OS Version Information
PUBOSVer = objItemOS.Caption
objXLA.Cells(b + 2, 1).Value = objItemOS.csname
objXLA.Cells(b + 2, 3).Value = objItem.Manufacturer
objXLA.Cells(b + 2, 4).Value = objItem.Model
objXLA.Cells(b + 2, 5).Value = PUBOSVer & " - " & strSPVersion
objXLA.Cells(b + 2, 6).Value = strDescription
objXLA.Cells(b + 2, 7).Value = ProcCount
objXLA.Cells(b + 2, 8).Value = MemoryConvert(objItem.TotalPhysicalMemory)
Next
Next
' Get Memory Breakdown
Dim strMemBreak
strMemBreak = Split(MemoryBreakdown(), vbcrlf)
n = 0
For n = 0 To UBound(strMemBreak) - 1
strSlots = strSlots & strMemBreak(n) & Chr(10)
Next
strMaxCapacity = strMemBreak(UBound(strMemBreak))
objXLA.Cells(b + 2, 9).Value = Left(strSlots, Len(strSlots) - 1)
objXLA.Cells(b + 2, 10).Value = strMaxCapacity
' Dispose
strMemBreak = ""
strMaxCapacity = ""
strSlots = ""
'--------------Computer Information (End)------------------'
'-------------Partition Information (Start)----------------'
' Get Drive Count
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set DiskItemsParent = objWMIService.ExecQuery("Select * from Win32_DiskDrive")
intCount = DiskItemsParent.Count
' Process Drives
intDriveMark = 0
For i = 0 To intCount - 1
Set DiskItems = objWMIService.ExecQuery("Select * from Win32_DiskDrive WHERE Index = " & i)
For Each diskItem in DiskItems
' Convert Drive Size
If diskItem.Size <> "" Then strSize = strSize & ByteConvert(diskItem.Size) & Chr(10) Else strSize = "N/A" & Chr(10)
If diskItem.StatusInfo <> "" Then strStsInfo = diskItem.StatusInfo Else strStsInfo = "N/A"
If diskItem.SCSIBus <> "" Then strSCSIBus = diskItem.SCSIBus Else strSCSIBus = "N/A"
If diskItem.SCSILogicalUnit <> "" Then strSCSILog = diskItem.SCSILogicalUnit Else strSCSILog = "N/A"
If diskItem.SCSIPort <> "" Then strSCSIPort = diskItem.SCSIPort Else strSCSIPort = "N/A"
If diskItem.SCSITargetId <> "" Then strSCSITarget = diskItem.SCSITargetId Else strSCSITarget = "N/A"
' Get Model
strModel = Split(diskItem.Model, " ")
' Detect HP Array
If (UCase(strModel(0)) = "HP" Or UCase(strModel(0)) = "COMPAQ") And intDriveMark = 0 Then
strGetHPArray = GetHPArray(strComputer, strUsername, strPassword)
If strGetHPArray <> "" Then
strSplitHP = Split(strGetHPArray, Chr(13))
For a = 0 To UBound(strSplitHP)
strSplitResult = Split(strSplitHP(a), ":")
i = i + 1
strDriveCount = strDriveCount & Trim(strSplitResult(0)) & Chr(10)
strDriveSize = strDriveSize & Trim(strSplitResult(1)) & Chr(10)
strDriveFault = strDriveFault & Trim(strSplitResult(2)) & Chr(10)
strDriveSpare = strDriveSpare & Trim(strSplitResult(3)) & Chr(10)
strInterface = strInterface & "HP SCSI" & Chr(10)
Next
' Set Controller Output
objXLA.Cells(b + 2, 19).Value = Trim(Left(strDriveCount, Len(strDriveCount) - 1))
objXLA.Cells(b + 2, 20).Value = Trim(Left(strDriveSize, Len(strDriveSize) - 1))
objXLA.Cells(b + 2, 21).Value = Trim(Left(strDriveFault, Len(strDriveFault) - 1))
objXLA.Cells(b + 2, 22).Value = Trim(Left(strDriveSpare, Len(strDriveSpare) - 1))
intDriveMark = 1 ' Mark That Data was Obtained
Else
strDriveCount = strDriveCount & "1" & Chr(10)
strDriveSize = strDriveSize & strSize & Chr(10)
strDriveFault = strDriveFault & "N/A" & Chr(10)
strDriveSpare = strDriveSpare & "N/A" & Chr(10)
strInterface = strInterface & "HP SCSI " & Chr(10)
' Set Controller Output
intDriveMark = 1 ' Mark That Another Pass is Invalid
' Set Controller Output
objXLA.Cells(b + 2, 19).Value = Trim(Left(strDriveCount, Len(strDriveCount) - 1))
objXLA.Cells(b + 2, 20).Value = Trim(Left(strDriveSize, Len(strDriveSize) - 1))
objXLA.Cells(b + 2, 21).Value = Trim(Left(strDriveFault, Len(strDriveFault) - 1))
objXLA.Cells(b + 2, 22).Value = Trim(Left(strDriveSpare, Len(strDriveSpare) - 1))
End If
Else
strDriveCount = strDriveCount & "1" & Chr(10)
strDriveSize = strDriveSize & strSize & Chr(10)
strDriveFault = strDriveFault & "N/A" & Chr(10)
strDriveSpare = strDriveSpare & "N/A" & Chr(10)
' Set Controller Output
intDriveMark = 1 ' Mark That Another Pass is Invalid
' Set Controller Output
objXLA.Cells(b + 2, 19).Value = Trim(Left(strDriveCount, Len(strDriveCount) - 1))
objXLA.Cells(b + 2, 20).Value = Trim(Left(strDriveSize, Len(strDriveSize) - 1))
objXLA.Cells(b + 2, 21).Value = Trim(Left(strDriveFault, Len(strDriveFault) - 1))
objXLA.Cells(b + 2, 22).Value = Trim(Left(strDriveSpare, Len(strDriveSpare) - 1))
' Set Interface
If diskItem.InterfaceType = "IDE" Then
strInterface = strInterface & "ATA" & Chr(10)
Else
strInterface = strInterface & "SATA/SCSI" & Chr(10)
End If
End If
' Set Cell Value "Interface"
objXLA.Cells(b + 2, 18).Value = Left(strInterface, Len(strInterface) - 1)
Next
' Dispose Drive Sizes
strDriveSize = ""
Next
' Dispose Drive Values
strDriveCount = ""
strDriveFault = ""
strDriveSpare = ""
strInterface = ""
'----Partition Information (End)---------------------------'
'----Network Information (Start)---------------------------'
Set colItems = objWMIService.ExecQuery("Select * from Win32_NetworkAdapter")
i = 1
eth = 0
Dim STOREDIP(0)
intNum = 0
For Each objItem in colItems
If objItem.NetConnectionStatus <> "" Then
' Determine Connection Status
If objItem.NetConnectionStatus = 0 Then
strNetStat = "Disabled"
ElseIf objItem.NetConnectionStatus = 2 Then
strNetStat = "Connected"
ElseIf objItem.NetConnectionStatus = 7 Then
strNetStat = "Disconnected"
Else
strNetStat = "Unknown"
End If
If objItem.NetConnectionStatus <> 0 Then
' Get Network Card Information
Const HKEY_LOCAL_MACHINE = &H80000002
strKeyPath1 = "SYSTEM\CurrentControlSet\Services\Tcpip\Parameters"
strKeyPath2 = "SYSTEM\CurrentControlSet\Services\NetBT\Parameters"
strHostEntry = "Hostname"
strDomainEntry = "Domain"
strNodeEntry = "DhcpNodeType"
strRoutingEntry = "IPEnableRouter"
Set objReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _
strComputer & "\root\default:StdRegProv")
objReg.GetStringValue HKEY_LOCAL_MACHINE,strKeyPath1,strHostEntry,strHostname
objReg.GetStringValue HKEY_LOCAL_MACHINE,strKeyPath1,strDomainEntry,strDomain
objReg.GetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath2,strNodeEntry,dwNodeType
objReg.GetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath1,strRoutingEntry,dwIPRouting
Select Case dwNodeType
Case 4 strNodeType = "Mixed"
Case 8 strNodeType = "Hybrid"
Case Else strNodeType = dwNodeType
End Select
If dwIPRouting = 0 Then
strIPRouting = "No"
ElseIf dwIPRouting = 1 Then
strIPRouting = "Yes"
Else
strIPRouting = "?"
End If
Set colFirstNicConfig = objWMIService.ExecQuery _
("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")
For Each objFirstNicConfig In colFirstNicConfig
strDnsWins = objFirstNicConfig.DNSEnabledForWINSResolution
Next
Set colNicConfigs = objWMIService.ExecQuery _
("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")
' Display per-adapter settings.
For Each objNicConfig In colNicConfigs
intIndex = objNicConfig.Index
Set objNic = objWMIService.Get("Win32_NetworkAdapter.DeviceID=" & intIndex)
' Connection Name
If GetOsVer > 5 Then
' Works only in XP / 2003
strNetConn = objNic.NetConnectionID
ElseIf GetOsVer = 5 Then
strNetConn = ""
' Get Home Drive of Remote Server
Set objShell = CreateObject("WScript.Shell")
Set objEtherName = objShell.Exec("cmd /c ipconfig | find " & Chr(34) & "Ethernet" & Chr(34))
strEtherName = objEtherName.StdOut.ReadAll()
strEtherParse = Split(strEtherName, Chr(13))
strEtherConn = Split(strEtherParse(eth), " ")
For y = 2 To UBound(strEtherConn)
strNetConn = strNetConn & " " & strEtherConn(y)
Next
' Trim Connection Name
strNetConn = Left(Trim(strNetConn), Len(Trim(strNetConn)) - 1)
Else
strNetConn = ""
End If
' IP Addresses
strIPAddresses = ""
If Not IsNull(objNicConfig.IPAddress) Then
For Each strIPAddress In objNicConfig.IPAddress
strIPAddresses = strIPAddresses & strIPAddress & " "
Next
End If
strIPCollection = Split(strIPAddresses, " ")
' Subnets
strIPSubnets = ""
If Not IsNull(objNicConfig.IPSubnet) Then
For Each strIPSubnet In objNicConfig.IPSubnet
strIPSubnets = strIPSubnets & strIPSubnet & " "
Next
End If
strSMCollection = Split(strIPSubnets, " ")
' Virtual IP's
strVirtual = ""
If UBound(strIPCollection) > 1 Then
For IPCount = 1 To UBound(strIPCollection) - 1
strVirtual = strVirtual & (strIPCollection(IPCount) & " / " & strSMCollection(IPCount)) & Chr(10)
Next
strVirtual = Left(strVirtual, Len(strVirtual) - 1)
End If
If Trim(strVirtual) = "" Then strVirtual = "N/A"
' Gateways
strDefaultIPGateways = ""
If Not IsNull(objNicConfig.DefaultIPGateway) Then
For Each strDefaultIPGateway In objNicConfig.DefaultIPGateway
strDefaultIPGateways = strDefaultIPGateways & strDefaultIPGateway & " "
Next
Else
strDefaultIPGateways = "N/A"
End If
' If IP is repeated, and was already reported.
intSkipLoop = 0
If Trim(strNetConn) <> "" Then
For j = 0 To intNum - 1
If STOREDIP(j) = strIPAddresses Then
intSkipLoop = 1
Exit For
End If
Next
If intSkipLoop = 0 Then
ReDim Preserve STOREDIP(intNum)
STOREDIP(intNum) = strIPAddresses
intNum = intNum + 1
End If
Else
intSkipLoop = 1
End If
' DNS
strDNSServerSearchOrder = ""
If Not IsNull(objNicConfig.DNSServerSearchOrder) Then
For Each strDNSServer In objNicConfig.DNSServerSearchOrder
strDNSServerSearchOrder = strDNSServerSearchOrder & strDNSServer & " "
Next
strDNS = Split(strDNSServerSearchOrder, " ")
strDNS1 = strDNS(0)
If Trim(strDNS1) = "" Then strDNS1 = "N/A"
If UBound(strDNS) > 1 Then
strDNS2 = strDNS(1)
Else
strDNS2 = "N/A"
End If
Else
strDNS1 = "N/A"
strDNS2 = "N/A"
End If
' Run Output Process
If intSkipLoop = 0 Then
' Connection Speed
strSpeed = "Unknown"
Set objWMIService2 = objSWbemLocator.ConnectServer _
(strComputer, "root\WMI", strUsername, strPassword)
objWMIServices.Security_.ImpersonationLevel = 3
Set listAdapters = objWMIService2.ExecQuery("SELECT * FROM MSNdis_LinkSpeed")
Set enumAdapters = objWMIService2.ExecQuery("SELECT * FROM MSNdis_EnumerateAdapter")
For Each objAdapter in listAdapters
For Each objEnum in enumAdapters
intEnum = Len(objEnum.DeviceName)
If objNicConfig.SettingID = Right(objEnum.DeviceName, intEnum - 8) Then
If objEnum.InstanceName = objAdapter.InstanceName Then
intLength = Len(objAdapter.NdisLinkSpeed/10000)
If intLength > 3 Then
strSpeed = Left(objAdapter.NdisLinkSpeed/10000, intLength - 3)
strSpeed = strSpeed & ".0 Gbps"
Else
strSpeed = objAdapter.NdisLinkSpeed/10000 & " Mbps"
End If
End If
End If
Next
Next
strTotalDesc = strTotalDesc & objNicConfig.Description & Chr(10)
strTotalSpeed = strTotalSpeed & strSpeed & Chr(10)
strTotalNetConn = strTotalNetConn & strNetConn & Chr(10)
strPrimaryIP = strPrimaryIP & strIPCollection(0) & " / " & strSMCollection(0) & Chr(10)
strDNSTotal1 = strDNSTotal1 & strDNS1 & Chr(10)
strDNSTotal2 = strDNSTotal2 & strDNS2 & Chr(10)
strTotalVirtual = strTotalVirtual & strVirtual & Chr(10)
i = i + 1
eth = eth + 2
' Dispose
strDescription = ""
ProcCount = 0
strClockSpeed = ""
strInterface = ""
intCount = 0
strSize = ""
strSpeed = ""
strIPCollection = ""
strVirtual = ""
strDNS = ""
strDNS1 = ""
strDNS2 = ""
End If
Next
' Output
' Trim Leading Chr(10)
If Left(strPrimaryIP, 1) = Chr(10) Then strPrimaryIP = Right(strPrimaryIP, Len(strPrimaryIP) - 1)
If Left(strTotalVirtual, 1) = Chr(10) Then strTotalVirtual = Right(strTotalVirtual, Len(strTotalVirtual) - 1)
If Left(strDNSTotal1, 1) = Chr(10) Then strDNSTotal1 = Right(strDNSTotal1, Len(strDNSTotal1) - 1)
If Left(strDNSTotal2, 1) = Chr(10) Then strDNSTotal2 = Right(strDNSTotal2, Len(strDNSTotal2) - 1)
objXLA.Cells(b + 2, 11).Value = Trim(Left(strTotalDesc, Len(strTotalDesc) - 1))
objXLA.Cells(b + 2, 12).Value = Trim(Left(strTotalSpeed, Len(strTotalSpeed) - 1))
objXLA.Cells(b + 2, 13).Value = Trim(Left(strTotalNetConn, Len(strTotalNetConn) - 1))
objXLA.Cells(b + 2, 14).Value = Trim(Left(strPrimaryIP, Len(strPrimaryIP) - 1))
objXLA.Cells(b + 2, 15).Value = Trim(Left(strTotalVirtual, Len(strTotalVirtual) - 1))
objXLA.Cells(b + 2, 16).Value = Trim(Left(strDNSTotal1, Len(strDNSTotal1) - 1))
objXLA.Cells(b + 2, 17).Value = Trim(Left(strDNSTotal2, Len(strDNSTotal2) - 1))
End If
End If
' Dispose Per Loop
strTotalDesc = ""
strTotalSpeed = ""
strTotalNetConn = ""
strPrimaryIP = ""
strDNSTotal1 = ""
strDNSTotal2 = ""
strTotalVirtual = ""
Set eth = 0
Set i = 0
Next
'------------Network Information (End)------------------'
Else
'No Data Present
objXLA.Cells(b + 2, 1).Value = strComputer
objXLA.Cells(b + 2, 3).Value = "Information Not Available"
objXLA.Cells(b + 2, 1).EntireRow.Font.Bold = True
objXLA.Cells(b + 2, 1).EntireRow.Interior.ColorIndex = 44
End If
' Dispose Per Server
ProcCount = 0
strSocket = ""
strProcID = ""
strUniqueID = ""
Set objWMIService = Nothing
Next
'-----------------Functions (Start)---------------------'
' System Memory Conversion
Function MemoryConvert(strMem)
Dim intLength
Dim intExp
Dim intSize
Dim strSize
Dim strMeasure
Dim strMemory
intLength = Len(strMem)
If (intLength Mod 4 = 0) Then
intExp = CInt((intLength / 3) - 2)
Else
intExp = CInt((intLength / 3) - 1)
End If
' Convert to Lowest Integer Value
For intCount = 1 To Len(intExp)
chrRead = Mid(intExp, intCount, 1)
If chrRead = "." Then
Exit For
Else
strRead = strRead & chrRead
End If
Next
intExp = Cint(strRead)
intSize = CLng(strMem / (2 ^ (intExp * (10))))
If Len(intSize) = 1 Then
strFormat = FormatNumber(CStr(intSize), 2)
Else
strFormat = intSize + 1
End If
If (intExp = 1) Then
strMeasure = "KB"
ElseIf (intExp = 2) Then
strMeasure = "MB"
ElseIf (intExp = 3) Then
strMeasure = "GB"
ElseIf (intExp = 4) Then
strMeasure = "TB"
ElseIf (intExp = 5) Then
strMeasure = "PB"
ElseIf (intExp = 6) Then
strMeasure = "EB"
End If
MemoryConvert = strFormat & " " & strMeasure
End Function
' System Byte Conversion
Function ByteConvert(strMem)
Dim intLength
Dim intExp
Dim intSize
Dim strSize
Dim strMeasure
Dim strMemory
intLength = Len(strMem)
If (intLength Mod 3 = 0) Then
intExp = (intLength / 3) - 1
Else
intExp = (intLength / 3)
End If
' Convert to Lowest Integer Value
For intCount = 1 To Len(intExp)
chrRead = Mid(intExp, intCount, 1)
If chrRead = "." Then
Exit For
Else
strRead = strRead & chrRead
End If
Next
intExp = Cint(strRead)
intSize = CLng(strMem / (2 ^ (intExp * (10))))
strFormat = FormatNumber(CStr(intSize), 2)
If (intExp = 1) Then
strMeasure = "KB"
ElseIf (intExp = 2) Then
strMeasure = "MB"
ElseIf (intExp = 3) Then
strMeasure = "GB"
ElseIf (intExp = 4) Then
strMeasure = "TB"
ElseIf (intExp = 5) Then
strMeasure = "PB"
ElseIf (intExp = 6) Then
strMeasure = "EB"
End If
ByteConvert = strFormat & " " & strMeasure
End Function
' System RAID Byte Conversion
Function ByteConvertRAID(strMem)
Dim intLength
Dim intExp
Dim intSize
Dim strSize
Dim strMeasure
Dim strMemory
intLength = Len(strMem)
If (intLength Mod 3 = 0) Then
intExp = (intLength / 3) - 1
Else
intExp = (intLength / 3)
End If
' Convert to Lowest Integer Value
For intCount = 1 To Len(intExp)
chrRead = Mid(intExp, intCount, 1)
If chrRead = "." Then
Exit For
Else
strRead = strRead & chrRead
End If
Next
intExp = Cint(strRead)
intSize = (strMem / (2 ^ (intExp * (10))))
strFormat = FormatNumber(CStr(intSize), 2)
If (intExp = 0) Then
strMeasure = "MB"
ElseIf (intExp = 1) Then
strMeasure = "GB"
ElseIf (intExp = 2) Then
strMeasure = "TB"
ElseIf (intExp = 3) Then
strMeasure = "PB"
ElseIf (intExp = 4) Then
strMeasure = "EB"
End If
ByteConvertRAID = strFormat & " " & strMeasure
End Function
' Trim Processor Description
Function ProcessorName(strName)
Dim intCounter
Dim strRead
Dim chrRead, chrReadMore
For intCounter = 1 to Len(strName)
chrRead = Mid(strName, intCounter, 1)
chrReadMore = Mid(strName, intCounter + 1, 1)
If ((chrRead <> " ") Or ((chrRead = " ") And (chrReadMore <> " "))) Then
strRead = strRead & chrRead
End If
Next
ProcessorName = Trim(strRead)
End Function
' Get Hyper-Threading Status
Function GetHTStatus(strName, intProc, strID, strUnique)
strNameArray = Split(strName, vbcrlf)
strIDArray = Split(strID, vbcrlf)
strUniqueList = Split(strUnique, vbcrlf)
intTotal = 0
' Check Socket Designation
For i = 0 To UBound(strNameArray) - 1
intMark = 1
' Check for Redundancies
For j = i + 1 To UBound(strNameArray) - 1
If strNameArray(i) = strNameArray(j) Then
intMark = 0
End If
Next
' If Redundant Unique ID's Exist
For j = i + 1 To UBound(strNameArray) - 1
If strUniqueList(i) <> "" And strUniqueList(j) <> "" And _
(strUniqueList(i) <> strUniqueList(j)) Then
intMark = 1
End If
Next
' Check for NULL ProcessorID
If Trim(strIDArray(i)) = "0000000000000000" Then
intMark = 0
End If
' Calculate Total
If intMark = 1 Then
intTotal = intTotal + intMark
End If
Next
' Compare Results
If intProc = 2 * intTotal Then
GetHTStatus = "True"
Else
GetHTStatus = "False"
End If
End Function
' Get Memory Breakdown
Function MemoryBreakdown
Set colPMAItems = objWMIService.ExecQuery("Select * from Win32_PhysicalMemoryArray",,48)
For Each objPMAItem in colPMAItems
lngMax = CLng(objPMAItem.MaxCapacity)
intCount = CInt(objPMAItem.MemoryDevices)
Next
ReDim Preserve strPMArray(intCount)
Set colPMItems = objWMIService.ExecQuery("Select * from Win32_PhysicalMemory",,48)
For Each objPMItem in colPMItems
strValue = strValue & objPMItem.DeviceLocator & ": "
strValue = strValue & objPMItem.Capacity / 2^20 & "MB, "
strValue = strValue & objPMItem.Speed & "MHz"
strPMArray(TrimTrailingNumber(objPMItem.Tag)) = strValue
strValue = ""
Next
j = 0
strResult = ""
For j = 0 To intCount - 1
If Trim(strPMArray(j)) = "" Then strPMArray(j) = "<Empty>"
strResult = strResult & strPMArray(j) & vbcrlf
Next
strResult = strResult & (lngMax / 2^10) & "MB"
MemoryBreakdown = strResult
End Function
' Get Part Name
Function ExtractPartName(strName)
Dim chrRead
Dim strRead
Dim i
For i = 2 To Len(strName)
chrRead = Mid(strName, Len(strName) - (i - 1), 1)
If chrRead <> Chr(34) Then
strRead = chrRead & strRead
Else
Exit For
End If
Next
ExtractPartName = strRead
End Function
' Get Trailing Number
Function TrimTrailingNumber(strNum)
Dim chrRead
Dim strRead
Dim intLen
strNum = Trim(strNum)
intLen = Len(strNum)
i = 1
For i = 1 To intLen
chrRead = Mid(strNum, intLen - (i - 1), 1)
If IsNumeric(chrRead) = "True" Then
strRead = chrRead & strRead
Else
Exit For
End If
Next
TrimTrailingNumber = strRead
End Function
' Function: WMIDateStringToDate(dtmDate)
Function WMIDateToString(dtmDate)
WMIDateToString = CDate(Mid(dtmDate, 5, 2) & "/" & _
Mid(dtmDate, 7, 2) & "/" & _
Left(dtmDate, 4) & " " & _
Mid(dtmDate, 9, 2) & ":" & _
Mid(dtmDate, 11, 2) & ":" & _
Mid(dtmDate, 13, 2))
End Function
' Function: GetOsVer
Function GetOsVer
Set colOperatingSystems = objWMIService.ExecQuery _
("Select * from Win32_OperatingSystem")
For Each objOperatingSystem In colOperatingSystems
GetOSVer = CSng(Left(objOperatingSystem.Version, 3))
Next
End Function
' Function: GetHPArray
Function GetHPArray(strComputer2, strUsername2, strPassword2)
' Check for 64-bit Windows
If InStr(PUBOSVer, "x64") Then
strCompaq = "Program Files (x86)\Compaq\Cpqacuxe\Bin"
Else
strCompaq = "Program Files\Compaq\Cpqacuxe\Bin"
End If
' Create Connection Object
Set objWMIServiceRem = objWMIService.Get("Win32_Process")
' Confirm Location of Compaq Array Manager
Set objHPShell = CreateObject("WScript.Shell")
Set objHPFSO = CreateObject("Scripting.FileSystemObject")
Set WshNetwork2 = WScript.CreateObject("WScript.Network")
WshNetwork2.MapNetworkDrive "", "\\" & strComputer2 & "\C$" ,,strUsername2, strPassword2
strProgram = "\\" & strComputer2 & "\C$\" & strCompaq & "\cpqacuxe.exe"
' Ensure Access is Possible
If objHPFSO.FileExists(strProgram) Then
' Process Array Config
strProcess = Chr(34) & "C:\" & strCompaq & "\cpqacuxe.exe" & Chr(34) & " -c c:\output.txt"
Process = objWMIServiceRem.Create(strProcess, null, null, intProcessID)
' Check for "output.txt"
For intTimerHP = 0 To 10
If objFSO.FileExists("\\" & strComputer2 & "\C$\output.txt") Then
Exit For
Else
WScript.Sleep(1000)
End If
Next
' Process Output
If intTimerHP < 10 Then
' Check for Locked Output File
Set objHPOutputFile = objHPFSO.GetFile("\\" & strComputer2 & "\C$\output.txt")
If objHPOutputFile.Size <> 0 Then
' Close File
Set objHPOutputFile = Nothing
' Continue Processesing File
Set objHPInputFile = objHPFSO.OpenTextFile("\\" & strComputer2 & "\C$\output.txt", ForReading)
Do Until objHPInputFile.AtEndOfStream
strHPArray = strHPArray & objHPInputFile.ReadLine & vbcrlf
Loop
' Close Input File
objHPInputFile.Close
' Close Link to Server
objHPFSO.DeleteFile("\\" & strComputer2 & "\C$\output.txt")
Set objGetHPArray = objHPShell.Exec("net use \\" & strComputer2 & "\C$ /delete /yes")
Do While (objGetHPArray.Status = 0)
WScript.Sleep(500)
Loop
' Create String Array
strHPParse = Split(strHPArray, vbcrlf)
' Parse For Individual RAID Arrays
Dim strArrayList()
z = 0
For i = 0 To UBound(strHPParse)
j = 0
' Array and Drives
If InStr(strHPParse(i), "Array Specifications") Then
ReDim Preserve strArrayList(z)
strArrayList(z) = strArrayList(z) & strHPParse(i) & vbcrlf
For j = i + 1 To Ubound(strHPParse)
If InStr(strHPParse(j), "Array Specifications") Then
Exit For
Else
strArrayList(z) = strArrayList(z) & strHPParse(j) & vbcrlf
End If
Next
z = z + 1
End If
Next
' Process Each RAID Array
x = 0
For x = 0 To UBound(strArrayList)
strListParse = Split(strArrayList(x), vbcrlf)
For y = 0 To UBound(strListParse)
' Drives
If Left(strListParse(y), 6) = "Drive=" Then
strDrives = ""
strDrives = Split(strListParse(y), ",")
k = 0
For j = 0 To UBound(strDrives)
k = k + 1
Next
strDriveCount = k ' For Output
End If
' Hot Spare
If InStr(strListParse(y), "OnlineSpare=") Then
If InStr(strListParse(y), "OnlineSpare= No") Then
strHotSpare = strHotSpare & "N" ' For Output
Else
strHotSpare = strHotSpare & "Y" ' For Output
End If
End If
' Logical Drives
If InStr(strListParse(y), "Logical Drive Specifications") Then
' Find First Logical Drive
strRAID = Split(strListParse(y + 2), " ")
strRAIDResult = strRAIDResult & "RAID " & strRAID(1) & " / " ' For Output
strGetDrive = Split(strListParse(y + 3), " ")
strRAIDSize = strRAIDSize & ByteConvertRAID(strGetDrive(1)) & " / " ' For Output
End If
Next
' Process Results
strRAIDSize = Left(strRAIDSize, Len(strRAIDSize) - 3)
strRAIDResult = Left(strRAIDResult, Len(strRAIDResult) - 3)
strNewList = strNewList & strDriveCount & _
":" & strRAIDSize & ":" & strRAIDResult & ":" & strHotSpare & Chr(13)
' Dispose Array Variables
strDriveCount = ""
strRAIDSize = ""
strRAIDResult = ""
strHotSpare = ""
Next
' Return Array Output
GetHPArray = Left(strNewList, Len(strNewList) - 1)
Exit Function
Else ' "output.txt" Is Locked
' Close File
Set objHPOutputFile = Nothing
' Kill Remote Connection
Set objGetHPArray = objHPShell.Exec("net use \\" & strComputer2 & "\C$ /delete /yes")
Do While (objGetHPArray.Status = 0)
WScript.Sleep(500)
Loop
GetHPArray = ""
Exit Function
End If
Else ' "output.txt" Does not Exist
' Kill Remote Connection
Set objGetHPArray = objHPShell.Exec("net use \\" & strComputer2 & "\C$ /delete /yes")
Do While (objGetHPArray.Status = 0)
WScript.Sleep(500)
Loop
GetHPArray = ""
Exit Function
End If
Else ' "Array Manager Does not Exist
' Input not Available
Set objGetHPArray = objHPShell.Exec("net use \\" & strComputer2 & "\C$ /delete /yes")
Do While (objGetHPArray.Status = 0)
WScript.Sleep(500)
Loop
GetHPArray = ""
Exit Function
End If
End Function
'--------------------Functions (End)--------------------'
' Set Excel Attributes
Const xlVAlignTop = -4160
Set objRange2 = objWorksheet.UsedRange
objRange2.VerticalAlignment = xlVAlignTop
' Set Font Attributes
objXLA.Cells.Font.Size = 8
objXLA.Cells.Font.Name = "Arial"
objXLA.Cells.Font.ColorIndex = 11
objXLA.Cells.EntireColumn.AutoFit
objXLA.Cells(1, 9).ColumnWidth = 30 ' RAM Slots
objXLA.Cells(1, 11).ColumnWidth = 40 ' NIC Port
objXLA.Cells(1, 13).ColumnWidth = 25 ' Connection Name
objXLA.Cells(1, 14).ColumnWidth = 25 ' Interface IP's
objXLA.Cells(1, 15).ColumnWidth = 25 ' Virtual IP's
objXLA.Cells(1, 16).ColumnWidth = 15 ' DNS1
objXLA.Cells(1, 17).ColumnWidth = 15 ' DNS2
objXLA.Cells(1, 18).ColumnWidth = 15 ' Interface Type
objXLA.Cells.HorizontalAlignment = 2 ' Drive Count
objXLA.Cells(1, 20).ColumnWidth = 20 ' Virtual IP's
objXLA.Cells(1, 21).ColumnWidth = 20 ' Virtual IP's
' Save
set objFSO2 = CreateObject("Scripting.FileSystemObject")
strFileName = objFSO2.getAbsolutePathName("") & "\Scan Results.xls"
objWorkbook.SaveAs(strFileName)
objWorkbook.Close
objXLA.Quit
' Notify User
WScript.Echo "Process Completed (" & Now & ")"
' Close Program
WScript.Quit(0) -
How can I input read a line from a file and output it into the screen?
How can I input read a line from a file and output it into the screen?
If I have a file contains html code and I only want the URL, for example, www24.brinkster.com how can I read that into the buffer and write the output into the screen that using Java?
Any help will be appreciate!
======START FILE default.html ========
<html>
<body>
<br><br>
<center>
<font size=4 face=arial color=#336699>
<b>Welcome to a DerekTran's Website!</b><br>
Underconstructions.... <br>
</font> </center>
<font size=3 face=arial color=black> <br>
Hello,<br>
<br>
I've been using the PWS to run the website on NT workstation 4.0. It was working
fine. <br>
The URL should be as below: <br>
http://127.0.0.1/index.htm or http://localhost/index.htm
<p>And suddently, it stops working, it can't find the connection. I tried to figure
out what's going on, but still <font color="#FF0000">NO CLUES</font>. Does anyone
know what's going on? Please see the link for more.... I believe that I setup
everything correctly and the bugs still flying in the server.... <br>
Thank you for your help.</P>
</font>
<p><font size=3 face=arial color=black>PeerWebServer.doc
<br>
<p><font size=3 face=arial color=black>CannotFindServer.doc
<br>
<p><font size=3 face=arial color=black>HOSTS file is not found
<br>
<p><font size=3 face=arial color=black>LMHOSTS file
<br>
<p><font size=3 face=arial color=black>How to Setup PWS on NT
<BR>
<p><font size=3 face=arial color=black>Issdmin doc</BR>
Please be patient while the document is download....</font>
<font size=3 face=arial color=black><br>If you have any ideas please drop me a
few words at [email protected] </font><br>
<br>
<br>
</p>
<p><!--#include file="Hits.asp"--> </p>
</body>
</html>
========= END OF FILE ===============Hi!
This is a possible solution to your problem.
import java.io.*;
class AddressExtractor {
public static void main(String args[]) throws IOException{
//retrieve the commandline parameters
String fileName = "default.html";
if (args.length != 0) fileName =args[0];
else {
System.out.println("Usage : java AddressExtractor <htmlfile>");
System.exit(0);
BufferedReader in = new BufferedReader(new FileReader(new File(fileName)));
StreamTokenizer st = new StreamTokenizer(in);
st.lowerCaseMode(true);
st.wordChars('/','/'); //include '/' chars as part of token
st.wordChars(':',':'); //include ':' chars as part of token
st.quoteChar('\"'); //set the " quote char
int i;
while (st.ttype != StreamTokenizer.TT_EOF) {
i = st.nextToken();
if (st.ttype == StreamTokenizer.TT_WORD) {
if (st.sval.equals("href")) {
i = st.nextToken(); //the next token (assumed) is the '=' sign
i = st.nextToken(); //then after it is the href value.
getURL(st.sval); //retrieve address
in.close();
static void getURL(String s) {
//Check string if it has http:// and truncate if it does
if (s.indexOf("http://") > -1) {
s = s.substring(s.indexOf("http://") + 7, s.length());
//check if not mailto: do not print otherwise
if (s.indexOf("mailto:") != -1) return;
//printout anything after http:// and the next '/'
//if no '/' then print all
if (s.indexOf('/') > -1) {
System.out.println(s.substring(0, s.indexOf('/')));
} else System.out.println(s);
}Hope this helps. I used static methods instead of encapsulating everyting into a class. -
FINALLY INPUTTING and OUTPUTTING Annotations!
Ok, before everyone thinks that this is a very bad solution, I have to tell that I`m no programmer and my knowledge of PostgreSQL, Ruby or any other language is very poor.
With useful help from Jamie Hodge, fbm and Nicholas Stokes (mainly)
I could manage to write a command for inputting and outputting from Final Cut Server Annotations.
So lets go to the fun part:
INPUTTING:
1- Create a Response called "Annotations IN" (or whatever you want):
a - Reponse Action: "Run an external script or command"
b - Run Script > *Commnad Path: /Library/Application Support/Final Cut Server/Final Cut Server.bundle/Contents/Resources/sbin/fcsvr_run
Command Parameters: psql px pxdb -c "COPY pxtcmdvalue FROM '/FCSRV/annotation-in.txt' USING DELIMITERS '|';"
2 - Create a poll Watcher with name: "Watch for Annotations IN"
a - Enable: true
b - Monitor Address: Chooses a Device (create a new one or use a tmp one) and path to where you`ll going to put a txt file with the annotations.
c - Response List: Choose the Response you created "Annotations IN" in my case.
d - Event Type Filter: Created, Modified
e - Poll Watcher > Listing Frequency: 2 (or any number of seconds you feel like it).
Listing multiple: 2
Wildcard include Filter: *.txt (or any custom extensions you want)
3 - Create a txt file and use this as a template:
{ASSET_ENTITYID}|1527|{TCIN}/(30000,1001)|{TCOUT}/(30000,1001)|{Annotation}|{USE RID}|{DATE}
Where:
{ASSET_ENTITYID} = Is the entityid of your asset. You can find what number it is by issuing:
/Library/Application\ Support/Final\ Cut\ Server/Final\ Cut\ Server.bundle/Contents/Resources/sbin/fcsvr_run psql px pxdb -c "SELECT pxmdvalue.entityid, pxmdvalue.value AS asset_name FROM pxmdvalue INNER JOIN pxentity ON pxentity.entityid = pxmdvalue.entityid WHERE pxmdvalue.fieldid='1543' AND pxentity.address LIKE '/asset/%';"
This will output ALL your assets, so if you know the name or want to parse the name you can use:
/Library/Application\ Support/Final\ Cut\ Server/Final\ Cut\ Server.bundle/Contents/Resources/sbin/fcsvr_run psql px pxdb -c "SELECT pxmdvalue.entityid, pxmdvalue.value AS asset_name FROM pxmdvalue INNER JOIN pxentity ON pxentity.entityid = pxmdvalue.entityid WHERE pxmdvalue.fieldid='1543' AND pxmdvalue.value='ASSETNAME' AND pxentity.address LIKE '/asset/%';"
Where in ASSETNAME you`ll have to put your Asset Name without extension.
{TCIN} and {TCOUT} is, of course, the TC`s points. In the form of: HH:MM:SS;FF
{Annotation} is the commentary.
{USERID} (in my case was 1)
{DATE}: This one is tricky. My example is 2009-03-15 19:31:15.839795-03
So is in the form YYYY-MM-DD HH:MM:SS.????? I really don`t know the rest. Could be milliseconds?
Of course one can write a script to translate everything from a txt file like:
ASSETNAME | TCIN | TCOUT | ANNOTATIONS | USER
But as I`ve said I`m no programmer
Ok.. now the time for the OUTPUT:
The command-line is:
/Library/Application\ Support/Final\ Cut\ Server/Final\ Cut\ Server.bundle/Contents/Resources/sbin/fcsvr_run psql px pxdb -c "SELECT pxmdvalue.value AS Asset_NAME, pxtcmdvalue.value, pxtcmdvalue.begintc, pxtcmdvalue.endtc FROM pxmdvalue INNER JOIN pxtcmdvalue ON pxmdvalue.entityid = pxtcmdvalue.entityid WHERE pxmdvalue.value='ASSETNAME';"
Where ASSETNAME is the Asset name without the extension.
Or issuing the following to OUTPUT ANNOTATIONS from ALL assets:
/Library/Application\ Support/Final\ Cut\ Server/Final\ Cut\ Server.bundle/Contents/Resources/sbin/fcsvr_run psql px pxdb -c "select * from pxtcmdvalue;"
Adding "> /PATHTO_WHERE_IN_WANT/ANNOTATIONSOUTPUT.TXT" at the end will put all output into a txt file.
It`s possible (in theory) to:
1- Create a boolean md field in FCSRV called "EXPORT Annotations" (don`t choose lookup)
2- add or create a md group called "Export Annotations" and add the above md field to it (don`t choose lookup)
3- Add "Export Annotations" md field to Asset Filter md group
4- Make a Response for Running external command. Command path: /Library/Application Support/Final Cut Server/Final Cut Server.bundle/Contents/Resources/sbin/fcsvr_run
Command Parameters: psql px pxdb -c 'SELECT pxmdvalue.value AS Asset_NAME, pxtcmdvalue.value, pxtcmdvalue.begintc, pxtcmdvalue.endtc FROM pxmdvalue INNER JOIN pxtcmdvalue ON pxmdvalue.entityid = pxtcmdvalue.entityid WHERE pxmdvalue.value=[FileName];' > ~/Desktop/ann-out.txt
(I`m having problem with this, it doesn`t work).
5- Make a Subscription that if Export Annotations modified = true, trigger if changed and trigger the Response above.
6- Add exporting annotations md group to Media md set.
In theory it`s possible to modify the FinalCutServerIntegrationSample get and input annotations instead of adding another "comment" field to md group list.
Few!
Ok so please help beautify this out!
This will be very useful for a lot of people.... We know that it`s only a matter of time to FCSVR have this function built-in... but this "time" could be years.
So let`s start ourselves!
Thank you very much!!
Regards!AlphaBlue wrote:
jverd wrote:
What were you hoping for? Someone reading your mind for what exactly you need, and handing you a giftwrapped answer, without you doing any work or clearly communicating a specific problem? This site doesn't really work that way.Fair enough. I'm asking for insight into how to input from and output to a StarOffice Spreadsheet into/from a Java program. (Think java.io except with spreadsheet files instead of .txt files.) I already answered that question.
I need to accomplish this without the use of a community-created library.That's a bizarre requriement. Why?
>
Okay, [here you go|http://lmgtfy.com/?q=communication+between+StarOffice+Spreadsheets+and+Java].
If you don't have any knowledge or experience, on the matter, please refrain from directing me to a google search. I assure you, I have already performed such a task.How would I know that.
But okay, let's say I know that. Let's say you bothered to point out that you've already done that. Further, let's say I do have knowledge of the subject at hand. Maybe I'm an expert. Maybe I wrote Star Office and an open source library (which wheel for some reason you must reinvent). You are assuming that I also have psychic powers, so that I can read your mind and know exactly what you've read so far and exactly what parts of your very broad and vague question said reading did not answer.
In short, you have received answers commensurate with your questions. -
Problem in using query bind parameters with dynamic domains
Hi JHeadstart Team,
I am trying to implement the functionality you have mentioned in the chapter 3 of JHS Developer's Guide Using Query Bind Parameters section. I followed the instructions but when I run the application, the following errors are shown on the top of the page :
javax.faces.FacesException: javax.faces.FacesException: Can't set managed bean property: 'namedParams'.
javax.faces.FacesException: javax.faces.FacesException: Possible cycle reference to managed bean "ElgOfMajDomainQueryBindParams"
javax.faces.FacesException: javax.faces.FacesException: Can't set managed bean property: 'namedParams'.
javax.faces.FacesException: javax.faces.FacesException: Possible cycle reference to managed bean "ElgOfMajDomainQueryBindParams"
I also read the chapter 5 - Query Bind Parameters and found that there is a difference between my page definition and the one mentioned in the JHS Developer's Guide .the refresh property in the InvokeAction section of our page definition was "ifNeeded" and I changed it to "renderModel". Now I just get these 2 following errors :
javax.faces.FacesException: javax.faces.FacesException: Can't set managed bean property: 'namedParams'.
javax.faces.FacesException: javax.faces.FacesException: Can't set managed bean property: 'namedParams'.
What is the probable cause of this problem ?
Any help would be appreciated.
Best Regards,
Navid
P.S. We are using Jdeveloper 10.1.3 and jhs 10.1.3 biuld 97.Dear Steven,
I have noticed that I have this difficulty with every dynamic domain which uses query bind parameters.
Here is a scenario which leads to the same error.
I want to have a read only view object on cg_ref_codes table with a p_domain_name parameter so that I can use it for every drop down list in my application.
1- I added a read only view with the following query :
select rv_domain,rv_low_value ,rv_high_value ,rv_abbreviation ,rv_meaning
from cg_ref_codes
where (:p_domain_name is null or rv_domain = :p_domain_name)
2- I added a bind variable to the view with the name of p_domain_name
3- I added the view to application module
4- I made a dynamic domain and put the following values in the query bind parameters but I always got the same errors and the drop down list always showed every record in cg_ref_codes which probably means that the parameter was sent to view object with the value of null.
p_domain_name=#{'RELIGION'}
p_domain_name=#{RELIGION}
p_domain_name=#{"RELIGION"}
p_domain_name='RELIGION'
I also tried to use a trick to check if this problem relate to constant value, so I update one field of my form to the constant I wanted and used the following value for query bind parameters :
p_domain_name=#{bindings.EngOrgPersonFirstName.inputValue}
but the result was the same.
I am realy confused with this error. Any prompt help would be highly appreciated.
Thanks in advance,
Navid
Here is one of stack trace :
14:05:10 ERROR (ApplicationImpl) -Managedbean ReligionsQueryBindParams could not be created Can't set managed bean property: 'namedParams'.
javax.faces.FacesException: Can't set managed bean property: 'namedParams'.
at com.sun.faces.config.ManagedBeanFactory.setPropertiesIntoBean(ManagedBeanFactory.java:576)
at com.sun.faces.config.ManagedBeanFactory.newInstance(ManagedBeanFactory.java:233)
at com.sun.faces.application.ApplicationAssociate.createAndMaybeStoreManagedBeans(ApplicationAssociate.java:256)
at com.sun.faces.el.VariableResolverImpl.resolveVariable(VariableResolverImpl.java:78)
at oracle.adfinternal.view.faces.el.AdfFacesVariableResolver.resolveVariable(AdfFacesVariableResolver.java:40)
at oracle.adfinternal.view.faces.model.VariableResolverUtils$JspResolver.resolveVariable(VariableResolverUtils.java:79)
at oracle.adfinternal.view.faces.model.VariableResolverUtils$FacesResolver.resolveVariable(VariableResolverUtils.java:144)
at oracle.adf.share.http.HttpADFContextVariableResolverImpl.resolveVariable(HttpADFContextVariableResolverImpl.java:232)
at oracle.adf.model.binding.DCVariableResolverImpl.resolveVariable(DCVariableResolverImpl.java:84)
at oracle.adfinternal.view.faces.model.VariableResolverUtils$JspResolver.resolveVariable(VariableResolverUtils.java:70)
at com.sun.faces.el.impl.NamedValue.evaluate(NamedValue.java:125)
at com.sun.faces.el.impl.ComplexValue.evaluate(ComplexValue.java:146)
at com.sun.faces.el.impl.ExpressionEvaluatorImpl.evaluate(ExpressionEvaluatorImpl.java:243)
at com.sun.faces.el.ValueBindingImpl.getValue(ValueBindingImpl.java:173)
at com.sun.faces.el.ValueBindingImpl.getValue(ValueBindingImpl.java:154)
at oracle.adfinternal.view.faces.model.FacesExpressionEvaluator._evaluate(FacesExpressionEvaluator.java:101)
at oracle.adfinternal.view.faces.model.FacesExpressionEvaluator.evaluate(FacesExpressionEvaluator.java:69)
at oracle.adf.model.binding.DCUtil.elEvaluate(DCUtil.java:765)
at oracle.adf.model.binding.DCBindingContainer.evaluateParameter(DCBindingContainer.java:1078)
at oracle.adf.model.binding.DCMethodParameterDef.resolveParameterValue(DCMethodParameterDef.java:213)
at oracle.adf.model.binding.DCMethodParameter.resolveParameterValue(DCMethodParameter.java:63)
at oracle.adf.model.binding.DCInvokeMethod.fetchAndSaveParameterValues(DCInvokeMethod.java:278)
at oracle.adf.model.binding.DCInvokeMethod.callMethod(DCInvokeMethod.java:195)
at oracle.jbo.uicli.binding.JUCtrlActionBinding.doIt(JUCtrlActionBinding.java:1287)
at oracle.adf.model.binding.DCDataControl.invokeOperation(DCDataControl.java:1802)
at oracle.jbo.uicli.binding.JUCtrlActionBinding.invoke(JUCtrlActionBinding.java:625)
at oracle.adf.model.binding.DCInvokeActionDef$DCInvokeAction.refresh(DCInvokeActionDef.java:130)
at oracle.adf.model.binding.DCBindingContainer.internalRefreshControl(DCBindingContainer.java:2518)
at oracle.adf.model.binding.DCBindingContainer.refresh(DCBindingContainer.java:2257)
at oracle.adf.controller.v2.lifecycle.PageLifecycleImpl.prepareModel(PageLifecycleImpl.java:104)
at oracle.adf.controller.v2.lifecycle.Lifecycle$8.execute(Lifecycle.java:210)
at oracle.adf.controller.v2.lifecycle.Lifecycle.executePhase(Lifecycle.java:116)
at oracle.adf.controller.faces.lifecycle.ADFPhaseListener.mav$executePhase(ADFPhaseListener.java)
at oracle.adf.controller.faces.lifecycle.ADFPhaseListener$4.after(ADFPhaseListener.java:331)
at oracle.adf.controller.faces.lifecycle.ADFPhaseListener.afterPhase(ADFPhaseListener.java:97)
at com.sun.faces.lifecycle.LifecycleImpl.phase(LifecycleImpl.java:211)
at com.sun.faces.lifecycle.LifecycleImpl.execute(LifecycleImpl.java:90)
at javax.faces.webapp.FacesServlet.service(FacesServlet.java:197)
at com.evermind.server.http.ResourceFilterChain.doFilter(ResourceFilterChain.java:64)
at oracle.adf.model.servlet.ADFBindingFilter.doFilter(ADFBindingFilter.java:332)
at com.evermind.server.http.EvermindFilterChain.doFilter(EvermindFilterChain.java:15)
at oracle.adfinternal.view.faces.webapp.AdfFacesFilterImpl._invokeDoFilter(AdfFacesFilterImpl.java:367)
at oracle.adfinternal.view.faces.webapp.AdfFacesFilterImpl._doFilterImpl(AdfFacesFilterImpl.java:336)
at oracle.adfinternal.view.faces.webapp.AdfFacesFilterImpl.doFilter(AdfFacesFilterImpl.java:196)
at oracle.adf.view.faces.webapp.AdfFacesFilter.doFilter(AdfFacesFilter.java:87)
at com.evermind.server.http.ServletRequestDispatcher.invoke(ServletRequestDispatcher.java:627)
at com.evermind.server.http.ServletRequestDispatcher.forwardInternal(ServletRequestDispatcher.java:376)
at com.evermind.server.http.HttpRequestHandler.doProcessRequest(HttpRequestHandler.java:870)
at com.evermind.server.http.HttpRequestHandler.processRequest(HttpRequestHandler.java:451)
at com.evermind.server.http.HttpRequestHandler.serveOneRequest(HttpRequestHandler.java:218)
at com.evermind.server.http.HttpRequestHandler.run(HttpRequestHandler.java:119)
at com.evermind.server.http.HttpRequestHandler.run(HttpRequestHandler.java:112)
at oracle.oc4j.network.ServerSocketReadHandler$SafeRunnable.run(ServerSocketReadHandler.java:260)
at oracle.oc4j.network.ServerSocketAcceptHandler.procClientSocket(ServerSocketAcceptHandler.java:230)
at oracle.oc4j.network.ServerSocketAcceptHandler.access$800(ServerSocketAcceptHandler.java:33)
at oracle.oc4j.network.ServerSocketAcceptHandler$AcceptHandlerHorse.run(ServerSocketAcceptHandler.java:831)
at com.evermind.util.ReleasableResourcePooledExecutor$MyWorker.run(ReleasableResourcePooledExecutor.java:303)
at java.lang.Thread.run(Thread.java:595)
Caused by: java.lang.reflect.InvocationTargetException
at sun.reflect.NativeMethodAccessorImpl.invoke0(Native Method)
at sun.reflect.NativeMethodAccessorImpl.invoke(NativeMethodAccessorImpl.java:39)
at sun.reflect.DelegatingMethodAccessorImpl.invoke(DelegatingMethodAccessorImpl.java:25)
at java.lang.reflect.Method.invoke(Method.java:585)
at org.apache.commons.beanutils.PropertyUtils.getSimpleProperty(PropertyUtils.java:1185)
at org.apache.commons.beanutils.PropertyUtils.getNestedProperty(PropertyUtils.java:772)
at org.apache.commons.beanutils.PropertyUtils.getProperty(PropertyUtils.java:801)
at com.sun.faces.config.ManagedBeanFactory.setMapPropertiesIntoBean(ManagedBeanFactory.java:773)
at com.sun.faces.config.ManagedBeanFactory.setPropertiesIntoBean(ManagedBeanFactory.java:519)
... 57 more
Caused by: java.lang.NullPointerException
at oracle.jheadstart.controller.jsf.bean.QueryBindParams.getNamedParams(QueryBindParams.java:94)
... 66 more
14:05:11 DEBUG (JhsPageLifecycle) -Executing prepareModel, page=/WEB-INF/engorg/page/EngOrgPerson.jspx, pagedef=EngOrgPersonPageDef
14:05:11 DEBUG (JhsNavigationHandlerImpl) -Executing checkRoles
14:05:11 ERROR (ManagedBeanFactory) -Possible cyclic reference to managedBean ReligionsQueryBindParams
14:05:11 ERROR (ApplicationImpl) -Managedbean ReligionsQueryBindParams could not be created Possible cycle reference to managed bean "ReligionsQueryBindParams"
javax.faces.FacesException: Possible cycle reference to managed bean "ReligionsQueryBindParams"
at com.sun.faces.config.ManagedBeanFactory.newInstance(ManagedBeanFactory.java:189)
at com.sun.faces.application.ApplicationAssociate.createAndMaybeStoreManagedBeans(ApplicationAssociate.java:256)
at com.sun.faces.el.VariableResolverImpl.resolveVariable(VariableResolverImpl.java:78)
at oracle.adfinternal.view.faces.el.AdfFacesVariableResolver.resolveVariable(AdfFacesVariableResolver.java:40)
at oracle.adfinternal.view.faces.model.VariableResolverUtils$JspResolver.resolveVariable(VariableResolverUtils.java:79)
at oracle.adfinternal.view.faces.model.VariableResolverUtils$FacesResolver.resolveVariable(VariableResolverUtils.java:144)
at oracle.adf.share.http.HttpADFContextVariableResolverImpl.resolveVariable(HttpADFContextVariableResolverImpl.java:232)
at oracle.adf.model.binding.DCVariableResolverImpl.resolveVariable(DCVariableResolverImpl.java:84)
at oracle.adfinternal.view.faces.model.VariableResolverUtils$JspResolver.resolveVariable(VariableResolverUtils.java:70)
at com.sun.faces.el.impl.NamedValue.evaluate(NamedValue.java:125)
at com.sun.faces.el.impl.ComplexValue.evaluate(ComplexValue.java:146)
at com.sun.faces.el.impl.ExpressionEvaluatorImpl.evaluate(ExpressionEvaluatorImpl.java:243)
at com.sun.faces.el.ValueBindingImpl.getValue(ValueBindingImpl.java:173)
at com.sun.faces.el.ValueBindingImpl.getValue(ValueBindingImpl.java:154)
at oracle.adfinternal.view.faces.model.FacesExpressionEvaluator._evaluate(FacesExpressionEvaluator.java:101)
at oracle.adfinternal.view.faces.model.FacesExpressionEvaluator.evaluate(FacesExpressionEvaluator.java:69)
at oracle.adf.model.binding.DCUtil.elEvaluate(DCUtil.java:765)
at oracle.adf.model.binding.DCBindingContainer.evaluateParameter(DCBindingContainer.java:1078)
at oracle.adf.model.binding.DCMethodParameterDef.resolveParameterValue(DCMethodParameterDef.java:213)
at oracle.adf.model.binding.DCMethodParameter.resolveParameterValue(DCMethodParameter.java:63)
at oracle.adf.model.binding.DCInvokeMethod.fetchAndSaveParameterValues(DCInvokeMethod.java:278)
at oracle.adf.model.binding.DCInvokeMethod.callMethod(DCInvokeMethod.java:195)
at oracle.jbo.uicli.binding.JUCtrlActionBinding.doIt(JUCtrlActionBinding.java:1287)
at oracle.adf.model.binding.DCDataControl.invokeOperation(DCDataControl.java:1802)
at oracle.jbo.uicli.binding.JUCtrlActionBinding.invoke(JUCtrlActionBinding.java:625)
at oracle.adf.model.binding.DCInvokeActionDef$DCInvokeAction.refresh(DCInvokeActionDef.java:130)
at oracle.adf.model.binding.DCBindingContainer.internalRefreshControl(DCBindingContainer.java:2518)
at oracle.adf.model.binding.DCBindingContainer.refresh(DCBindingContainer.java:2257)
at oracle.adf.controller.v2.lifecycle.PageLifecycleImpl.prepareModel(PageLifecycleImpl.java:104)
at oracle.jheadstart.controller.jsf.lifecycle.JhsPageLifecycle.prepareModel(JhsPageLifecycle.java:798)
at oracle.adf.controller.v2.lifecycle.Lifecycle$8.execute(Lifecycle.java:210)
at oracle.adf.controller.v2.lifecycle.Lifecycle.executePhase(Lifecycle.java:116)
at oracle.adf.controller.faces.lifecycle.ADFPhaseListener.mav$executePhase(ADFPhaseListener.java)
at oracle.adf.controller.faces.lifecycle.ADFPhaseListener$4.after(ADFPhaseListener.java:331)
at oracle.adf.controller.faces.lifecycle.ADFPhaseListener.afterPhase(ADFPhaseListener.java:97)
at com.sun.faces.lifecycle.LifecycleImpl.phase(LifecycleImpl.java:211)
at com.sun.faces.lifecycle.LifecycleImpl.execute(LifecycleImpl.java:90)
at javax.faces.webapp.FacesServlet.service(FacesServlet.java:197)
at com.evermind.server.http.ResourceFilterChain.doFilter(ResourceFilterChain.java:64)
at oracle.adf.model.servlet.ADFBindingFilter.doFilter(ADFBindingFilter.java:332)
at com.evermind.server.http.EvermindFilterChain.doFilter(EvermindFilterChain.java:15)
at oracle.adfinternal.view.faces.webapp.AdfFacesFilterImpl._invokeDoFilter(AdfFacesFilterImpl.java:367)
at oracle.adfinternal.view.faces.webapp.AdfFacesFilterImpl._doFilterImpl(AdfFacesFilterImpl.java:336)
at oracle.adfinternal.view.faces.webapp.AdfFacesFilterImpl.doFilter(AdfFacesFilterImpl.java:196)
at oracle.adf.view.faces.webapp.AdfFacesFilter.doFilter(AdfFacesFilter.java:87)
at com.evermind.server.http.ServletRequestDispatcher.invoke(ServletRequestDispatcher.java:627)
at com.evermind.server.http.ServletRequestDispatcher.forwardInternal(ServletRequestDispatcher.java:376)
at com.evermind.server.http.HttpRequestHandler.doProcessRequest(HttpRequestHandler.java:870)
at com.evermind.server.http.HttpRequestHandler.processRequest(HttpRequestHandler.java:451)
at com.evermind.server.http.HttpRequestHandler.serveOneRequest(HttpRequestHandler.java:218)
at com.evermind.server.http.HttpRequestHandler.run(HttpRequestHandler.java:119)
at com.evermind.server.http.HttpRequestHandler.run(HttpRequestHandler.java:112)
at oracle.oc4j.network.ServerSocketReadHandler$SafeRunnable.run(ServerSocketReadHandler.java:260)
at oracle.oc4j.network.ServerSocketAcceptHandler.procClientSocket(ServerSocketAcceptHandler.java:230)
at oracle.oc4j.network.ServerSocketAcceptHandler.access$800(ServerSocketAcceptHandler.java:33)
at oracle.oc4j.network.ServerSocketAcceptHandler$AcceptHandlerHorse.run(ServerSocketAcceptHandler.java:831)
at com.evermind.util.ReleasableResourcePooledExecutor$MyWorker.run(ReleasableResourcePooledExecutor.java:303)
at java.lang.Thread.run(Thread.java:595)
14:05:11 DEBUG (BreadcrumbStack) -Adding breadcrumb to stack: "?????? ??????? ??? ?????" (/WEB-INF/engorg/page/EngOrgPerson.jspx)
14:05:11 DEBUG (JhsPageLifecycle) -Executing prepareRender, page=/WEB-INF/engorg/page/EngOrgPerson.jspx, pagedef=EngOrgPersonPageDef
14:05:11 DEBUG (BreadcrumbStack) -Breadcrumb already on stack; rolling back the stack
14:05:11 DEBUG (BreadcrumbStack) -Adding breadcrumb to stack: "?????? ??????? ??? ?????" (/WEB-INF/engorg/page/EngOrgPerson.jspx)
06/11/20 14:05:11 javax.faces.el.EvaluationException: javax.faces.FacesException: javax.faces.FacesException: Can't set managed bean property: 'namedParams'.
06/11/20 14:05:11 at com.sun.faces.el.ValueBindingImpl.getValue(ValueBindingImpl.java:206)
06/11/20 14:05:11 at com.sun.faces.el.ValueBindingImpl.getValue(ValueBindingImpl.java:154)
06/11/20 14:05:11 at oracle.adfinternal.view.faces.model.FacesExpressionEvaluator._evaluate(FacesExpressionEvaluator.java:101)
06/11/20 14:05:11 at oracle.adfinternal.view.faces.model.FacesExpressionEvaluator.evaluate(FacesExpressionEvaluator.java:69)
06/11/20 14:05:11 at oracle.adf.model.binding.DCUtil.elEvaluate(DCUtil.java:765)
06/11/20 14:05:11 at oracle.adf.model.binding.DCBindingContainer.evaluateParameter(DCBindingContainer.java:1078)
06/11/20 14:05:11 at oracle.adf.model.binding.DCMethodParameterDef.resolveParameterValue(DCMethodParameterDef.java:213)
06/11/20 14:05:11 at oracle.adf.model.binding.DCMethodParameter.resolveParameterValue(DCMethodParameter.java:63)
06/11/20 14:05:11 at oracle.adf.model.binding.DCInvokeMethod.fetchAndSaveParameterValues(DCInvokeMethod.java:278)
06/11/20 14:05:11 at oracle.adf.model.binding.DCInvokeMethod.callMethod(DCInvokeMethod.java:195)
06/11/20 14:05:11 at oracle.jbo.uicli.binding.JUCtrlActionBinding.doIt(JUCtrlActionBinding.java:1287)
06/11/20 14:05:11 at oracle.adf.model.binding.DCDataControl.invokeOperation(DCDataControl.java:1802)
06/11/20 14:05:11 at oracle.jbo.uicli.binding.JUCtrlActionBinding.invoke(JUCtrlActionBinding.java:625)
06/11/20 14:05:11 at oracle.adf.model.binding.DCInvokeActionDef$DCInvokeAction.refresh(DCInvokeActionDef.java:130)
06/11/20 14:05:11 at oracle.adf.model.binding.DCBindingContainer.internalRefreshControl(DCBindingContainer.java:2518)
06/11/20 14:05:11 at oracle.adf.model.binding.DCBindingContainer.refresh(DCBindingContainer.java:2257)
06/11/20 14:05:11 at oracle.adf.controller.v2.lifecycle.PageLifecycleImpl.prepareModel(PageLifecycleImpl.java:104)
06/11/20 14:05:11 at oracle.adf.controller.v2.lifecycle.Lifecycle$8.execute(Lifecycle.java:210)
06/11/20 14:05:11 at oracle.adf.controller.v2.lifecycle.Lifecycle.executePhase(Lifecycle.java:116)
06/11/20 14:05:11 at oracle.adf.controller.faces.lifecycle.ADFPhaseListener.mav$executePhase(ADFPhaseListener.java)
06/11/20 14:05:11 at oracle.adf.controller.faces.lifecycle.ADFPhaseListener$4.after(ADFPhaseListener.java:331)
06/11/20 14:05:11 at oracle.adf.controller.faces.lifecycle.ADFPhaseListener.afterPhase(ADFPhaseListener.java:97)
06/11/20 14:05:11 at com.sun.faces.lifecycle.LifecycleImpl.phase(LifecycleImpl.java:211)
06/11/20 14:05:11 at com.sun.faces.lifecycle.LifecycleImpl.execute(LifecycleImpl.java:90)
06/11/20 14:05:11 at javax.faces.webapp.FacesServlet.service(FacesServlet.java:197)
06/11/20 14:05:11 at com.evermind.server.http.ResourceFilterChain.doFilter(ResourceFilterChain.java:64)
06/11/20 14:05:11 at oracle.adf.model.servlet.ADFBindingFilter.doFilter(ADFBindingFilter.java:332)
06/11/20 14:05:11 at com.evermind.server.http.EvermindFilterChain.doFilter(EvermindFilterChain.java:15)
06/11/20 14:05:11 at oracle.adfinternal.view.faces.webapp.AdfFacesFilterImpl._invokeDoFilter(AdfFacesFilterImpl.java:367)
06/11/20 14:05:12 at oracle.adfinternal.view.faces.webapp.AdfFacesFilterImpl._doFilterImpl(AdfFacesFilterImpl.java:336)
06/11/20 14:05:12 at oracle.adfinternal.view.faces.webapp.AdfFacesFilterImpl.doFilter(AdfFacesFilterImpl.java:196)
06/11/20 14:05:12 at oracle.adf.view.faces.webapp.AdfFacesFilter.doFilter(AdfFacesFilter.java:87)
06/11/20 14:05:12 at com.evermind.server.http.ServletRequestDispatcher.invoke(ServletRequestDispatcher.java:627)
06/11/20 14:05:12 at com.evermind.server.http.ServletRequestDispatcher.forwardInternal(ServletRequestDispatcher.java:376)
06/11/20 14:05:12 at com.evermind.server.http.HttpRequestHandler.doProcessRequest(HttpRequestHandler.java:870)
06/11/20 14:05:12 at com.evermind.server.http.HttpRequestHandler.processRequest(HttpRequestHandler.java:451)
06/11/20 14:05:12 at com.evermind.server.http.HttpRequestHandler.serveOneRequest(HttpRequestHandler.java:218)
06/11/20 14:05:12 at com.evermind.server.http.HttpRequestHandler.run(HttpRequestHandler.java:119)
06/11/20 14:05:12 at com.evermind.server.http.HttpRequestHandler.run(HttpRequestHandler.java:112)
06/11/20 14:05:12 at oracle.oc4j.network.ServerSocketReadHandler$SafeRunnable.run(ServerSocketReadHandler.java:260)
06/11/20 14:05:12 at oracle.oc4j.network.ServerSocketAcceptHandler.procClientSocket(ServerSocketAcceptHandler.java:230)
06/11/20 14:05:12 at oracle.oc4j.network.ServerSocketAcceptHandler.access$800(ServerSocketAcceptHandler.java:33)
06/11/20 14:05:12 at oracle.oc4j.network.ServerSocketAcceptHandler$AcceptHandlerHorse.run(ServerSocketAcceptHandler.java:831)
06/11/20 14:05:12 at com.evermind.util.ReleasableResourcePooledExecutor$MyWorker.run(ReleasableResourcePooledExecutor.java:303)
06/11/20 14:05:12 at java.lang.Thread.run(Thread.java:595)
06/11/20 14:05:12 Caused by: javax.faces.FacesException: javax.faces.FacesException: Can't set managed bean property: 'namedParams'.
06/11/20 14:05:12 at com.sun.faces.application.ApplicationAssociate.createAndMaybeStoreManagedBeans(ApplicationAssociate.java:266)
06/11/20 14:05:12 at com.sun.faces.el.VariableResolverImpl.resolveVariable(VariableResolverImpl.java:78)
06/11/20 14:05:12 at oracle.adfinternal.view.faces.el.AdfFacesVariableResolver.resolveVariable(AdfFacesVariableResolver.java:40)
06/11/20 14:05:12 at oracle.adfinternal.view.faces.model.VariableResolverUtils$JspResolver.resolveVariable(VariableResolverUtils.java:79)
06/11/20 14:05:12 at oracle.adfinternal.view.faces.model.VariableResolverUtils$FacesResolver.resolveVariable(VariableResolverUtils.java:144)
06/11/20 14:05:12 at oracle.adf.share.http.HttpADFContextVariableResolverImpl.resolveVariable(HttpADFContextVariableResolverImpl.java:232)
06/11/20 14:05:12 at oracle.adf.model.binding.DCVariableResolverImpl.resolveVariable(DCVariableResolverImpl.java:84)
06/11/20 14:05:12 at oracle.adfinternal.view.faces.model.VariableResolverUtils$JspResolver.resolveVariable(VariableResolverUtils.java:70)
06/11/20 14:05:12 at com.sun.faces.el.impl.NamedValue.evaluate(NamedValue.java:125)
06/11/20 14:05:12 at com.sun.faces.el.impl.ComplexValue.evaluate(ComplexValue.java:146)
06/11/20 14:05:12 at com.sun.faces.el.impl.ExpressionEvaluatorImpl.evaluate(ExpressionEvaluatorImpl.java:243)
06/11/20 14:05:12 at com.sun.faces.el.ValueBindingImpl.getValue(ValueBindingImpl.java:173)
06/11/20 14:05:12 ... 44 more
06/11/20 14:05:12 Caused by: javax.faces.FacesException: Can't set managed bean property: 'namedParams'.
06/11/20 14:05:12 at com.sun.faces.config.ManagedBeanFactory.setPropertiesIntoBean(ManagedBeanFactory.java:576)
06/11/20 14:05:12 at com.sun.faces.config.ManagedBeanFactory.newInstance(ManagedBeanFactory.java:233)
06/11/20 14:05:12 at com.sun.faces.application.ApplicationAssociate.createAndMaybeStoreManagedBeans(ApplicationAssociate.java:256)
06/11/20 14:05:12 ... 55 more
06/11/20 14:05:12 Caused by: java.lang.reflect.InvocationTargetException
06/11/20 14:05:12 at sun.reflect.NativeMethodAccessorImpl.invoke0(Native Method)
06/11/20 14:05:12 at sun.reflect.NativeMethodAccessorImpl.invoke(NativeMethodAccessorImpl.java:39)
06/11/20 14:05:12 at sun.reflect.DelegatingMethodAccessorImpl.invoke(DelegatingMethodAccessorImpl.java:25)
06/11/20 14:05:12 at java.lang.reflect.Method.invoke(Method.java:585)
06/11/20 14:05:12 at org.apache.commons.beanutils.PropertyUtils.getSimpleProperty(PropertyUtils.java:1185)
06/11/20 14:05:12 at org.apache.commons.beanutils.PropertyUtils.getNestedProperty(PropertyUtils.java:772)
06/11/20 14:05:12 at org.apache.commons.beanutils.PropertyUtils.getProperty(PropertyUtils.java:801)
06/11/20 14:05:12 at com.sun.faces.config.ManagedBeanFactory.setMapPropertiesIntoBean(ManagedBeanFactory.java:773)
06/11/20 14:05:12 at com.sun.faces.config.ManagedBeanFactory.setPropertiesIntoBean(ManagedBeanFactory.java:519)
06/11/20 14:05:12 ... 57 more
06/11/20 14:05:12 Caused by: java.lang.NullPointerException
06/11/20 14:05:12 at oracle.jheadstart.controller.jsf.bean.QueryBindParams.getNamedParams(QueryBindParams.java:94)
06/11/20 14:05:12 ... 66 more
06/11/20 14:05:12 javax.faces.el.EvaluationException: javax.faces.FacesException: javax.faces.FacesException: Possible cycle reference to managed bean "ReligionsQueryBindParams"
06/11/20 14:05:12 at com.sun.faces.el.ValueBindingImpl.getValue(ValueBindingImpl.java:206)
06/11/20 14:05:12 at com.sun.faces.el.ValueBindingImpl.getValue(ValueBindingImpl.java:154)
06/11/20 14:05:12 at oracle.adfinternal.view.faces.model.FacesExpressionEvaluator._evaluate(FacesExpressionEvaluator.java:101)
06/11/20 14:05:12 at oracle.adfinternal.view.faces.model.FacesExpressionEvaluator.evaluate(FacesExpressionEvaluator.java:69)
06/11/20 14:05:12 at oracle.adf.model.binding.DCUtil.elEvaluate(DCUtil.java:765)
06/11/20 14:05:12 at oracle.adf.model.binding.DCBindingContainer.evaluateParameter(DCBindingContainer.java:1078)
06/11/20 14:05:12 at oracle.adf.model.binding.DCMethodParameterDef.resolveParameterValue(DCMethodParameterDef.java:213)
06/11/20 14:05:12 at oracle.adf.model.binding.DCMethodParameter.resolveParameterValue(DCMethodParameter.java:63)
06/11/20 14:05:12 at oracle.adf.model.binding.DCInvokeMethod.fetchAndSaveParameterValues(DCInvokeMethod.java:278)
06/11/20 14:05:12 at oracle.adf.model.binding.DCInvokeMethod.callMethod(DCInvokeMethod.java:195)
06/11/20 14:05:12 at oracle.jbo.uicli.binding.JUCtrlActionBinding.doIt(JUCtrlActionBinding.java:1287)
06/11/20 14:05:12 at oracle.adf.model.binding.DCDataControl.invokeOperation(DCDataControl.java:1802)
06/11/20 14:05:12 at oracle.jbo.uicli.binding.JUCtrlActionBinding.invoke(JUCtrlActionBinding.java:625)
06/11/20 14:05:12 at oracle.adf.model.binding.DCInvokeActionDef$DCInvokeAction.refresh(DCInvokeActionDef.java:130)
06/11/20 14:05:12 at oracle.adf.model.binding.DCBindingContainer.internalRefreshControl(DCBindingContainer.java:2518)
06/11/20 14:05:12 at oracle.adf.model.binding.DCBindingContainer.refresh(DCBindingContainer.java:2257)
06/11/20 14:05:12 at oracle.adf.controller.v2.lifecycle.PageLifecycleImpl.prepareModel(PageLifecycleImpl.java:104)
06/11/20 14:05:12 at oracle.jheadstart.controller.jsf.lifecycle.JhsPageLifecycle.prepareModel(JhsPageLifecycle.java:798)
06/11/20 14:05:12 at oracle.adf.controller.v2.lifecycle.Lifecycle$8.execute(Lifecycle.java:210)
06/11/20 14:05:12 at oracle.adf.controller.v2.lifecycle.Lifecycle.executePhase(Lifecycle.java:116)
06/11/20 14:05:12 at oracle.adf.controller.faces.lifecycle.ADFPhaseListener.mav$executePhase(ADFPhaseListener.java)
06/11/20 14:05:12 at oracle.adf.controller.faces.lifecycle.ADFPhaseListener$4.after(ADFPhaseListener.java:331)
06/11/20 14:05:12 at oracle.adf.controller.faces.lifecycle.ADFPhaseListener.afterPhase(ADFPhaseListener.java:97)
06/11/20 14:05:12 at com.sun.faces.lifecycle.LifecycleImpl.phase(LifecycleImpl.java:211)
06/11/20 14:05:12 at com.sun.faces.lifecycle.LifecycleImpl.execute(LifecycleImpl.java:90)
06/11/20 14:05:12 at javax.faces.webapp.FacesServlet.service(FacesServlet.java:197)
06/11/20 14:05:12 at com.evermind.server.http.ResourceFilterChain.doFilter(ResourceFilterChain.java:64)
06/11/20 14:05:12 at oracle.adf.model.servlet.ADFBindingFilter.doFilter(ADFBindingFilter.java:332)
06/11/20 14:05:12 at com.evermind.server.http.EvermindFilterChain.doFilter(EvermindFilterChain.java:15)
06/11/20 14:05:12 at oracle.adfinternal.view.faces.webapp.AdfFacesFilterImpl._invokeDoFilter(AdfFacesFilterImpl.java:367)
06/11/20 14:05:12 at oracle.adfinternal.view.faces.webapp.AdfFacesFilterImpl._doFilterImpl(AdfFacesFilterImpl.java:336)
06/11/20 14:05:12 at oracle.adfinternal.view.faces.webapp.AdfFacesFilterImpl.doFilter(AdfFacesFilterImpl.java:196)
06/11/20 14:05:12 at oracle.adf.view.faces.webapp.AdfFacesFilter.doFilter(AdfFacesFilter.java:87)
06/11/20 14:05:12 at com.evermind.server.http.ServletRequestDispatcher.invoke(ServletRequestDispatcher.java:627)
06/11/20 14:05:12 at com.evermind.server.http.ServletRequestDispatcher.forwardInternal(ServletRequestDispatcher.java:376)
06/11/20 14:05:12 at com.evermind.server.http.HttpRequestHandler.doProcessRequest(HttpRequestHandler.java:870)
06/11/20 14:05:12 at com.evermind.server.http.HttpRequestHandler.processRequest(HttpRequestHandler.java:451)
06/11/20 14:05:12 at com.evermind.server.http.HttpRequestHandler.serveOneRequest(HttpRequestHandler.java:218)
06/11/20 14:05:12 at com.evermind.server.http.HttpRequestHandler.run(HttpRequestHandler.java:119)
06/11/20 14:05:12 at com.evermind.server.http.HttpRequestHandler.run(HttpRequestHandler.java:112)
06/11/20 14:05:12 at oracle.oc4j.network.ServerSocketReadHandler$SafeRunnable.run(ServerSocketReadHandler.java:260)
06/11/20 14:05:12 at oracle.oc4j.network.ServerSocketAcceptHandler.procClientSocket(ServerSocketAcceptHandler.java:230)
06/11/20 14:05:12 at oracle.oc4j.network.ServerSocketAcceptHandler.access$800(ServerSocketAcceptHandler.java:33)
06/11/20 14:05:12 at oracle.oc4j.network.ServerSocketAcceptHandler$AcceptHandlerHorse.run(ServerSocketAcceptHandler.java:831)
06/11/20 14:05:12 at com.evermind.util.ReleasableResourcePooledExecutor$MyWorker.run(ReleasableResourcePooledExecutor.java:303)
06/11/20 14:05:12 at java.lang.Thread.run(Thread.java:595)
06/11/20 14:05:12 Caused by: javax.faces.FacesException: javax.faces.FacesException: Possible cycle reference to managed bean "ReligionsQueryBindParams"
06/11/20 14:05:12 at com.sun.faces.application.ApplicationAssociate.createAndMaybeStoreManagedBeans(ApplicationAssociate.java:266)
06/11/20 14:05:12 at com.sun.faces.el.VariableResolverImpl.resolveVariable(VariableResolverImpl.java:78)
06/11/20 14:05:12 at oracle.adfinternal.view.faces.el.AdfFacesVariableResolver.resolveVariable(AdfFacesVariableResolver.java:40)
06/11/20 14:05:12 at oracle.adfinternal.view.faces.model.VariableResolverUtils$JspResolver.resolveVariable(VariableResolverUtils.java:79)
06/11/20 14:05:12 at oracle.adfinternal.view.faces.model.VariableResolverUtils$FacesResolver.resolveVariable(VariableResolverUtils.java:144)
06/11/20 14:05:12 at oracle.adf.share.http.HttpADFContextVariableResolverImpl.resolveVariable(HttpADFContextVariableResolverImpl.java:232)
06/11/20 14:05:12 at oracle.adf.model.binding.DCVariableResolverImpl.resolveVariable(DCVariableResolverImpl.java:84)
06/11/20 14:05:12 at oracle.adfinternal.view.faces.model.VariableResolverUtils$JspResolver.resolveVariable(VariableResolverUtils.java:70)
06/11/20 14:05:12 at com.sun.faces.el.impl.NamedValue.evaluate(NamedValue.java:125)
06/11/20 14:05:12 at com.sun.faces.el.impl.ComplexValue.evaluate(ComplexValue.java:146)
06/11/20 14:05:12 at com.sun.faces.el.impl.ExpressionEvaluatorImpl.evaluate(ExpressionEvaluatorImpl.java:243)
06/11/20 14:05:12 at com.sun.faces.el.ValueBindingImpl.getValue(ValueBindingImpl.java:173)
06/11/20 14:05:12 ... 45 more
06/11/20 14:05:12 Caused by: javax.faces.FacesException: Possible cycle reference to managed bean "ReligionsQueryBindParams"
06/11/20 14:05:12 at com.sun.faces.config.ManagedBeanFactory.newInstance(ManagedBeanFactory.java:189)
14:05:12 DEBUG (JhsPageLifecycle) -Executing prepareRender, page=/WEB-INF/engorg/page/EngOrgPerson.jspx, pagedef=EngOrgPersonPageDef
06/11/20 14:05:12 at com.sun.faces.application.ApplicationAssociate.createAndMaybeStoreManagedBeans(ApplicationAssociate.java:256)
06/11/20 14:05:12 ... 56 more
06/11/20 14:05:12 javax.faces.el.EvaluationException: javax.faces.FacesException: javax.faces.FacesException: Can't set managed bean property: 'namedParams'.
06/11/20 14:05:12 at com.sun.faces.el.ValueBindingImpl.getValue(ValueBindingImpl.java:206)
06/11/20 14:05:12 at com.sun.faces.el.ValueBindingImpl.getValue(ValueBindingImpl.java:154)
06/11/20 14:05:12 at oracle.adfinternal.view.faces.model.FacesExpressionEvaluator._evaluate(FacesExpressionEvaluator.java:101)
14:05:12 DEBUG (BreadcrumbStack) -Breadcrumb already on stack; rolling back the stack
14:05:12 DEBUG (BreadcrumbStack) -Adding breadcrumb to stack: "?????? ??????? ??? ?????" (/WEB-INF/engorg/page/EngOrgPerson.jspx)
06/11/20 14:05:12 at oracle.adfinternal.view.faces.model.FacesExpressionEvaluator.evaluate(FacesExpressionEvaluator.java:69)
06/11/20 14:05:12 at oracle.adf.model.binding.DCUtil.elEvaluate(DCUtil.java:765)
06/11/20 14:05:12 at oracle.adf.model.binding.DCBindingContainer.evaluateParameter(DCBindingContainer.java:1078)
06/11/20 14:05:12 at oracle.adf.model.binding.DCMethodParameterDef.resolveParameterValue(DCMethodParameterDef.java:213)
06/11/20 14:05:12 at oracle.adf.model.binding.DCMethodParameter.resolveParameterValue(DCMethodParameter.java:63)
06/11/20 14:05:12 at oracle.adf.model.binding.DCInvokeMethod.fetchAndSaveParameterValues(DCInvokeMethod.java:278)
06/11/20 14:05:12 at oracle.adf.model.binding.DCInvokeMethod.callMethod(DCInvokeMethod.java:195)
06/11/20 14:05:12 at oracle.jbo.uicli.binding.JUCtrlActionBinding.doIt(JUCtrlActionBinding.java:1287)
06/11/20 14:05:12 at oracle.adf.model.binding.DCDataControl.invokeOperation(DCDataControl.java:1802)
06/11/20 14:05:12 at oracle.jbo.uicli.binding.JUCtrlActionBinding.invoke(JUCtrlActionBinding.java:625)
06/11/20 14:05:12 at oracle.adf.model.binding.DCInvokeActionDef$DCInvokeAction.refresh(DCInvokeActionDef.java:130)
06/11/20 14:05:12 at oracle.adf.model.binding.DCBindingContainer.internalRefreshControl(DCBindingContainer.java:2518)
06/11/20 14:05:12 at oracle.adf.model.binding.DCBindingContainer.refresh(DCBindingContainer.java:2257)
06/11/20 14:05:12 at oracle.adf.controller.v2.lifecycle.PageLifecycleImpl.prepareModel(PageLifecycleImpl.java:104)
06/11/20 14:05:12 at oracle.adf.controller.v2.lifecycle.Lifecycle$8.execute(Lifecycle.java:210)
06/11/20 14:05:12 at oracle.adf.controller.v2.lifecycle.Lifecycle.executePhase(Lifecycle.java:116)
06/11/20 14:05:12 at oracle.adf.controller.faces.lifecycle.ADFPhaseListener.mav$executePhase(ADFPhaseListener.java)
06/11/20 14:05:12 at oracle.adf.controller.faces.lifecycle.ADFPhaseListener$4.after(ADFPhaseListener.java:331)
06/11/20 14:05:12 at oracle.adf.controller.faces.lifecycle.ADFPhaseListener.afterPhase(ADFPhaseListener.java:97)
06/11/20 14:05:12 at com.sun.faces.lifecycle.LifecycleImpl.phase(LifecycleImpl.java:211)
06/11/20 14:05:12 at com.sun.faces.lifecycle.LifecycleImpl.execute(LifecycleImpl.java:90)
06/11/20 14:05:12 at javax.faces.webapp.FacesServlet.service(FacesServlet.java:197)
06/11/20 14:05:12 at com.evermind.server.http.ResourceFilterChain.doFilter(ResourceFilterChain.java:64)
06/11/20 14:05:12 at oracle.adf.model.servlet.ADFBindingFilter.doFilter(ADFBindingFilter.java:332)
06/11/20 14:05:12 at com.evermind.server.http.EvermindFilterChain.doFilter(EvermindFilterChain.java:15)
06/11/20 14:05:12 at oracle.adfinternal.view.faces.webapp.AdfFacesFilterImpl._invokeDoFilter(AdfFacesFilterImpl.java:367)
06/11/20 14:05:12 at oracle.adfinternal.view.faces.webapp.AdfFacesFilterImpl._doFilterImpl(AdfFacesFilterImpl.java:336)
06/11/20 14:05:12 at oracle.adfinternal.view.faces.webapp.AdfFacesFilterImpl.doFilter(AdfFacesFilterImpl.java:196)
06/11/20 14:05:12 at oracle.adf.view.faces.webapp.AdfFacesFilter.doFilter(AdfFacesFilter.java:87)
06/11/20 14:05:12 at com.evermind.server.http.ServletRequestDispatcher.invoke(ServletRequestDispatcher.java:627)
06/11/20 14:05:12 at com.evermind.server.http.ServletRequestDispatcher.forwardInternal(ServletRequestDispatcher.java:376)
06/11/20 14:05:12 at com.evermind.server.http.HttpRequestHandler.doProcessRequest(HttpRequestHandler.java:870)
06/11/20 14:05:12 at com.evermind.server.http.HttpRequestHandler.processRequest(HttpRequestHandler.java:451)
06/11/20 14:05:12 at com.evermind.server.http.HttpRequestHandler.serveOneRequest(HttpRequestHandler.java:218)
06/11/20 14:05:12 at com.evermind.server.http.HttpRequestHandler.run(HttpRequestHandler.java:119)
06/11/20 14:05:12 at com.evermind.server.http.HttpRequestHandler.run(HttpRequestHandler.java:112)
06/11/20 14:05:12 at oracle.oc4j.network.ServerSocketReadHandler$SafeRunnable.run(ServerSocketReadHandler.java:260)
06/11/20 14:05:12 at oracle.oc4j.network.ServerSocketAcceptHandler.procClientSocket(ServerSocketAcceptHandler.java:230)
06/11/20 14:05:12 at oracle.oc4j.network.ServerSocketAcceptHandler.access$800(ServerSocketAcceptHandler.java:33)
06/11/20 14:05:12 at oracle.oc4j.network.ServerSocketAcceptHandler$AcceptHandlerHorse.run(ServerSocketAcceptHandler.java:831)
06/11/20 14:05:12 at com.evermind.util.ReleasableResourcePooledExecutor$MyWorker.run(ReleasableResourcePooledExecutor.java:303)
06/11/20 14:05:12 at java.lang.Thread.run(Thread.java:595)
06/11/20 14:05:12 Caused by: javax.faces.FacesException: javax.faces.FacesException: Can't set managed bean property: 'namedParams'.
06/11/20 14:05:12 at com.sun.faces.application.ApplicationAssociate.createAndMaybeStoreManagedBeans(ApplicationAssociate.java:266)
06/11/20 14:05:12 at com.sun.faces.el.VariableResolverImpl.resolveVariable(VariableResolverImpl.java:78)
06/11/20 14:05:12 at oracle.adfinternal.view.faces.el.AdfFacesVariableResolver.resolveVariable(AdfFacesVariableResolver.java:40)
06/11/20 14:05:12 at oracle.adfinternal.view.faces.model.VariableResolverUtils$JspResolver.resolveVariable(VariableResolverUtils.java:79)
06/11/20 14:05:12 at oracle.adfinternal.view.faces.model.VariableResolverUtils$FacesResolver.resolveVariable(VariableResolverUtils.java:144)
06/11/20 14:05:12 at oracle.adf.share.http.HttpADFContextVariableResolverImpl.resolveVariable(HttpADFContextVariableResolverImpl.java:232)
06/11/20 14:05:12 at oracle.adf.model.binding.DCVariableResolverImpl.resolveVariable(DCVariableResolverImpl.java:84)
06/11/20 14:05:12 at oracle.adfinternal.view.faces.model.VariableResolverUtils$JspResolver.resolveVariable(VariableResolverUtils.java:70)
06/11/20 14:05:12 at com.sun.faces.el.impl.NamedValue.evaluate(NamedValue.java:125)
06/11/20 14:05:12 at com.sun.faces.el.impl.ComplexValue.evaluate(ComplexValue.java:146)
06/11/20 14:05:12 at com.sun.faces.el.impl.ExpressionEvaluatorImpl.evaluate(ExpressionEvaluatorImpl.java:243)
06/11/20 14:05:12 at com.sun.faces.el.ValueBindingImpl.getValue(ValueBindingImpl.java:173)
06/11/20 14:05:12 ... 44 more
06/11/20 14:05:12 Caused by: javax.faces.FacesException: Can't set managed bean property: 'namedParams'.
06/11/20 14:05:12 at com.sun.faces.config.ManagedBeanFactory.setPropertiesIntoBean(ManagedBeanFactory.java:576)
06/11/20 14:05:12 at com.sun.faces.config.ManagedBeanFactory.newInstance(ManagedBeanFactory.java:233)
06/11/20 14:05:12 at com.sun.faces.application.ApplicationAssociate.createAndMaybeStoreManagedBeans(ApplicationAssociate.java:256)
06/11/20 14:05:12 ... 55 more
06/11/20 14:05:12 Caused by: java.lang.reflect.InvocationTargetException
06/11/20 14:05:12 at sun.reflect.NativeMethodAccessorImpl.invoke0(Native Method)
06/11/20 14:05:12 at sun.reflect.NativeMethodAccessorImpl.invoke(NativeMethodAccessorImpl.java:39)
06/11/20 14:05:12 at sun.reflect.DelegatingMethodAccessorImpl.invoke(DelegatingMethodAccessorImpl.java:25)
06/11/20 14:05:12 at java.lang.reflect.Method.invoke(Method.java:585)
06/11/20 14:05:12 at org.apache.commons.beanutils.PropertyUtils.getSimpleProperty(PropertyUtils.java:1185)
06/11/20 14:05:12 at org.apache.commons.beanutils.PropertyUtils.getNestedProperty(PropertyUtils.java:772)
06/11/20 14:05:12 at org.apache.commons.beanutils.PropertyUtils.getProperty(PropertyUtils.java:801)
06/11/20 14:05:12 at com.sun.faces.config.ManagedBeanFactory.setMapPropertiesIntoBean(ManagedBeanFactory.java:773)
06/11/20 14:05:12 at com.sun.faces.config.ManagedBeanFactory.setPropertiesIntoBean(ManagedBeanFactory.java:519)
06/11/20 14:05:12 ... 57 more
06/11/20 14:05:12 Caused by: java.lang.NullPointerException
06/11/20 14:05:12 at oracle.jheadstart.controller.jsf.bean.QueryBindParams.getNamedParams(QueryBindParams.java:94)
06/11/20 14:05:12 ... 66 more
06/11/20 14:05:12 javax.faces.el.EvaluationException: javax.faces.FacesException: javax.faces.FacesException: Possible cycle reference to managed bean "ReligionsQueryBindParams"
06/11/20 14:05:12 at com.sun.faces.el.ValueBindingImpl.getValue(ValueBindingImpl.java:206)
06/11/20 14:05:12 at com.sun.faces.el.ValueBindingImpl.getValue(ValueBindingImpl.java:154)
06/11/20 14:05:12 at oracle.adfinternal.view.faces.model.FacesExpressionEvaluator._evaluate(FacesExpressionEvaluator.java:101)
06/11/20 14:05:12 at oracle.adfinternal.view.faces.model.FacesExpressionEvaluator.evaluate(FacesExpressionEvaluator.java:69)
06/11/20 14:05:12 at oracle.adf.model.binding.DCUtil.elEvaluate(DCUtil.java:765)
06/11/20 14:05:12 at oracle.adf.model.binding.DCBindingContainer.evaluateParameter(DCBindingContainer.java:1078)
06/11/20 14:05:12 at oracle.adf.model.binding.DCMethodParameterDef.resolveParameterValue(DCMethodParameterDef.java:213)
06/11/20 14:05:12 at oracle.adf.model.binding.DCMethodParameter.resolveParameterValue(DCMethodParameter.java:63)
06/11/20 14:05:12 at oracle.adf.model.binding.DCInvokeMethod.fetchAndSaveParameterValues(DCInvokeMethod.java:278)
06/11/20 14:05:12 at oracle.adf.model.binding.DCInvokeMethod.callMethod(DCInvokeMethod.java:195)
06/11/20 14:05:12 at oracle.jbo.uicli.binding.JUCtrlActionBinding.doIt(JUCtrlActionBinding.java:1287)
06/11/20 14:05:12 at oracle.adf.model.binding.DCDataControl.invokeOperation(DCDataControl.java:1802)
06/11/20 14:05:12 at oracle.jbo.uicli.binding.JUCtrlActionBinding.invoke(JUCtrlActionBinding.java:625)
06/11/20 14:05:12 at oracle.adf.model.binding.DCInvokeActionDef$DCInvokeAction.refresh(DCInvokeActionDef.java:130)
06/11/20 14:05:12 at oracle.adf.model.binding.DCBindingContainer.internalRefreshControl(DCBindingContainer.java:2518)
06/11/20 14:05:12 at oracle.adf.model.binding.DCBindingContainer.refresh(DCBindingContainer.java:2257)
06/11/20 14:05:12 at oracle.adf.controller.v2.lifecycle.PageLifecycleImpl.prepareModel(PageLifecycleImpl.java:104)
06/11/20 14:05:12 at oracle.jheadstart.controller.jsf.lifecycle.JhsPageLifecycle.prepareModel(JhsPageLifecycle.java:798)
06/11/20 14:05:12 at oracle.adf.controller.v2.lifecycle.Lifecycle$8.execute(Lifecycle.java:210)
06/11/20 14:05:12 at oracle.adf.controller.v2.lifecycle.Lifecycle.executePhase(Lifecycle.java:116)
06/11/20 14:05:12 at oracle.adf.controller.faces.lifecycle.ADFPhaseListener.mav$executePhase(ADFPhaseListener.java)
06/11/20 14:05:12 at oracle.adf.controller.faces.lifecycle.ADFPhaseListener$4.after(ADFPhaseListener.java:331)
06/11/20 14:05:12 at oracle.adf.controller.faces.lifecycle.ADFPhaseListener.afterPhase(ADFPhaseListener.java:97)
06/11/20 14:05:12 at com.sun.faces.lifecycle.LifecycleImpl.phase(LifecycleImpl.java:211)
06/11/20 14:05:12 at com.sun.faces.lifecycle.LifecycleImpl.execute(LifecycleImpl.java:90)
06/11/20 14:05:12 at javax.faces.webapp.FacesServlet.service(FacesServlet.java:197)
06/11/20 14:05:12 at com.evermind.server.http.ResourceFilterChain.doFilter(ResourceFilterChain.java:64)
06/11/20 14:05:12 at oracle.adf.model.servlet.ADFBindingFilter.doFilter(ADFBindingFilter.java:332)
06/11/20 14:05:12 at com.evermind.server.http.EvermindFilterChain.doFilter(EvermindFilterChain.java:15)
06/11/20 14:05:12 at oracle.adfinternal.view.faces.webapp.AdfFacesFilterImpl._invokeDoFilter(AdfFacesFilterImpl.java:367)
06/11/20 14:05:12 at oracle.adfinternal.view.faces.webapp.AdfFacesFilterImpl._doFilterImpl(AdfFacesFilterImpl.java:336)
06/11/20 14:05:12 at oracle.adfinternal.view.faces.webapp.AdfFacesFilterImpl.doFilter(AdfFacesFilterImpl.java:196)
06/11/20 14:05:12 at oracle.adf.view.faces.webapp.AdfFacesFilter.doFilter(AdfFacesFilter.java:87)
06/11/20 14:05:12 at com.evermind.server.http.ServletRequestDispatcher.invoke(ServletRequestDispatcher.java:627)
06/11/20 14:05:12 at com.evermind.server.http.ServletRequestDispatcher.forwardInternal(ServletRequestDispatcher.java:376)
06/11/20 14:05:12 at com.evermind.server.http.HttpRequestHandler.doProcessRequest(HttpRequestHandler.java:870)
06/11/20 14:05:12 at com.evermind.server.http.HttpRequestHandler.processRequest(HttpRequestHandler.java:451)
06/11/20 14:05:12 at com.evermind.server.http.HttpRequestHandler.serveOneRequest(HttpRequestHandler.java:218)
06/11/20 14:05:12 at com.evermind.server.http.HttpRequestHandler.run(HttpRequestHandler.java:119)
06/11/20 14:05:12 at com.evermind.server.http.HttpRequestHandler.run(HttpRequestHandler.java:112)
06/11/20 14:05:12 at oracle.oc4j.network.ServerSocketReadHandler$SafeRunnable.run(ServerSocketReadHandler.java:260)
06/11/20 14:05:12 at oracle.oc4j.network.ServerSocketAcceptHandler.procClientSocket(ServerSocketAcceptHandler.java:230)
06/11/20 14:05:12 at oracle.oc4j.network.ServerSocketAcceptHandler.access$800(ServerSocketAcceptHandler.java:33)
06/11/20 14:05:12 at oracle.oc4j.network.ServerSocketAcceptHandler$AcceptHandlerHorse.run(ServerSocketAcceptHandler.java:831)
06/11/20 14:05:12 at com.evermind.util.ReleasableResourcePooledExecutor$MyWorker.run(ReleasableResourcePooledExecutor.java:303)
06/11/20 14:05:12 at java.lang.Thread.run(Thread.java:595)
06/11/20 14:05:12 Caused by: javax.faces.FacesException: javax.faces.FacesException: Possible cycle reference to managed bean "ReligionsQueryBindParams"
06/11/20 14:05:12 at com.sun.faces.application.ApplicationAssociate.createAndMaybeStoreManagedBeans(ApplicationAssociate.java:266)
06/11/20 14:05:12 at com.sun.faces.el.VariableResolverImpl.resolveVariable(VariableResolverImpl.java:78)
06/11/20 14:05:12 at oracle.adfinternal.view.faces.el.AdfFacesVariableResolver.resolveVariable(AdfFacesVariableResolver.java:40)
06/11/20 14:05:12 at oracle.adfinternal.view.faces.model.VariableResolverUtils$JspResolver.resolveVariable(VariableResolverUtils.java:79)
06/11/20 14:05:12 at oracle.adfinternal.view.faces.model.VariableResolverUtils$FacesResolver.resolveVariable(VariableResolverUtils.java:144)
06/11/20 14:05:12 at oracle.adf.share.http.HttpADFContextVariableResolverImpl.resolveVariable(HttpADFContextVariableResolverImpl.java:232)
06/11/20 14:05:12 at oracle.adf.model.binding.DCVariableResolverImpl.resolveVariable(DCVariableResolverImpl.java:84)
06/11/20 14:05:12 at oracle.adfinternal.view.faces.model.VariableResolverUtils$JspResolver.resolveVariable(VariableResolverUtils.java:70)
06/11/20 14:05:12 at com.sun.faces.el.impl.NamedValue.evaluate(NamedValue.java:125)
06/11/20 14:05:12 at com.sun.faces.el.impl.ComplexValue.evaluate(ComplexValue.java:146)
06/11/20 14:05:12 at com.sun.faces.el.impl.ExpressionEvaluatorImpl.evaluate(ExpressionEvaluatorImpl.java:243)
06/11/20 14:05:12 at com.sun.faces.el.ValueBindingImpl.getValue(ValueBindingImpl.java:173)
06/11/20 14:05:12 ... 45 more
06/11/20 14:05:12 Caused by: javax.faces.FacesException: Possible cycle reference to managed bean "ReligionsQueryBindParams"
06/11/20 14:05:12 at com.sun.faces.config.ManagedBeanFactory.newInstance(ManagedBeanFactory.java:189)
06/11/20 14:05:12 at com.sun.faces.application.ApplicationAssociate.createAndMaybeStoreManagedBeans(ApplicationAssociate.java:256)
06/11/20 14:05:12 ... 56 more
06/11/20 14:05:16 Warning: directory D:\Oracle\Jdev10g\jlib\sync.jar doesn't exist on classpath
06/11/20 14:05:16 Warning: directory D:\Oracle\Jdev10g\jlib\netcfg.jar doesn't exist on classpath
06/11/20 14:05:16 Warning: directory D:\Oracle\Jdev10g\lib\jsse.jar doesn't exist on classpath
06/11/20 14:05:16 Warning: directory D:\Oracle\Jdev10g\lib\jnet.jar doesn't exist on classpath
06/11/20 14:05:16 Warning: directory D:\Oracle\Jdev10g\lib\jcert.jar doesn't exist on classpath
06/11/20 14:05:16 Warning: directory D:\Oracle\Jdev10g\ldap\oidadmin\dasnls.jar doesn't exist on classpath
06/11/20 14:05:16 Warning: directory D:\Oracle\Jdev10g\owm\jlib\owm-3_0.jar doesn't exist on classpath
06/11/20 14:05:16 Warning: directory D:\Oracle\Jdev10g\jlib\oembase.jar doesn't exist on classpath
06/11/20 14:05:16 Warning: directory D:\Oracle\Jdev10g\jlib\oemlt.jar doesn't exist on classpath
06/11/20 14:05:16 Warning: directory D:\Oracle\encryption\jlib\ojpse.jar doesn't exist on classpath
06/11/20 14:05:16 Warning: directory D:\Oracle\oracle\jlib\ldapjclnt10.jar doesn't exist on classpath
06/11/20 14:05:16 Warning: directory D:\Oracle\ldap\jlib\ldapjclnt10.jar doesn't exist on classpath
06/11/20 14:05:16 Warning: directory D:\Oracle\Jdev10g\jlib\owm-3_0.jar doesn't exist on classpath
06/11/20 14:05:16 Warning: directory D:\Oracle\oem_bin\lib\oembase.jar doesn't exist on classpath
06/11/20 14:05:16 Warning: directory D:\Oracle\oem_bin\lib\oemlt.jar doesn't exist on classpath
06/11/20 14:05:16 Warning: directory D:\Oracle\Jdev10g\oracle\jlib\oraclepki.jar doesn't exist on classpath
06/11/20 14:05:16 Warning: directory D:\Oracle\lib\xmlparserv2.jar doesn't exist on classpath
06/11/20 14:05:16 Warning: directory D:\lib\xmlparserv2.jar doesn't exist on classpath
06/11/20 14:05:16 Warning: directory D:\Oracle\Jdev10g\oracle\lib\xmlparserv2.jar doesn't exist on classpath
06/11/20 14:05:16 Warning: directory D:\Oracle\jlib\ldapjclnt10.jar doesn't exist on classpath
06/11/20 14:05:16 Warning: directory D:\jlib\ldapjclnt10.jar doesn't exist on classpath
06/11/20 14:05:16 Warning: directory D:\Oracle\Jdev10g\oracle\jlib\ldapjclnt10.jar doesn't exist on classpath
06/11/20 14:05:16 Warning: directory D:\Oracle\Jdev10g\oracle\jlib\ospnego.jar doesn't exist on classpath
06/11/20 14:05:16 Warning: directory D:\Oracle\Jdev10g\dms\diagnostics\lib\ojdl.jar doesn't exist on classpath
06/11/20 14:05:16 Warning: directory D:\Oracle\Jdev10g\oracle\lib\dms.jar doesn't exist on classpath
06/11/20 14:05:16 Warning: directory D:\Oracle\Jdev10g\xdk\xml.jar doesn't exist on classpath
06/11/20 14:05:16 Warning: directory D:\Oracle\Jdev10g\webservices\lib\.\namespace.jar doesn't exist on classpath
06/11/20 14:05:16 Warning: directory D:\Oracle\Jdev10g\javacache\cachedobjects\classes doesn't exist on classpath
06/11/20 14:05:16 Warning: directory D:\Oracle\Jdev10g\javacache\cachedobjects\share.jar doesn't exist on classpath
06/11/20 14:05:16 Warning: directory D:\Oracle\Jdev10g\oracle\lib\xschema.jar doesn't exist on classpath
06/11/20 14:05:16 Warning: directory D:\Oracle\Jdev10g\oracle\jlib\ojmisc.jar doesn't exist on classpath
06/11/20 14:05:16 Warning: directory D:\Oracle\Jdev10g\j2ee\home\lib\jsse.jar doesn't exist on classpath
06/11/20 14:05:16 Warning: directory D:\Oracle\Jdev10g\oracle\j2ee\home\lib\jsse.jar doesn't exist on classpath
06/11/20 14:05:16 Warning: directory D:\Oracle\Jdev10g\j2ee\home\lib\jnet.jar doesn't exist on classpath
06/11/20 14:05:16 Warning: directory D:\Oracle\Jdev10g\oracle\j2ee\home\lib\jnet.jar doesn't exist on classpath
06/11/20 14:05:16 Warning: directory D:\Oracle\Jdev10g\dms\lib\dms.jar doesn't exist on classpath
06/11/20 14:05:16 Warning: directory E:\Users\JdevProjects\Mhud0829_3\ViewController\public_html\WEB-INF\lib\commons-beanutils.jar doesn't exist on classpath
06/11/20 14:05:16 Warning: directory E:\Users\JdevProjects\Mhud0829_3\ViewController\public_html\WEB-INF\lib\commons-collections.jar doesn't exist on classpath
06/11/20 14:05:16 Warning: directory E:\Users\JdevProjects\Mhud0829_3\ViewController\public_html\WEB-INF\lib\commons-digester.jar doesn't exist on classpath
06/11/20 14:05:16 Warning: directory E:\Users\JdevProjects\Mhud0829_3\ViewController\public_html\WEB-INF\lib\commons-logging.jar doesn't exist on classpath
06/11/20 14:05:16 Warning: directory E:\Users\JdevProjects\Mhud0829_3\ViewController\public_html\WEB-INF\lib\commons-validator.jar doesn't exist on classpath
06/11/20 14:05:16 Warning: directory E:\Users\JdevProjects\Mhud0829_3\ViewController\public_html\WEB-INF\lib\jakarta-oro.jar doesn't exist on classpath
06/11/20 14:05:16 Warning: directory E:\Users\JdevProjects\Mhud0829_3\ViewController\public_html\WEB-INF\lib\struts-legacy.jar doesn't exist on classpath
06/11/20 14:05:16 Warning: directory D:\Oracle\Jdev10g\jakarta-taglibs\commons-logging-1.0.3\log4j.jar doesn't exist on classpath
06/11/20 14:05:16 Warning: directory D:\Oracle\Jdev10g\jakarta-taglibs\commons-logging-1.0.3\log4j-core.jar doesn't exist on classpath
06/11/20 14:05:16 Warning: directory D:\Oracle\Jdev10g\oracle\jlib\ojpse.jar doesn't exist on classpath
06/11/20 14:05:16 Warning: directory D:\Oracle\Jdev10g\jakarta-struts\lib\log4j.jar doesn't exist on classpath
06/11/20 14:05:16 Warning: directory D:\Oracle\Jdev10g\jakarta-struts\lib\log4j-core.jar doesn't exist on classpath
06/11/20 14:05:16 Warning: directory E:\Users\JdevProjects\Mhud0829_3\ViewController\public_html\WEB-INF\classes doesn't exist on classpath
06/11/20 14:05:18 E:\Users\JdevProjects\Mhud0829_3\ViewController\classes\.jsps\_regions\_engorg\_MhudAppModuleMenu1Tabs_jspx.java:32: warning #556: variable session assigned to but never used
06/11/20 14:05:18 HttpSession session = pageContext.getSession();06/11/20 14:05:18 ^
06/11/20 14:05:18 E:\Users\JdevProjects\Mhud0829_3\ViewController\classes\.jsps\_regions\_engorg\_MhudAppModuleMenu1Tabs_jspx.java:34: warning #556: variable application assigned to but never used
06/11/20 14:05:18 ServletContext application = pageContext.getServletContext();06/11/20 14:05:18 ^
06/11/20 14:05:18 E:\Users\JdevProjects\Mhud0829_3\ViewController\classes\.jsps\_regions\_engorg\_MhudAppModuleMenu1Tabs_jspx.java:36: warning #556: variable page assigned to but never used
06/11/20 14:05:18 MhudAppModuleMenu1Tabsjspx page = this;06/11/20 14:05:18 ^
06/11/20 14:05:18 E:\Users\JdevProjects\Mhud0829_3\ViewController\classes\.jsps\_regions\_engorg\_MhudAppModuleMenu1Tabs_jspx.java:37: warning #556: variable config assigned to but never used
06/11/20 14:05:18 ServletConfig config = pageContext.getServletConfig();06/11/20 14:05:18 ^
06/11/20 14:05:18 E:\Users\JdevProjects\Mhud0829_3\ViewController\classes\.jsps\_regions\_engorg\_MhudAppModuleMenu1Tabs_jspx.java:38: warning #556: variable __ojsp_varRes assigned to but never used
06/11/20 14:05:18 javax.servlet.jsp.el.VariableResolver __ojsp_varRes = (VariableResolver)new OracleVariableResolverImpl(pageContext);06/11/20 14:05:18 ^
06/11/20 14:05:18 E:\Users\JdevProjects\Mhud0829_3\ViewController\classes\.jsps\_regions\_engorg\_MhudAppModuleMenu1Tabs_jspx.java:40: warning #556: variable __ojsp_s_out assigned to but never used
06/11/20 14:05:18 com.evermind.server.http.JspCommonExtraWriter __ojsp_s_out = (com.evermind.server.http.JspCommonExtraWriter) out;06/11/20 14:05:18 ^
06/11/20 14:05:19 Warning: directory D:\Oracle\Jdev10g\jlib\sync.jar doesn't exist on classpath
06/11/20 14:05:19 Warning: directory D:\Oracle\Jdev10g\jlib\netcfg.jar doesn't exist on classpath
06/11/20 14:05:19 Warning: directory D:\Oracle\Jdev10g\lib\jsse.jar doesn't exist on classpath
06/11/20 14:05:19 Warning: directory D:\Oracle\Jdev10g\lib\jnet.jar doesn't exist on classpath
06/11/20 14:05:19 Warning: directory D:\Oracle\Jdev10g\lib\jcert.jar doesn't exist on classpath
06/11/20 14:05:19 Warning: directory D:\Oracle\Jdev10g\ldap\oidadmin\dasnls.jar doesn't exist on classpath
06/11/20 14:05:19 Warning: directory D:\Oracle\Jdev10g\owm\jlib\owm-3_0.jar doesn't exist on classpath
06/11/20 14:05:19 Warning: directory D:\Oracle\Jdev10g\jlib\oembase.jar doesn't exist on classpath
06/11/20 14:05:19 Warning: directory D:\Oracle\Jdev10g\jlib\oemlt.jar doesn't exist on classpath
06/11/20 14:05:19 Warning: directory D:\Oracle\encryption\jlib\ojpse.jar doesn't exist on classpath
06/11/20 14:05:19 Warning: directory D:\Oracle\oracle\jlib\ldapjclnt10.jar doesn't exist on classpath
06/11/20 14:05:19 Warning: directory D:\Oracle\ldap\jlib\ldapjclnt10.jar doesn't exist on classpath
06/11/20 14:05:19 Warning: directory D:\Oracle\Jdev10g\jlib\owm-3_0.jar doesn't exist on classpath
06/11/20 14:05:19 Warning: directory D:\Oracle\oem_bin\lib\oembase.jar doesn't exist on classpath
06/11/20 14:05:19 Warning: directory D:\Oracle\oem_bin\lib\oemlt.jar doesn't exist on classpath
06/11/20 14:05:19 Warning: directory D:\Oracle\Jdev10g\oracle\jlib\oraclepki.jar doesn't exist on classpath
06/11/20 14:05:19 Warning: directory D:\Oracle\lib\xmlparserv2.jar doesn't exist on classpath
06/11/20 14:05:19 Warning: directory D:\lib\xmlparserv2.jar doesn't exist on classpath
06/11/20 14:05:19 Warning: directory D:\Oracle\Jdev10g\oracle\lib\xmlparserv2.jar doesn't exist on classpath
06/11/20 14:05:19 Warning: directory D:\Oracle\jlib\ldapjclnt10.jar doesn't exist on classpath
06/11/20 14:05:19 Warning: directory D:\jlib\ldapjclnt10.jar doesn't exist on classpath
06/11/20 14:05:19 Warning: directory D:\Oracle\Jdev10g\oracle\jlib\ldapjclnt10.jar doesn't exist on classpath
06/11/20 14:05:19 Warning: directory D:\Oracle\Jdev10g\oracle\jlib\ospnego.jar doesn't exist on classpath
06/11/20 14:05:19 Warning: directory D:\Oracle\Jdev10g\dms\diagnostics\lib\ojdl.jar doesn't exist on classpath
06/11/20 14:05:19 Warning: directory D:\Oracle\Jdev10g\oracle\lib\dms.jar doesn't exist on classpath
06/11/20 14:05:19 Warning: directory D:\Oracle\Jdev10g\xdk\xml.jar doesn't exist on classpath
06/11/20 14:05:19 Warning: directory D:\Oracle\Jdev10g\webservices\lib\.\namespace.jar doesn't exist on classpath
06/11/20 14:05:19 Warning: directory D:\Oracle\Jdev10g\javacache\cachedobjects\classes doesn't exist on classpath
06/11/20 14:05:19 Warning: directory D:\Oracle\Jdev10g\javacache\cachedobjects\share.jar doesn't exist on classpath
06/11/20 14:05:19 Warning: directory D:\Oracle\Jdev10g\oracle\lib\xschema.jar doesn't exist on classpath
06/11/20 14:05:19 Warning: directory D:\Oracle\Jdev10g\oracle\jlib\ojmisc.jar doesn't exist on classpath
06/11/20 14:05:19 Warning: directory D:\Oracle\Jdev10g\j2ee\home\lib\jsse.jar doesn't exist on classpath
06/11/20 14:05:19 Warning: directory D:\Oracle\Jdev10g\oracle\j2ee\home\lib\jsse.jar doesn't exist on classpath
06/11/20 14:05:19 Warning: directory D:\Oracle\Jdev10g\j2ee\home\lib\jnet.jar doesn't exist on classpath
06/11/20 14:05:19 Warning: directory D:\Oracle\Jdev10g\oracle\j2ee\home\lib\jnet.jar doesn't exist on classpath
06/11/20 14:05:19 Warning: directory D:\Oracle\Jdev10g\dms\lib\dms.jar doesn't exist on classpath
06/11/20 14:05:19 Warning: directory E:\Users\JdevProjects\Mhud0829_3\ViewController\public_html\WEB-INF\lib\commons-beanutils.jar doesn't exist on classpath
06/11/20 14:05:19 Warning: directory E:\Users\JdevProjects\Mhud0829_3\ViewController\public_html\WEB-INF\lib\commons-collections.jar doesn't exist on classpath
06/11/20 14:05:19 Warning: directory E:\Users\JdevProjects\Mhud0829_3\ViewController\public_html\WEB-INF\lib\commons-digester.jar doesn't exist on classpath
06/11/20 14:05:19 Warning: directory E:\Users\JdevProjects\Mhud0829_3\ViewController\public_html\WEB-INF\lib\commons-logging.jar doesn't exist on classpath
06/11/20 14:05:19 Warning: directory E:\Users\JdevProjects\Mhud0829_3\ViewController\public_html\WEB-INF\lib\commons-validator.jar doesn't exist on classpath
06/11/20 14:05:19 Warning: directory E:\Users\JdevProjects\Mhud0829_3\ViewController\public_html\WEB-INF\lib\jakarta-oro.jar doesn't exist on classpath
06/11/20 14:05:19 Warning: directory E:\Users\JdevProjects\Mhud0829_3\ViewController\public_html\WEB-INF\lib\struts-legacy.jar doesn't exist on classpath
06/11/20 14:05:20 Warning: directory D:\Oracle\Jdev10g\jakarta-taglibs\commons-logging-1.0.3\log4j.jar doesn't exist on classpath
06/11/20 14:05:20 Warning: directory D:\Oracle\Jdev10g\jakarta-taglibs\commons-logging-1.0.3\log4j-core.jar doesn't exist on classpath
06/11/20 14:05:20 Warning: directory D:\Oracle\Jdev10g\oracle\jlib\ojpse.jar doesn't exist on classpath
06/11/20 14:05:20 Warning: directory D:\Oracle\Jdev10g\jakarta-struts\lib\log4j.jar doesn't exist on classpath
06/11/20 14:05:20 Warning: directory D:\Oracle\Jdev10g\jakarta-struts\lib\log4j-core.jar doesn't exist on classpath
06/11/20 14:05:20 Warning: directory E:\Users\JdevProjects\Mhud0829_3\ViewController\public_html\WEB-INF\classes doesn't exist on classpath
06/11/20 14:05:21 E:\Users\JdevProjects\Mhud0829_3\ViewController\classes\.jsps\_regions\_engorg\_MhudAppModuleEngOrgPersonMenu2Tabs_jspx.java:32: warning #556: variable session assigned to but never used
06/11/20 14:05:21 HttpSession session = pageContext.getSession();06/11/20 14:05:21 ^
06/11/20 14:05:21 E:\Users\JdevProjects\Mhud0829_3\ViewController\classes\.jsps\_regions\_engorg\_MhudAppModuleEngOrgPersonMenu2Tabs_jspx.java:34: warning #556: variable application assigned to but never used
06/11/20 14:05:21 ServletContext application = pageContext.getServletContext();06/11/20 14:05:21 ^
06/11/20 14:05:21 E:\Users\JdevProjects\Mhud0829_3\ViewController\classes\.jsps\_regions\_engorg\_MhudAppModuleEngOrgPersonMenu2Tabs_jspx.java:36: warning #556: variable page assigned to but never used
06/11/20 14:05:21 MhudAppModuleEngOrgPersonMenu2Tabsjspx page = this;06/11/20 14:05:21 ^
06/11/20 14:05:21 E:\Users\JdevProjects\Mhud0829_3\ViewController\classes\.jsps\_regions\_en -
How to temporally match/save Input and Output Channels's data?
Hello, I have a voltage-input, voltage-output SISO system, and need to indentify its dynamic response (or transfer function) as a reference to a PID control. Without using the system identification toolbox, my goal is to generate/provide a sine sweep input (ranging 1Hz-5kHz for 10sec) to the system and to save the corresponding output response signal as well as the sweep input signal simultaneously.
I got a sample program online and am trying to modify it as attached, but I really need your advices/comments concerning several problems I am facing with:
1) With the below setting, the number of the acquired Input channel samples obtained is 5461, which is smaller than expected (i.e., 10000). What would I be missing in setting parameters?
- H/W: NI-USB-6341 DAQ
- AO: continuous samples with the waveform timing (1k sampling, 10000 samples => 10 sec, slower sampling just for testing purpose)
- AI: continuous samples, samples to read: 30k, rate: 1k
2) I am using flat sequence structure as a way to making the start point of saving AI and AO data same, but wonders if this is a right method or if there is other better approaches. (I had an idea of using an internal clock with "1-sample mode" for sync, but this may not work at the high speed sine sweep like 5kHz, right?)
3) I just want to provide the sine sweep just once to the system and do not require the "reset" functionality implemented in the original sample program. I failed to remove this "reset" part as I did not fully understand the sample code. If I run the attahed, the generated AO signal is periodically provided to the system. Please give me any advice to modify the program as I want.
Thanks for your help and valualble time.
Attachments:
siso.vi 230 KBHi J. Kim,
To begin, you say you want to synchronize your analog input and output so that they start at the exact same time, yes? To achieve tight synchronization, you need to use DAQmx VIs instead of the DAQ Assistant. There's a good overview of DAQmx VIs here. There's also a document that deals specifically with synchronization in DAQmx here. Additionally, if you go to Help>>Find Examples in the LabVIEW example finder, you can see many other examples of acquiring data using DAQmx.
As for your configuration, you have your analog input DAQ assistant wired far before your analog output DAQ assistant in your sequence strucutre, so the dataflow of the program will cause the analog input DAQ Assistant to execute before the output. They cannot be in different sequences if they are executing simoultaneously, and I would not use flat sequences here except to start the two tasks in DAQmx. Where did you find this example?
Best,
Dan N
Applications Engineer
National Instruments -
Issue with Read only VO Query bind parameters
Hi Experts,
Working in Jdev 11.1.1.3.0
I am face one issue, probably its very common to all of us, bcoz i to do the same thing in N number of times.
Issue:
select count(*) as cnt from emp
where
((:BindEmpId is NOT NULL AND EMP_ID = :BindEmpId) AND
(DEPT_ID IS NULL OR DEPT_ID =: BindDeptId));
when i run this query its giving correct result(count is 0) but usually i written like
select count(*) as cnt from emp
where
((:BindEmpId is NOT NULL AND EMP_ID = :BindEmpId) AND
(BindDeptId IS NULL OR DEPT_ID =: BindDeptId));
this time its giving count is 1, which is wrong.
Data in data base:
ID DeptID value EmpID
226 1519 jh 601
So which one is correct?Well, the two select statements are for different use cases and we can't decide which is the correct one as we don't know the use case.
Your data looks like
ID DeptID value EmpID
226 1519 jh 601 There are some decisions we can't make with only one row in the table. We don't know if DepIt can be null in the table and/or EmpId can be null. This information is vital for your select statements.
Next we don't know how you want to handle the query if one or both bind parameters are null.
Should the query return 0 in this case or should the query just omit the part of the query if the bind variable is null (and then return the result found with the remaining query)?
We can't possible answer this.
You need to provide more information...
Timo -
Wrong input and output files path?
When i tried to run my code i got wrong path of input and output files, why it was and where is the mistake? I did not meant the path \tmp\xorout.txt and C:\jar\org\joone\samples\engine\xor\xor.txt in the source code - where are they from? :
* XOR.java
* Sample class to demostrate the use of the Joone's core engine
* see the Developer Guide for more details
* JOONE - Java Object Oriented Neural Engine
* http://joone.sourceforge.net
package org.joone.samples.engine.xor;
import java.io.File;
import org.joone.engine.*;
import org.joone.engine.learning.*;
import org.joone.io.*;
import org.joone.net.NeuralNet;
public class XOR implements NeuralNetListener {
/** Creates new XOR */
public XOR() {
* @param args the command line arguments
public static void main() {
XOR xor = new XOR();
xor.Go();
public void Go() {
* Firts, creates the three Layers
LinearLayer input = new LinearLayer();
SigmoidLayer hidden = new SigmoidLayer();
SigmoidLayer output = new SigmoidLayer();
input.setLayerName("input");
hidden.setLayerName("hidden");
output.setLayerName("output");
/* sets their dimensions */
input.setRows(2);
hidden.setRows(3);
output.setRows(1);
* Now create the two Synapses
FullSynapse synapse_IH = new FullSynapse(); /* input -> hidden conn. */
FullSynapse synapse_HO = new FullSynapse(); /* hidden -> output conn. */
synapse_IH.setName("IH");
synapse_HO.setName("HO");
* Connect the input layer whit the hidden layer
input.addOutputSynapse(synapse_IH);
hidden.addInputSynapse(synapse_IH);
* Connect the hidden layer whit the output layer
hidden.addOutputSynapse(synapse_HO);
output.addInputSynapse(synapse_HO);
FileInputSynapse inputStream = new FileInputSynapse();
/* The first two columns contain the input values */
inputStream.setAdvancedColumnSelector("1,2");
/* This is the file that contains the input data */
inputStream.setInputFile(new File("c:\\xor.txt"));
input.addInputSynapse(inputStream);
TeachingSynapse trainer = new TeachingSynapse();
/* Setting of the file containing the desired responses,
provided by a FileInputSynapse */
FileInputSynapse samples = new FileInputSynapse();
samples.setInputFile(new File("c:\\xor.txt"));
/* The output values are on the third column of the file */
samples.setAdvancedColumnSelector("3");
trainer.setDesired(samples);
/* Creates the error output file */
FileOutputSynapse error = new FileOutputSynapse();
error.setFileName("c:\\xorout.txt");
//error.setBuffered(false);
trainer.addResultSynapse(error);
/* Connects the Teacher to the last layer of the net */
output.addOutputSynapse(trainer);
NeuralNet nnet = new NeuralNet();
nnet.addLayer(input, NeuralNet.INPUT_LAYER);
nnet.addLayer(hidden, NeuralNet.HIDDEN_LAYER);
nnet.addLayer(output, NeuralNet.OUTPUT_LAYER);
nnet.setTeacher(trainer);
FileOutputSynapse results = new FileOutputSynapse();
results.setFileName("c:\\results.txt");
output.addOutputSynapse(results);
// Gets the Monitor object and set the learning parameters
Monitor monitor = nnet.getMonitor();
monitor.setLearningRate(0.8);
monitor.setMomentum(0.3);
/* The application registers itself as monitor's listener
* so it can receive the notifications of termination from
* the net.
monitor.addNeuralNetListener(this);
monitor.setTrainingPatterns(4); /* # of rows (patterns) contained in the input file */
monitor.setTotCicles(2000); /* How many times the net must be trained on the input patterns */
monitor.setLearning(true); /* The net must be trained */
nnet.go(); /* The net starts the training job */
public void netStopped(NeuralNetEvent e) {
System.out.println("Training finished");
public void cicleTerminated(NeuralNetEvent e) {
public void netStarted(NeuralNetEvent e) {
System.out.println("Training...");
public void errorChanged(NeuralNetEvent e) {
Monitor mon = (Monitor)e.getSource();
/* We want print the results every 200 cycles */
if (mon.getCurrentCicle() % 200 == 0)
System.out.println(mon.getCurrentCicle() + " epochs remaining - RMSE = " + mon.getGlobalError());
public void netStoppedError(NeuralNetEvent e,String error) {
ERROR:
C:\jar>java -cp joone-engine.jar org.joone.samples.engine.xor.XOR C:\\xor.txt C:
\\xorout.txt
[main] [ERROR] - org.joone.io.FileOutputSynapse - IOException in Synapse 6. Mess
age is : \tmp\xorout.txt (The system cannot find the path specified)
Training...
[Thread-0] [WARN] - org.joone.io.FileInputSynapse - IOException in Synapse 3. Me
ssage is : C:\jar\org\joone\samples\engine\xor\xor.txt (The system cannot find t
he path specified)
[Thread-0] [WARN] - org.joone.io.FileInputSynapse - IOException in Synapse 3. Me
ssage is : C:\jar\org\joone\samples\engine\xor\xor.txt (The system cannot find t
he path specified)
java.lang.NullPointerException
at org.joone.io.StreamInputSynapse.getStream(StreamInputSynapse.java:176
at org.joone.io.StreamInputSynapse.readAll(StreamInputSynapse.java:288)
at org.joone.io.StreamInputSynapse.fwdGet(StreamInputSynapse.java:106)
at org.joone.engine.Layer.fireFwdGet(Layer.java:212)
at org.joone.engine.Layer.fwdRun(Layer.java:1225)
at org.joone.net.NeuralNet.stepForward(NeuralNet.java:1015)
at org.joone.net.NeuralNet.fastRun(NeuralNet.java:970)
at org.joone.net.NeuralNet.fastRun(NeuralNet.java:937)
at org.joone.net.NeuralNet$1.run(NeuralNet.java:890)
at java.lang.Thread.run(Thread.java:534)c:xor.txt
c:/xor.txt
i think c:xor stands for somthing else like a virtual drive but ima not sure -
I'm trying to initiate the analog input and output streams to start reliably at the same sample. I've tried triggering the output from the start of the input using the following code [NI-DAQmx Base 2.1 under Mac OS X with an M-Series multifunction board]. It compiles and runs, but gives an error message at the call to "DAQmxBaseCfgDigEdgeStartTrig". Any suggestions about synchronized I/O on this platform?
#include "NIDAQmxBase.h"
#include
#include
#include
#define DAQmxErrorCheck( functionCall ) { if ( DAQmxFailed( error=( functionCall ) ) ) { goto Error; } }
int main( int argc, char *argv[] )
// Task parameters
int32 error = 0;
TaskHandle inputTaskHandle = 0;
TaskHandle outputTaskHandle = 0;
char errorString[ 2048 ] = {'\0'};
int32 i;
time_t startTime;
// input channel parameters
char inputChannelList[] = "Dev1/ai0, Dev1/ai1";
float64 inputVoltageRangeMinimum = -10.0;
float64 inputVoltageRangeMaximum = 10.0;
// output channel parameters
char outputChannelList[] = "Dev1/ao0, Dev1/ao1";
char outputTrigger[] = "Dev1/ai/StartTrigger";
float64 outputVoltageRangeMinimum = -10.0;
float64 outputVoltageRangeMaximum = 10.0;
// Timing parameters
char clockSource[] = "OnboardClock";
uInt64 samplesPerChannel = 100000;
float64 sampleRate = 10000.0;
// Input data parameters
static const uInt32 inputBufferSize = 100;
int16 inputData[ inputBufferSize * 2 ];
int32 pointsToRead = inputBufferSize;
int32 pointsRead;
float64 timeout = 10.0;
int32 totalRead = 0;
// Output data parameters
static const uInt32 outputBufferSize = 1000;
float64 outputData[ outputBufferSize * 2 ];
int32 pointsToWrite = outputBufferSize;
int32 pointsWritten;
for( int i = 0; i < outputBufferSize; i++ )
outputData[ 2 * i ] = 9.95 * sin( 2.0 * 3.14159 * i / outputBufferSize );
outputData[ 2 * i + 1 ] = -9.95 * sin( 2.0 * 3.14159 * i / outputBufferSize );
// ------------------- configure input task -----------------------
DAQmxErrorCheck ( DAQmxBaseCreateTask( "", &inputTaskHandle ) );
printf( "Created input task\n" );
DAQmxErrorCheck ( DAQmxBaseCreateAIVoltageChan( inputTaskHandle, inputChannelList, "", DAQmx_Val_RSE, inputVoltageRangeMinimum, inputVoltageRangeMaximum, DAQmx_Val_Volts, NULL ) );
printf( "Created AI Voltage Chan\n" );
DAQmxErrorCheck ( DAQmxBaseCfgSampClkTiming( inputTaskHandle, clockSource, sampleRate, DAQmx_Val_Rising, DAQmx_Val_ContSamps, samplesPerChannel ) );
printf( "Set sample rate\n" );
// ------------------- configure output task -----------------------
DAQmxErrorCheck ( DAQmxBaseCreateTask( "", &outputTaskHandle ) );
printf( "Created output task\n" );
DAQmxErrorCheck ( DAQmxBaseCreateAOVoltageChan( outputTaskHandle, outputChannelList, "", outputVoltageRangeMinimum, outputVoltageRangeMaximum, DAQmx_Val_Volts, NULL ) );
printf( "Created AO Voltage Chan OK\n" );
DAQmxErrorCheck ( DAQmxBaseCfgSampClkTiming( outputTaskHandle, clockSource, sampleRate, DAQmx_Val_Rising, DAQmx_Val_ContSamps, samplesPerChannel ) );
printf( "Set sample rate\n" );
// trigger output when input starts
DAQmxErrorCheck ( DAQmxBaseCfgDigEdgeStartTrig( outputTaskHandle, outputTrigger, DAQmx_Val_Rising ) );
printf( "Set output trigger\n" );
// ------------------- configuration -----------------------
// write output signal
DAQmxErrorCheck ( DAQmxBaseWriteAnalogF64( outputTaskHandle, pointsToWrite, 0, timeout, DAQmx_Val_GroupByScanNumber, outputData, &pointsWritten, NULL ) );
printf( "Write output signal\n" );
// set up input buffer
DAQmxErrorCheck ( DAQmxBaseCfgInputBuffer( inputTaskHandle, 200000 ) ); // use a 100,000 sample DMA buffer
// initiate acquisition - must start output task first
DAQmxErrorCheck ( DAQmxBaseStartTask( outputTaskHandle ) );
DAQmxErrorCheck ( DAQmxBaseStartTask( inputTaskHandle ) );
// The loop will quit after 10 seconds
Dr John Clements
Lead Programmer
AxoGraph ScientificHi Michael,
First of all, thanks very much for taking the time to investigate this problem! Much appreciated.
You asked for "an actual error code you got and any description that is given". The full output from the program that I posted earlier in this thread is appended to the end of this message. In summary, following the call to...
DAQmxErrorCheck ( DAQmxBaseCfgDigEdgeStartTrig( outputTaskHandle, outputTrigger, DAQmx_Val_Rising ) );
... with ...
char outputTrigger[] = "Dev1/ai/StartTrigger";
...the error message is ...
DAQmxBase Error: Specified route cannot be satisfied, because the hardware does not support it.
You asked "specifically which M series device you are using"? It is the PCIe 6251 (with BNC 2111 connector block). I'm testing and developing on an Intel Mac Pro (dual boot OS X and Windows XP).
You asked for "the location you pulled the code from". Here it is...
http://zone.ni.com/devzone/cda/epd/p/id/879
...specifically from the file "Multi-Function-Synch AI-AO_Fn.c".
I adapted the NI-DAQmx calls to their NI-DAQmx Base equivalents.
Finally, you asked "Is the trigger necessary, or do you just need to know that the measurements are running on the same clock?". I believe that some kind of sychronized trigger is necessary in my situation (correct me if I'm wrong). Timing is crucial. Say I initiate an analog output stream that delivers a voltage command step 5 ms from the onset. I need to record the response (analog input stream) so that its onset is accurately aligned (synchronized) at 5 ms. A typical recording situation would stimulate and record a short data 'sweep', then wait for the (biological) system to recover, then stimulate and record another short sweep, and repeat. I need all the recorded sweeps to align accurately so that they can be averaged and analyzed conveniently.
I definitely do not want my customers to rely on an expensive external TTL pulse generator to initiate and synchronize each 'sweep'. That would effectively eliminate the cost advantage of an NI board, as well as adding unnecessary complexity in setup and use. It would be a show-stopper for me.
It seems perverse, but would it be possible to use a digital output channel connected directly to a digital input chanel to trigger the input and output streams?
Regards,
John.
Full output from test program. Compiled with gcc 4 under OS X...
[Session started at 2007-05-23 14:17:01 +1000.]
LoadRuntime: MainBundle
CFBundle 0x303cc0 (executable, loaded)
_CompatibleWithLabVIEWVersion: linkedAgainst: 08208002
_CompatibleWithLabVIEWVersion: result= false, mgErr= 1, theActualVersion= 00000000
_CompatibleWithLabVIEWVersion: linkedAgainst: deadbeef
_CompatibleWithLabVIEWVersion: Reseting Linked Against
_CompatibleWithLabVIEWVersion: linkedAgainst: 08208002
_CompatibleWithLabVIEWVersion: result= true, mgErr= 0, theActualVersion= 00000000
_CompatibleWithLabVIEWVersion: linkedAgainst: 08208002
_CompatibleWithLabVIEWVersion: result= true, mgErr= 0, theActualVersion= 00000000
com.ni.LabVIEW.dll.nidaqmxbaselv
CFBundle 0x313760 (framework, loaded)
{type = 15, string = file://localhost/Library/Frameworks/nidaqmxbaselv.framework/, base = (null)}
Amethyst:Library:Frameworks:nidaqmxbaselv.framework
2007-05-23 14:17:02.248 test-ni[4445] CFLog (21): Error loading /Library/Frameworks/LabVIEW 8.2 Runtime.framework/resource/nitaglv.framework/nitaglv: error code 4, error number 0 (no suitable image found. Did find:
/Library/Frameworks/LabVIEW 8.2 Runtime.framework/resource/nitaglv.framework/nitaglv: mach-o, but wrong architecture)
CFBundle 0x1751fdc0 (framework, not loaded)
Created input task
Created AI Voltage Chan
Set sample rate
Created output task
Created AO Voltage Chan OK
Set sample rate
DAQmxBase Error: Specified route cannot be satisfied, because the hardware does not support it.
test-ni has exited with status 0.
Dr John Clements
Lead Programmer
AxoGraph Scientific
Maybe you are looking for
-
Issue with images and AP div layers
Im a bit of a noobie. but i have a problem with this website im working on. I have a table with an image in it serving as a background for some text i wish to put into it. I use an AP Div layer to put in the text on top of the image. Of course when i
-
Data Source created by Infoset based in two joined tables
Hi Forum, I want to do a segmentation in the Segment Builder based in a attribute list. The tablas i join are: BUT000 and ADRC. Everything is ok when the infoset is created and generated. Well, the next step i do is create the DATA SOURCE. When i edi
-
Hi, does anyone has the joboptions for pdf/x-4:2010 specs for indesign cc 2014 (win 7 64b). I noticed they are out, but on my indesign I stiil ahve the 2008 joboptions (in the default preset) thnks
-
RSM_INFOCUBE_WRITE_CHECK
Hi All, There was an issue(Short dump), it might be due to the program error, during the rebuild or persistent staging area (PSA) process of a request from the PSA to an InfoCube, a dump occurs with MESSAGE_TYPE_X in "SAPLRSMDATASTATE" in the in
-
Essbase UDAs with Financial Reporting
Hi All, I am suggesting client to use Reports with Essbase and the application is built with extensive use of UDAs. My question was whether Reports can be easily designed using UDAs on Financial Reporting. THanx in Advance Cheers