Dim objWshNet
Set objWshNet = CreateObject("Wscript.Network")
strServer = objWshNet.ComputerName
 
remote_machine_name = InputBox("Enter the name of the machine on which the" + _
    Chr(13) + "product is to be installed. Press enter for this machine.", _
    "Machine Name", strServer)
 
If remote_machine_name <> strServer Then
admin_user = InputBox("Enter the user name. " + Chr(13) + _
    "(User must have Administrative privileges.)")
admin_user_password = InputBox("Enter the users password. ")
End If
 
Set objLocator = CreateObject("WbemScripting.SWbemLocator")
 
If remote_machine_name = strServer Then
  Set objService = objLocator.ConnectServer(, "Root\DEFAULT")
Else
  Set objService = objLocator.ConnectServer(remote_machine_name, _
    "root\default", _
    admin_user, admin_user_password)
End If
 
'/ DAS IST DIE SCHLÜSSELZEILE
Set objRegistry = objService.Get("StdRegProv")
 
strPath = "Software\Microsoft\Windows\CurrentVersion\Uninstall\Programmname"
strValue = "Displayname"
 
objRegistry.GetStringValue 2147483650#, strPath, strValue, sResult
MsgBox "Computer Name from Registry Retrieved Remotely: " & sResult
 
Set objRegistry = Nothing