This technical paper will help you implement VMware’s VM encryption as well as implement Veeam encryption which together will achieve the nothing ever in the clear goal. If a bad guy steals VMs, backups or traffic they get nothing.
Function fStDev(ParamArray sArg()) As Double
Dim j As Integer, cntFld As Integer, sumFld As Double
Dim sumAvg As Double, fAve As Double
If LBound(sArg) = UBound(sArg) Then
fStDev = 0
Exit Function
End If
For j = LBound(sArg) To UBound(sArg)
If sArg(j) & "" <> "" Then
cntFld = cntFld + 1
End If
sumFld = sumFld + Nz(sArg(j))
Next
fAve = sumFld / cntFld
For j = LBound(sArg) To UBound(sArg)
If sArg(j) & "" <> "" Then
sumAvg = sumAvg + (sArg(j) - fAve) ^ 2
End If
Next
fStDev = Sqr(sumAvg / (cntFld - 1))
End Function
Function fStDev(ParamArray sArg()) As Double
Dim j As Integer, cntFld As Integer, sumFld As Double
Dim sumAvg As Double, fAve As Double
If LBound(sArg) = UBound(sArg) Then
fStDev = 0
Exit Function
End If
For j = LBound(sArg) To UBound(sArg)
If sArg(j) & "" <> "" Then
cntFld = cntFld + 1
End If
sumFld = sumFld + Nz(sArg(j))
Next
fAve = sumFld / cntFld
For j = LBound(sArg) To UBound(sArg)
If sArg(j) & "" <> "" Then
sumAvg = sumAvg + (sArg(j) - fAve) ^ 2
End If
Next
MsgBox cntFld
If cntFld = 1 Then
fStDev = Null
Else
fStDev = Sqr(sumAvg / (cntFld - 1))
End If
End Function
Function fStDev(ParamArray sArg()) As Variant
Dim j As Integer, cntFld As Integer, sumFld As Double
Dim sumAvg As Double, fAve As Double
If LBound(sArg) = UBound(sArg) Then
fStDev = Null
Exit Function
End If
For j = LBound(sArg) To UBound(sArg)
If sArg(j) & "" <> "" Then
cntFld = cntFld + 1
End If
sumFld = sumFld + Nz(sArg(j))
Next
fAve = sumFld / cntFld
For j = LBound(sArg) To UBound(sArg)
If sArg(j) & "" <> "" Then
sumAvg = sumAvg + (sArg(j) - fAve) ^ 2
End If
Next
fStDev = CDbl(Sqr(sumAvg / (cntFld - 1)))
End Function
Function fStDev(ParamArray sArg()) As Variant
Dim j As Integer, cntFld As Integer, sumFld As Double
Dim sumAvg As Double, fAve As Double
For j = LBound(sArg) To UBound(sArg)
If sArg(j) & "" <> "" Then
cntFld = cntFld + 1
End If
sumFld = sumFld + Nz(sArg(j))
Next
If cntFld = 1 Then
fStDev = Null
Exit Function
End If
fAve = sumFld / cntFld
For j = LBound(sArg) To UBound(sArg)
If sArg(j) & "" <> "" Then
sumAvg = sumAvg + (sArg(j) - fAve) ^ 2
End If
Next
fStDev = CDbl(Sqr(sumAvg / (cntFld - 1)))
End Function
Sub createFlatTable(myTable As String, myVariable As String)
Dim rs As DAO.Recordset, j As Integer, i, sImpact As String, sFld
Dim rsMax As DAO.Recordset, rsNew As DAO.Recordset, maxImp
Dim rs1 As DAO.Recordset
Set rsMax = CurrentDb.OpenRecordset("select top 1 count([Date]) from " & myTable & _
" Where " & myVariable & " <>null group by [Date] order by count([Date]) desc")
maxImp = rsMax(0)
For i = 1 To maxImp
'sImpact = sImpact & "," & "Impact" & i & " Integer"
sImpact = sImpact & "," & myVariable & i & " Integer"
Next
sImpact = "[Date] DateTime" & sImpact
If DCount("*", "msysobjects", "[name]='T'") > 0 Then
CurrentDb.Execute "drop table T"
End If
CurrentDb.Execute "create table T(" & sImpact & ")"
Dim test As String
test = myVariable
Set rs = CurrentDb.OpenRecordset("select distinct [Date] from " & myTable)
Set rsNew = CurrentDb.OpenRecordset("T")
rs.MoveFirst
Do Until rs.EOF
Set rs1 = CurrentDb.OpenRecordset("select * from " & myTable & " where [Date]=#" & rs![Date] & "# and " & myVariable & " <>null ")
If Not rs1.EOF Then
rsNew.AddNew
rsNew![Date] = rs1![Date]
j = 1
Do Until rs1.EOF
If rs1!MyVariable & "" <> "" Then
'If rs1![MyVariable] & "" <> "" Then
'rsNew("Impact" & j) = rs1!Impact
rsNew(myVariable & j) = rs1!MyVariable
'rsNew(myVariable & j) = rs1![MyVariable]
j = j + 1
End If
rs1.MoveNext
Loop
rsNew.Update
End If
rs.MoveNext
Loop
rs.Close
rs1.Close
rsNew.Close
rsMax.Close
End Sub
Sub createFlatTable(myTable As String, myVariable As String)
Dim rs As DAO.Recordset, j As Integer, i, sImpact As String, sFld
Dim rsMax As DAO.Recordset, rsNew As DAO.Recordset, maxImp
Dim rs1 As DAO.Recordset
Set rsMax = CurrentDb.OpenRecordset("select top 1 count([Date]) from " & myTable & _
" Where " & myVariable & " <>null group by [Date] order by count([Date]) desc")
maxImp = rsMax(0)
For i = 1 To maxImp
'sImpact = sImpact & "," & "Impact" & i & " Integer"
sImpact = sImpact & "," & myVariable & i & " Integer"
Next
sImpact = "[Date] DateTime" & sImpact
If DCount("*", "msysobjects", "[name]='T'") > 0 Then
CurrentDb.Execute "drop table T"
End If
CurrentDb.Execute "create table T(" & sImpact & ")"
Dim test As String
test = myVariable
Set rs = CurrentDb.OpenRecordset("select distinct [Date] from " & myTable)
Set rsNew = CurrentDb.OpenRecordset("T")
rs.MoveFirst
Do Until rs.EOF
Set rs1 = CurrentDb.OpenRecordset("select * from " & myTable & " where [Date]=#" & rs![Date] & "# and " & myVariable & " <>null ")
If Not rs1.EOF Then
rsNew.AddNew
rsNew![Date] = rs1![Date]
j = 1
Do Until rs1.EOF
If rs1.Fields(myVariable) & "" <> "" Then
rsNew(myVariable & j) = rs1.Fields(myVariable)
j = j + 1
End If
rs1.MoveNext
Loop
rsNew.Update
End If
rs.MoveNext
Loop
rs.Close
rs1.Close
rsNew.Close
rsMax.Close
End Sub
then open table "T"
Database7.mdb