Option Explicit
Dim Text, KeyX, WSHShell
Set WSHShell = WScript.CreateObject("WScript.Shell")
KeyX = "HKCU\Software\Microsoft\Windows NT\CurrentVersion\Windows\Device"
Text = WshShell.RegRead( KeyX )
Text = Left ( Text, InStr( Text, ",")-1 )
MsgBox Text, , WScript.ScriptName
WScript.Quit