Decode an ORA file

This will decode an ORA file and send it out in CSV format.  Not completed, but it works sending it to the screen #include Global $sFileRead Read_TNS_File("TNSNAMES.ORA") Func Read_TNS_File($ThisFilename) Local $hFileOpen = FileOpen($ThisFilename, $FO_READ) If $hFileOpen = -1 Then MsgBox($MB_SYSTEMMODAL, "", "An error occurred when reading the file.") Return False EndIf Local $sFileRead = FileRead($hFileOpen) $sFileRead … Continue reading Decode an ORA file

Add and Remove from collection using Excel VBA

This is crude and unfinished but I wanted to post it ASAP so I don't lose it.   [Excel VBA code] Option Explicit Sub ConnectWMIServer() ' version ' Author Roger 7/19/2017 Const wbemFlagReturnImmediately = &H10 Const wbemFlagForwardOnly = &H20 Dim objWMIService, StrQuery, ColItems, objItem Dim objSmsNewRule, objSMS_Collection Dim ComputerName: ComputerName = "XX6761" Dim CollectionID: … Continue reading Add and Remove from collection using Excel VBA