Set o = CreateObject("WScript.Shell")
o.AppActivate(10644)
WScript.Sleep 3000

' Ctrl+F to open search
o.SendKeys "^f"
WScript.Sleep 2000

' Send Enter to focus the search bar
o.SendKeys "{ENTER}"
WScript.Sleep 1000

' Copy group name to clipboard first
Set c = CreateObject("Clipboard")
' Can't set clipboard in VBS, try pinyin
o.SendKeys "huafengwaikujiliang"
WScript.Sleep 2000
o.SendKeys "{ENTER}"
WScript.Sleep 2000
o.SendKeys "{ENTER}"
WScript.Quit