Show total numbers of items for all folders

Author StringCat.com Sub EnumerateFoldersInStores() ‘ store is a pst file Dim App As New Outlook.Application Dim Stores As Outlook.Stores Dim Store As Outlook.Store Dim Root As Outlook.Folder On Error Resume Next ‘ all pst files shown by Outlook session Set Stores = App.Session.Stores ‘loop over folders in each pst file For Each Store In Stores…

Default Setup with Webmin Config #incomplete

sudo su echo “deb http://download.webmin.com/download/repository sarge contrib” | sudo tee -a /etc/apt/sources.list cd /rootwget http://www.webmin.com/jcameron-key.ascapt-key add jcameron-key.asc apt-get updateapt-get install openssh-server ntfs-3g hfsplus hfsutils samba samba-common-bin webmin winbind -yufw allow 22 net rpc join -UAdministrator%” # Samba Config# #======================= Global Settings ======================= [global] os level = 20 panic action = /usr/share/samba/panic-action %d log file = /var/log/samba/log.%m…

Process Automation

Main driver behind design continues to be automation of investment process.  (MAIN) Computer – High CPU applications ·         Data Analysis, Programming, Research (SERVER) Windows Server 2012 R2 – Offload low priority processes from MAIN ·         Networking (Azure, Active Directory) ·         Storage (file management, Backups, Cloud Sync, Indexing) ·         Virtual Machines (Hyper-V Host 240GB SSD) o   Windows…

Split XLSB Files Convert to CSV append modified date (Take #2)

# powershell script: 06-27-16## 1) gets list of all xlsb files in directory# 2) goes through each and saves worksheets as separate csv##If you want to search through subdirectories also, add ” -Recurse” before “| Foreach-Object”$scriptpath = “B:”#path to searchAdd-Type -AssemblyName Microsoft.Office.Interop.Excel$xlFixedFormat = [Microsoft.Office.Interop.Excel.XlFileFormat]::xlCSV#needed to lookup$excel = new-object -ComObject “Excel.Application”;$excel.DisplayAlerts=$false;$excel.Visible =$false; $csvloc = “b:csv”#output directory Get-ChildItem -LiteralPath b: -Filter *.xlsb | ForEach-Object {     $wb = $excel.Workbooks.Open($_.FullName)    $lastmod = $_.LastWriteTime.ToString(‘yyyy-MM-ddThh-mmss’)    $wbn = $wb.name      foreach($ws in $wb.Worksheets) {                                            $n = $lastmod + “_” + $wbn + “_” + $ws.Name            $ws.SaveAs($csvLoc + $n + “.csv”, $xlFixedFormat);       }     $wb.close($False)    #End file-specific code }     $excel.Quit();[void][System.Runtime.Interopservices.Marshal]::ReleaseComObject($excel);