installanywhereExpert created the topic: How to Set the Preferrence for AOL Through Wise Script
The setting preference is stored under
HKEY_CURRENT_USER\Software\America Online\AOL Instant Messenger (TM)\CurrentVersion\Users

If you want to apply certain settings for all the screennames (username), we need to write a wise script executable that should pick all the screennames available in the machine and apply the settings…

Better way is to create the script executable with the above logic and create it as shortcut.

Step 1: The User has to launch AOL once in order to get the registry key created with the screen name
HKEY_CURRENT_USER\Software\America Online\AOL Instant Messenger (TM)\CurrentVersion\Users\TESTID
HKEY_CURRENT_USER\Software\America Online\AOL Instant Messenger (TM)\CurrentVersion\Users\HELLO

TESTID and HELLO being the screenname

Step 2: User has to run the shortcut that we have created to get the settings.

Example: One of the settings will be applied as:’
[HKEY_CURRENT_USER\Software\America Online\AOL Instant Messenger (TM)\CurrentVersion\Users\TESTID\AWAY]
“EnableIdleAutoResponse”=dword:00000000
“IdleAutoResponseText”=”I am away from my computer rightnow.”
“DisableAwayAutoResponse”=dword:00000000
“HideIMsWhenAway”=dword:00000000
“DisableSoundWhenAway”=dword:00000000
“DisableToastersWhenAway”=dword:00000000
“MessageWhileAway”=dword:00000000

Vbscript to grab all the screennames in the machine:

Dim objFSO, objFolder, objShell, objTextFile, objFile
Dim strDirectory, strFile, strText
strDirectory = “c:\working\aol”
strFile = “\AOLInstall.txt”

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

strComputer = “.”

Set objRegistry = GetObject(“winmgmts:\\” & strComputer & “\root\default:StdRegProv”)
Set objFSO = CreateObject(“Scripting.FileSystemObject”)
set objFile = nothing
set objFolder = nothing
Const ForAppending = 8

strKeyPath = “Software\America Online\AOL Instant Messenger (TM)\CurrentVersion\Users”
objRegistry.EnumValues HKEY_CURRENT_USER, strKeyPath, arrValueNames, arrValueTypes

For i = 0 to UBound(arrValueNames)
strText = arrValueNames(i)
strValueName = arrValueNames(i)
Select Case arrValueTypes(i)
Case REG_SZ
objRegistry.GetStringValue HKEY_CURRENT_USER,strKeyPath, strValueName,strValue
strText = strText & “: ” & strValue
End Select

Wscript.Echo strValue
Set objTextFile = objFSO.OpenTextFile _
(strDirectory & strFile, ForAppending, True)

objTextFile.WriteLine(strvalue)
objTextFile.Close
Next

Reference: www.symantec.com/connect/articles/how-se…-through-wise-script

Rajesh Kumar

I’m a DevOps/SRE/DevSecOps/Cloud Expert passionate about sharing knowledge and experiences. I have worked at Cotocus. I share tech blog at DevOps School, travel stories at Holiday Landmark, stock market tips at Stocks Mantra, health and fitness guidance at My Medic Plus, product reviews at TrueReviewNow , and SEO strategies at Wizbrand.

Do you want to learn Quantum Computing?

Please find my social handles as below;

Rajesh Kumar Personal Website
Rajesh Kumar at YOUTUBE
Rajesh Kumar at INSTAGRAM
Rajesh Kumar at X
Rajesh Kumar at FACEBOOK
Rajesh Kumar at LINKEDIN
Rajesh Kumar at WIZBRAND