I also have some idea about the same and may be very helpful for you to get the prior information . It will configure the upload to 500 kB/s:
Code:
Dim objectShell
Set objectShell = CreateObject("WScript.Shell")
objectShell.Run Chr(34) & "C:\Program Files\utorrent.exe" & Chr(34),,False
WScript.Sleep 1000
objectShell.AppActivate "µTorrent 1.5"
WScript.Sleep 5
objectShell.SendKeys "%{o}"
WScript.Sleep 5
objectShell.SendKeys "{ENTER}"
WScript.Sleep 5
objectShell.SendKeys "+{TAB}"
WScript.Sleep 5
objectShell.SendKeys "+{TAB}"
WScript.Sleep 5
objectShell.SendKeys "+{TAB}"
WScript.Sleep 5
objectShell.SendKeys "{DOWN}{DOWN}{DOWN}"
WScript.Sleep 5
objectShell.SendKeys "{TAB}"
WScript.Sleep 5
objectShell.SendKeys "{TAB}"
WScript.Sleep 5
objectShell.SendKeys "{TAB}"
WScript.Sleep 5
objectShell.SendKeys "{TAB}"
WScript.Sleep 5
objectShell.SendKeys "{TAB}"
WScript.Sleep 5
objectShell.SendKeys "{TAB}"
WScript.Sleep 5
objectShell.SendKeys "{TAB}"
WScript.Sleep 5
objectShell.SendKeys "{TAB}"
WScript.Sleep 5
Bookmarks