[英]Powershell - Exporting data from powershell into a csv file using custom objects
[英]Exporting data from Avaya using Powershell
我在 Access 數據庫(32 位)中有一個宏,用於從 Avaya CMS 下載數據,但由於一些軟件更改,我不能再使用它了。 我考慮使用 Powershell(在 32 位模式下運行)來獲取所需的數據,但無論出於何種原因它都不起作用......
Access 數據庫中的宏過去看起來像這樣:
Option Compare Database
Option Explicit
Dim cvsApp As cvsApplication
Dim cvsCon As cvsConnection
Dim cvsSrv As cvsServer
Dim cvsacd As cvsacd
Dim cvsCatalog As cvsCatalog
Dim cvsRpt As cvsReport
Dim b As Object
Dim Info As Object
Global Const myAppName As String = "CMS Agent Data"
Global Const myPath As String = "\\Data\Avaya\TempFiles\"
Sub AvayaLogin()
Set cvsApp = CreateObject("acsup.cvsApplication")
If cvsApp.CreateServer("login", "password", "", "server", False, "ENU", cvsSrv, cvsCon) Then
If cvsCon.Login("login", "password", "server", "ENU") Then
End If
End If
End Sub
Sub AvayaLogout()
On Error Resume Next
'Closes out all Avaya
cvsCon.Logout
cvsCon.Disconnect
Set cvsSrv = Nothing
Set cvsCon = Nothing
Set cvsApp = Nothing
End Sub
Sub AbnCallsData()
On Error Resume Next
Dim MyStartDate, MyStartTime(4), MyStopDate, MyStopTime(4), LastUpdateDate, LastUpdateTime, TimeZoneCounter As Integer, NNow, CNow
Dim TEXT1 As String
Dim FSO
Const TimeZone = 4
'Mop up previous days with this query
LastUpdateDate = DMin("Date", "SQL_LastUpdate")
LastUpdateTime = DMin("Time", "SQL_LastUpdate")
If LastUpdateDate = Date Then
LastUpdateDate = DMax("Date", "SQL_LastUpdate")
LastUpdateTime = DMax("Time", "SQL_LastUpdate")
End If
NNow = Format(Now(), "yyyy/mm/dd hh:nn:ss")
MyStartDate = LastUpdateDate
MyStartTime(1) = "00:00:00"
MyStopTime(1) = "10:00:00"
MyStartTime(2) = "10:00:00"
MyStopTime(2) = "12:00:00"
MyStartTime(3) = "12:00:00"
MyStopTime(3) = "15:00:00"
MyStartTime(4) = "15:00:00"
MyStopTime(4) = "23:59:59"
DoCmd.OpenForm "FrmPleaseWait"
'Forms!FrmUpdatecms.Visible = False
DoCmd.RepaintObject acForm, "FrmPleaseWait"
Do Until MyStartDate = Date + 1
MyStopDate = MyStartDate
For TimeZoneCounter = 1 To TimeZone
If LastUpdateDate = Date And Format(LastUpdateTime, "hh:mm:ss") > MyStopTime(TimeZoneCounter) Then
'Skip first few time zones if applicable
Else
CNow = Format(MyStartDate, "yyyy/mm/dd") & " " & MyStartTime(TimeZoneCounter)
'End if after last time zone
If NNow < CNow Then
cvsRpt.Quit
Exit For
End If
If LastUpdateDate = Date And Format(LastUpdateTime, "hh:mm:ss") >= MyStartTime(TimeZoneCounter) And Format(LastUpdateTime, "hh:mm:ss") <= MyStopTime(TimeZoneCounter) Then
' Go back 30 minutes from latest record for same day
MyStartTime(TimeZoneCounter) = (Format(LastUpdateTime - 1 / 48, "hh:mm:ss"))
End If
cvsSrv.Reports.ACD = "1"
Set cvsCatalog = cvsSrv.Reports
'OPENS THE AVAYA REPORT FOR CALL RECORDS
Set cvsRpt = New cvsReport
'cvsCatalog.CreateReport cvsCatalog.Reports.Item("Historical\Other\Call Records"), cvsRpt
Set Info = cvsSrv.Reports.Reports("Historical\Designer\Call Records SL")
b = cvsSrv.Reports.CreateReport(Info, cvsRpt)
'INPUTS THE REPORT CRITERIA
'STARTDATE
If cvsRpt.SetProperty("Start Date", MyStartDate) Then
Else
End If
'STARTTIME
If cvsRpt.SetProperty("Start Time", MyStartTime(TimeZoneCounter)) Then
Else
End If
'STOP DATE
If cvsRpt.SetProperty("Stop Date", MyStopDate) Then
Else
End If
'STOP TIME
If cvsRpt.SetProperty("Stop Time", MyStopTime(TimeZoneCounter)) Then
Else
End If
'Exports the Avaya report
cvsRpt.FastLoad = True
cvsRpt.ExportData myPath & "CallRecords" & ".CSV", 44, 0, True, True, True
'Copy to SQL Server Box
Set FSO = CreateObject("Scripting.FileSystemObject")
If (FSO.FileExists(TSQLPath & "CallRecords" & ".CSV")) Then FSO.DeleteFile (TSQLPath & "CallRecords" & ".CSV")
If (FSO.FileExists(myPath & "CallRecords" & ".CSV")) Then FSO.CopyFile myPath & "CallRecords" & ".CSV", TSQLPath & "CallRecords" & ".CSV"
'Update Data in TSQl Server
Call Update_SQL1
If (FSO.FileExists(TSQLPath & "CallRecords" & ".CSV")) Then FSO.DeleteFile (TSQLPath & "CallRecords" & ".CSV")
cvsRpt.Quit
End If
Next TimeZoneCounter
MyStartDate = MyStartDate + 1
Loop
DoCmd.Close acForm, "FrmPleasewait"
Call Update_SQL2
Call AvayaLogout
End Sub
我在 Powershell 中把它變成了這樣的東西:
$cvsApp = New-Object -ComObject "ACSUP.cvsApplication"
$cvsCon = New-Object -ComObject "ACSCN.cvsConnection"
$cvsSrv = New-Object -ComObject "ACSUPSRV.cvsServer"
$Rep = New-Object -ComObject "ACSREP.cvsReport"
function Get-CallRecordDates {
some sql queries to get the dates I need to run it for
}
$dates = Get-CallRecordDates
$cvsCon.bAutoRetry = $true
$cvsApp.CreateServer("", "", "", "", $False, "ENU", [ref] $cvsSrv, [ref] $cvsCon) #Thank you HAL9256
$cvsCon.Login("", "", "", "ENU")
$cvsSrv.Reports.ACD = "1"
for($i=0; $i -lt $dates.Table.Rows.Count; $i++)
{
$maindate = Get-Date "$(Get-Date $dates.Table.Rows.Item($i).Date -Format 'dd/MM/yyyy') $(Get-Date $dates.Table.Rows.Item($i).Time -Format 'HH:mm')"
if($dates.Item($i).Commentary -eq "Last"){
$startdatetime = $maindate.AddHours(-2)
$enddatetime = Get-Date
}else{
$startdatetime = $maindate.AddHours(-1)
$enddatetime = $maindate.AddHours(1)
}
$startdate = Get-Date $startdatetime -Format "dd/MM/yyyy"
$starttime = Get-Date $startdatetime -Format "HH:mm"
$enddate = Get-Date $enddatetime -Format "dd/MM/yyyy"
$endtime = Get-Date $enddatetime -Format "HH:mm"
$Info = $cvsSrv.Reports.Reports("Historical\Designer\Call Records SL")
If($cvsSrv.Reports.CreateReport($Info,$Rep)){
$Rep.TimeZone = "default"
$Rep.SetProperty("Start Date",$startdate)
$Rep.SetProperty("Start Time",$starttime)
$Rep.SetProperty("Stop Date",$enddate)
$Rep.SetProperty("Stop Time",$endtime)
$Rep.FastLoad = $True
$Rep.ExportData("C:\Users\me\Desktop\CallRecords$($i).csv", 44, 0, $True, $True, $True)
}
$dates = Get-CallRecordDates
}
$Rep.Quit()
$cvsCon.Logout()
$cvsCon.Disconnect()
object $cvsSrv 根本看不到連接。 它在 $cvsSrv.Reports.ACD = "1" 行失敗,說“在此 object 上找不到屬性 'ACD'。驗證該屬性是否存在並且可以設置。” 腳本使用 $cvsSrv 的任何行都只會返回錯誤。
我試着在網上尋找,但我覺得我是地球上唯一一個試圖嫁給 Avaya 和 Powershell 的人......
任何幫助將不勝感激。
該消息暗示$csvSrv
從未被分配任何值
當您創建 COM 對象時,它們是空的。 當您調用 function 並將變量作為參數傳遞給它時,您必須通過引用傳遞變量,以便 function 獲取 object 並填充它。 IE
$cvsApp = New-Object -ComObject "ACSUP.cvsApplication"
$cvsCon = New-Object -ComObject "ACSCN.cvsConnection"
$cvsSrv = New-Object -ComObject "ACSUPSRV.cvsServer"
$Rep = New-Object -ComObject "ACSREP.cvsReport"
...
$cvsApp.CreateServer("login", "password", "", "server", $False, "ENU", [ref] $cvsSrv, [ref] $cvsCon)
同樣,(來自評論)你將不得不對$Rep
object 做同樣的事情:
...
$Info = $cvsSrv.Reports.Reports("Historical\Designer\Call Records SL")
...
If($cvsSrv.Reports.CreateReport($Info, [ref] $Rep)){
$Rep.TimeZone = "default"
...
請注意,在這種情況下,您沒有通過引用傳遞$Info
。 這是因為您直接將 function 的返回值分配給$Info
變量。 但是對於$Rep
,因為它是作為參數傳遞的,所以您必須通過[ref]
傳遞它才能使用它。
經過多次嘗試和錯誤,我無法讓它發揮作用,所以我放棄並嘗試了不同的方法。 這是我運行以使用 PowerShell 將數據從 Avaya 上傳到 SQL 服務器的整個腳本:
if(Get-Module -ListAvailable -Name SqlServer) {} else {Install-Module -Name SqlServer -AllowClobber -Confirm:$False -Force} #installs SqlServer module if not installed
function Get-CallRecordDates {
Invoke-Sqlcmd -Query “SELECT [Date],[Time],[Commentary] FROM [CallRecords].[dbo].[ForSQLload] order by [Date],[Time]” -ServerInstance "myserver"
}
$dates = @(Get-CallRecordDates)
#declare where the csv files will be saved
$csv = "G:\SQLDataLoad\Avaya"
#declare where the .acsauto file will be saved
$acsauto = "G:\SQLDataLoad\Avaya\CallRecordsJS.acsauto"
#These will format the acsauto file just right
$blockstart = "'LANGUAGE=ENU
'SERVERNAME=AvayaServerAddress
Public Sub Main()
On Error Resume Next
cvsSrv.Reports.ACD = 1
Set Info = cvsSrv.Reports.Reports(`"Historical\Designer\Call Records SL`")
If Info Is not Nothing Then
"
$blockend = "If Not cvsSrv.Interactive Then cvsSrv.ActiveTasks.Remove Rep.TaskID
Set Rep = Nothing
End If
Set Info = Nothing
End Sub"
#Start creating the content for acsauto file
$contentacsauto = $blockstart
#looping through the missing records. If there are none, it will only download the latest data.
for($i=0; $i -lt $dates.Count; $i++)
{
$maindate = Get-Date "$(Get-Date $dates.Item($i).Date -Format 'dd/MM/yyyy') $(Get-Date $dates.Item($i).Time -Format 'HH:mm')"
if($dates.Item($i).Commentary -eq "Last"){
$startdatetime = $maindate.AddHours(-3)
$enddatetime = Get-Date
Write-Host "Adding time range to the script; from $startdatetime to $enddatetime `nIt will be exported to $csv\CallRecords-$i.csv`nTime is $(Get-Date) now."
}else{
$startdatetime = $maindate.AddHours(-1)
$enddatetime = $maindate.AddHours(1)
Write-Host "Adding time range to the script as some CallID is missing in that period; from $startdatetime to $enddatetime `nIt will be exported to $csv\CallRecords-$i.csv"
}
#formating the dates and times for the parameters
$startdate = Get-Date $startdatetime -Format "dd/MM/yyyy"
$starttime = Get-Date $startdatetime -Format "HH:mm"
$enddate = Get-Date $enddatetime -Format "dd/MM/yyyy"
$endtime = Get-Date $enddatetime -Format "HH:mm"
$MiddleBlock = "
If cvsSrv.Reports.CreateReport(Info,Rep) Then
Rep.TimeZone = `"default`"
Rep.SetProperty `"Start Date`",`"$startdate`"
Rep.SetProperty `"Start Time`",`"$starttime`"
Rep.SetProperty `"Stop Date`",`"$enddate`"
Rep.SetProperty `"Stop Time`",`"$endtime`"
b = Rep.ExportData(`"$csv\CallRecords-$i.csv`", 44, 0, True, True, True)
Rep.Quit
End If
"
$contentacsauto = $contentacsauto + $MiddleBlock
}
$contentacsauto = $contentacsauto + $blockend
$contentacsauto | Out-File $acsauto -Encoding ascii
& $acsauto
$stop = (Get-Date).AddMinutes(10)
while (((Get-ChildItem $csv -Filter "CallRecord*.csv").Count -lt $i) -and ($(Get-Date) -lt $stop)) {Start-Sleep -Seconds 2}
if($(Get-Date) -ge $stop) {
Write-Host "This thing timed out as it took longer than 10 minutes to export, at $(Get-Date)"
Get-Process "acs*" | Stop-Process -PassThru | Out-Null}
else{
Write-Host "Saved $((Get-ChildItem $csv -Filter "CallRecord*.csv").Count) file(s) at $(Get-Date)"
Start-Sleep -Seconds 2
$csvfiles = Get-ChildItem $csv -Filter "CallRecord*.csv"
$callrecords = Import-Csv -Path $csvfiles | Sort-Object 'Call ID','Segment' -Unique
Remove-Item $csvfiles -Force | Out-Null
Invoke-Sqlcmd -Query "delete from CallRecords.dbo.TempCallDataTemp" -ServerInstance "myserver"
Write-SqlTableData -InputData $callrecords -ServerInstance "myserver" -DatabaseName "CallRecords" -SchemaName "dbo" -TableName "TempCallDataTemp" -force
}
基本上,我創建了一個“CallRecords.acsauto”文件,然后運行該文件,等待所有文件准備好(檢查一下,以防它凍結 10 分鍾將其關閉),導入它們並上傳到 sql 服務器。 然后我調用一堆 sql 命令對其進行格式化並將其復制到主表中。
下班后 - 這是有效的:
#APPLICATION
$cvsApp = New-Object -ComObject "ACSUP.cvsApplication"
$cvsApp.CreateServer( 'login' , 'pass' , '' , 'address' , $FALSE , 'ENU' , $NULL )
$cvsApp.Servers.Item( 1 ).Reports.ACD = 1
#REPORT
$cvsInfo = $cvsApp.Servers.Item( 1 ).Reports.Reports.Item('path\to\report\in\cms')
$cvsRep = $NULL
$cvsApp.Servers.Item( 1 ).Reports.CreateReport( [ref]$cvsInfo , [ref]$cvsRep )
$cvsRep.TimeZone = "default"
$cvsRep.SetProperty( "Date" , "2022-09-20" )
$cvsRep.ExportData( "C:\test.txt" , 124 , 0 , $TRUE , $FALSE , $TRUE )
#DESTROYERS
$cvsApp.Servers.Item( 1 ).ActiveTasks.Remove( $cvsRep.TaskID )
$cvsApp.Servers.Remove( $cvsApp.Servers.Item( 1 ).ServerKey )
[System.Runtime.Interopservices.Marshal]::ReleaseComObject( $cvsInfo )
Remove-Variable 'cvsInfo'
[System.Runtime.Interopservices.Marshal]::ReleaseComObject( $cvsRep )
Remove-Variable 'cvsRep'
[System.Runtime.Interopservices.Marshal]::ReleaseComObject( $cvsApp )
Remove-Variable 'cvsApp'
代碼可能更漂亮,但我想分享主要思想。 異常和錯誤處理程序也是受歡迎的。
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.