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”=”
“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
I’m Rajesh Kumar, a DevOps, SRE, DevSecOps, Cloud, and Platform Engineering expert passionate about sharing practical knowledge, real-world experiences, and industry best practices. I have worked at Cotocus and regularly write about technology, travel, investing, health, product reviews, and digital marketing through my various platforms.
I publish technical articles at DevOps School, travel stories at Holiday Landmark, stock market insights at Stocks Mantra, health and fitness guidance at My Medic Plus, product reviews at TrueReviewNow, and SEO and digital marketing strategies at Wizbrand.
Find Trusted Cardiac Hospitals
Compare heart hospitals by city and services — all in one place.
Explore Hospitals
