variable in getobject

[Hansz]

In the following source I want the Host Server1 replace by an inputbox variable. How do I do that???

for each Service in
GetObject("winmgmts:{impersonationLevel=impersonate}!//Server1").Instan
cesOf ("Win32_service")
WScript.Echo Service.DisplayName
Next


Thnx.....
HansZ