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
- DevOps Certified Professionals (DCP)
- Site Reliability Engineering Certified Professionals (SRECP)
- Master in DevOps Engineering (MDE)
- DevSecOps Certified Professionals (DSOCP)
URL - https://www.devopsschool.com/certification/
My Linkedin - https://www.linkedin.com/in/rajeshkumarin
- Best AI tools for Software Engineers - November 4, 2024
- Installing Jupyter: Get up and running on your computer - November 2, 2024
- An Introduction of SymOps by SymOps.com - October 30, 2024
