MikeSel

On Error Resume next
Const HKCU=&H80000001 'HKEY_CURRENT_USER
Const HKLM=&H80000002 'HKEY_LOCAL_MACHINE

Const REG_SZ=1
Const REG_EXPAND_SZ=2
Const REG_BINARY=3
Const REG_DWORD=4
Const REG_MULTI_SZ=7

MikeSel

On Error Resume next
Const HKCU=&H80000001 'HKEY_CURRENT_USER
Const HKLM=&H80000002 'HKEY_LOCAL_MACHINE
 
Const REG_SZ=1
Const REG_EXPAND_SZ=2
Const REG_BINARY=3
Const REG_DWORD=4
Const REG_MULTI_SZ=7
 

MikeSel

defaults write com.apple.Finder AppleShowAllFiles YES

MikeSel

Dim WithEvents olkFolder As Outlook.MAPIFolder 
Sub InitMonitoring()
  Set olkFolder = OpenOutlookFolder("Path to the folder to monitor")
End Sub

Function IsNothing(obj)
  If TypeName(obj) = "Nothing" Then
    IsNothing = True
  Else
    IsNothing = False

MikeSel

Private Function GetMonthName(ByVal monthNum As Integer) As String
  Try
    Dim strDate As New DateTime(1, monthNum, 1)
    Return strDate.ToString("MMM")
    Catch ex As Exception
  End Try
End Function

MikeSel

On Error Resume Next

Set objGroup = GetObject _
  ("LDAP://cn=<group>,ou=<nested OU>,ou=<OU Name>,dc=<domain>,dc=com")
objGroup.GetInfo
 
arrMemberOf = objGroup.GetEx("member")
 
WScript.Echo "Members:"
For Each strMember in arrMemberOf

MikeSel

Option Explicit
Dim pGenNum, newpass, passList, inFlag, pgLength, x, fso, ts, passLen
Const ForWriting = 2
passLen = 6
'Give inFlag (input Flag) an initial value to ensure we run once
inFlag = "Seed"
Do While inFlag <> pGenNum
pGenNum = InputBox("How many passwords would you like to create?" & vbCrLf & _
"Enter a Numeric Value" & vbCrLf & _
"Blank Entry Will Cancel Script","Enter Number of Passwords to Create")

MikeSel

Private Sub Application_Reminder(ByVal Item As Object)                  'Grab the outlook reminder fire event and force reminder window to front
        If Not (Application.ActiveWindow Is Nothing) Then               'If the ActiveWindow exists
            Dim myOutlook As Object                                     'Outlook application object declaration
            Set myOutlook = GetObject(, "Outlook.Application")          'Get the outlook application object
            If myOutlook.ActiveWindow.WindowState = olMinimized Then    'If outlook application minimized then
                Application.ActiveExplorer.Activate                     'Activate Outlook application window
            Else                                                        'If Outlook application not minimized then
                Application.ActiveExplorer.Activate                     'Activate Outlook application window
            End If

MikeSel

-- Apple Script to copy and rename a folder structure and its subfolders
-- Author Mike Hudson (aka MikeSel - https://www.mikesel.info)

tell application "Finder"
	
	set JobName to text returned of (display dialog "Please enter five digit code:" default answer "ST1234")
	set templateFolder to choose folder with prompt "Please Choose Template Folder"
	
	set fldName to name of templateFolder
	

MikeSel

--
tell application "Microsoft Lync"
    activate
end tell

tell application "System Events"
	tell process "Microsoft Lync"
		tell menu bar 1
			tell menu bar item "Status"
				tell menu "Status"