Here use this code...
paste it into notepad and save it as AcadInfo.vbs
' AcadInfo.vbs
'
' ------------------------------------------------------------------------
' Copyright (C) 2002-2004 BCI Computer Solutions
'
' This script is protected by copyright laws. You are granted the right to
' use this script only for the purposes of troubleshooting AutoCAD installations
' You may not copy, modify, reproduce or distribute this application
' (and/or any modified version) in any way. You agree that BCI Computer Solutions
' has no warranty, obligations or liability for the use of this Application.
' ------------------------------------------------------------------------
'
' This application will read the AutoCAD entries in the registry.
Dim CRLF
CRLF = Chr(13) & Chr(10)
L_Welcome_MsgBox_Message_Text = "This application will read and display AutoCAD installation information"
L_Welcome_MsgBox_Title_Text = "AutoCAD Registry Reader"
Call Welcome()
' ********************************************************************************
' *
' * Registry related methods.
' *
Dim WSHShell
Set WSHShell = WScript.CreateObject("WScript.Shell")
curver = WSHShell.RegRead ( "HKLM\Software\Autodesk\AutoCAD\curver")
locale = WSHShell.RegRead ( "HKLM\Software\Autodesk\AutoCAD\" & curver & "\curver")
serial = WSHShell.RegRead ( "HKLM\Software\Autodesk\AutoCAD\" & curver & "\" & locale & "\serialnumber")
cprofile = WSHShell.RegRead ( "HKCU\Software\Autodesk\AutoCAD\" & curver & "\" & locale & "\Profiles\")
MsgBox "Current Version: " & curver & CRLF & "Installation Code: " & locale & CRLF & "Serial Number: " & serial & CRLF & "Current
Profile: " & cprofile, vbInformation + vbOKOnly, "Installation Information"
' ******************
' *
' * Welcome
' *
Sub Welcome()
Dim intDoIt
intDoIt = MsgBox(L_Welcome_MsgBox_Message_Text, _
vbOKCancel + vbInformation, _
L_Welcome_MsgBox_Title_Text )
If intDoIt = vbCancel Then
WScript.Quit
End If
End Sub