code:

---

 $profile_remove = "YES" ; -- Profiles other than @USERID, like OEM User, MS Exchange Settings, etc. removed
 $deleteitems = "Yes" ; -- Do you want your users to delete all deleted items on Exit from Outlook?

 IF (@inwin = 1) ; -- Is it Winnt or 2K?
       ; -- Windows NT Registry Locations
       $profilelocation = "HKCU\Software\Microsoft\Windows NT\CurrentVersion\Windows Messaging Subsystem\Profiles"
       $windir = READVALUE("HKLM\Software\Microsoft\Windows NT\CurrentVersion","SystemRoot")
 ELSE
       ; -- Windows 9x Registry Locations
       $profilelocation = "HKCU\Software\Microsoft\Windows Messaging Subsystem\Profiles"
       $windir = READVALUE("HKLM\Software\Microsoft\Windows\CurrentVersion","SystemRoot")
 ENDIF

 IF $profile_remove = "YES"
       ; -- If it does not exist, delete out any odd-ball Profiles
       ; -- Like OEM user, etc.
       $index = 0
:loop3
       $keyname = ENUMKEY($profilelocation, $index)
       IF @error = 0
             ;? "Name found: $KeyName" ; -- Uncomment for debugging
             ; -- Going to check for @userid
             IF $keyname <> @userid
                   $rc = DELTREE($profilelocation+"\"+$keyname)
                   ;$RC = DELKEY($ProfileLocation, $KeyName)
                   $index = $index + 1
                   GOTO Loop3
             ENDIF
       ENDIF
 ENDIF

---

code:

---

$keyname = ENUMKEY($profilelocation, $index)

---

code:

---

$keyname = ENUMKEY( $profilelocation , $index )

---

code:

---

?@userid

---

quote:

---

Windows Registry Editor Version 5.00

[HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\Windows Messaging Subsystem\Profiles]
"DefaultProfile"="KDyer"

[HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\Windows Messaging Subsystem\Profiles\kdyer]

[HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\Windows Messaging Subsystem\Profiles\kdyer\05e2e5caf642f7408f95d6b1e168f6fd]
"001e300a"="contab.dll"
"001e3d13"="{6485D266-C2AC-11D1-AD3E-10A0C911C9C0}"
"00033e03"=hex:23,00,00,00
...

---

code:

---

break on cls
?"Current Kix version Shows: " + @kix
?"My @@userid is: " + TRIM(@userid)
?"@@inwin is: " + @inwin
$profile_remove = "YES" ; -- Profiles other than @USERID, like OEM User, MS Exchange Settings, etc. removed

 IF @inwin = 1 ; -- Is it Winnt or 2K?
       ; -- Windows NT Registry Locations
       $profilelocation = "HKCU\Software\Microsoft\Windows NT\CurrentVersion\Windows Messaging Subsystem\Profiles"
 ELSE
       ; -- Windows 9x Registry Locations
       $profilelocation = "HKCU\Software\Microsoft\Windows Messaging Subsystem\Profiles"
 ENDIF

 IF $profile_remove = "YES"
       ; -- If it does not exist, delete out any odd-ball Profiles
       ; -- Like OEM user, etc.
       $index = 0
       :loop3
       $keyname = ENUMKEY($profilelocation, $index)
       IF @error = 0
             ;? "Name found: $KeyName" ; -- Uncomment for debugging
             ; -- Going to check for @userid
             ;IF $keyname <> TRIM(@userid)
                   ;$rc = DELTREE($profilelocation+"\"+$keyname)
                   ;$RC = DELKEY($ProfileLocation, $KeyName)
                   ?"key"+$index+": "+$keyname
                   $index = $index + 1
                   GOTO Loop3
             ;ENDIF
       ENDIF
 ENDIF

---

quote:

---

Current Kix version Shows: 4.10
My @userid is: KDyer
@inwin is: 1
key0: kdyer

---

quote:

---

Current Kix version Shows: 4.10
My @userid is: KDyer
@inwin is: 1
key0: kdyer
key1: ktest

---

quote:

---

key0: cbeggs - obviously @userid
key1: Chris Beggs - looks like @fullname
key2: wacir - ???

---

code:

---

             IF INGROUP("LOANSUB")
                   CLS
                   COLOR r+/n
                   ?"*******"
                   ?"Creating the LoanSubmission and BrokerDemand Mailboxes"
                   ?"*******"
                   ?"STARTING OUTLOOK - ONE MOMENT PLEASE."
                   ?"*******"
                   COLOR w+/n
                   SLEEP 2
                   RUN($exe) ; -- Start Outlook
                   SLEEP 1
                   RUN(@ldrive+"Programs\Meritage\emeritage.exe") ; -- Start AutoIT Script to add additional Inboxes to Outlook
             ENDIF

---

code:

---

AdlibOn
;RegRead, TestKey, REG_SZ, HKEY_LOCAL_MACHINE, SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\App Paths\\OUTLOOK.EXE,  
;Run, %TestKey%
SetTitleMatchMode, 2
;IfWinActive, Choose Profile, Profile &Name, Send, {ENTER}
;Sleep, 10000
WinActivate, Microsoft Outlook
WinWaitActive, Microsoft Outlook
Send, {F10}{RIGHT 4}{DOWN}v+{TAB}m
WinWaitActive, Services
Send, {TAB 4}{ENTER}
WinWaitActive, Microsoft Exchange Server
Send, +{TAB}{RIGHT}{TAB 2}{ENTER}
WinWaitActive, Add Mailbox
Send, brokerdemand{ENTER 2}
WinWaitActive, Add Mailbox
Send, loansubmi{s 2}ion{ENTER}
WinWaitActive, Microsoft Exchange Server
Send, +{TAB 6}{ENTER}
WinWaitActive, Services
Send, {ESC}
Exit

---