ICQ Choose User

Choose your number using ICQ

'--- ICQ_ChooseUser.vbs by David Duret <dduret@hotmail.com>
'--- 20020128: Initial release
'--- Installation: create a shortcut on the desktop with the folowing command line
'---      WScript.exe "path/to/script/ICQ_ChooseUser.vbs" <ICQ_NUMBER>
Option Explicit
Const ICQ_FOLDER = "C:\Progra~1\ICQ\Icq.exe"
Dim WshShell
Set WshShell = WScript.CreateObject("WScript.Shell")
'--- Get ICQ number given in parameter
Dim objArgs
Set objArgs = WScript.Arguments
if ( objArgs.Count = 1 ) then
	'--- Write number in key LastOwner
	WshShell.RegWrite "HKCU\Software\Mirabilis\ICQ\Owners\LastOwner", objArgs(0), "REG_DWORD"
end if
'--- Run ICQ
WshShell.Run (ICQ_FOLDER)