How to Set the Preferrence for AOL Through Wise Script

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]
“IdleAutoResponseText”=”I am away from my computer rightnow.

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_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)
objRegistry.GetStringValue HKEY_CURRENT_USER,strKeyPath, strValueName,strValue
strText = strText & “: ” & strValue
End Select

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



Rajesh Kumar
Total Page Visits: 48 - Today Page Visits: 2