strComputer = "Client oder Server"
strNamespace = "root\cimv2"
strUser = "ADMIN"
strPassword = "ADMIN-PW"
 
Set objWbemLocator = CreateObject("WbemScripting.SWbemLocator")
Set objWMIService = objwbemLocator.ConnectServer _
  (strComputer, strNamespace, strUser, strPassword)
objWMIService.Security_.authenticationLevel = WbemAuthenticationLevelPktPrivacy
 
Set colItems = objWMIService.ExecQuery _
  ("Select * From Win32_ComputerSystem")
For Each objItem in ColItems
  Wscript.Echo strComputer & ": " & objItem.UserName
Next