oReg

I trying to get an object to the Registry, but I am getting an exception thrown from this piece of code: oReg = GetObject ( "winmgmts: root / default: StdRegProv")

ASP.NET Forums jeff00seattle 2008

As String 19 strValueName = arrValueNames (i) 20 MsgBox ( "Value Name:" & strValueName) 25 strVSRecentProject = strValueName 26 oReg.

ASP.NET Forums jeff00seattle 2008

Set oReg = GetObject ( "winmgmts: root / default: StdRegProv")

ASP.NET Forums jeff00seattle 2008

Option Explicit '' require reference to Microsoft Scripting Runtime Sub TestRegions () Dim oEnt As AcadEntity Dim oReg As AcadRegion Dim ftype (0) As Integer Dim fdata (0) As Variant Dim dxfCode, dxfValue Dim name As String Dim count As Integer On Error GoTo Err_Control Dim oSset As AcadSelectionSet With ThisDrawing.

All Discussion Groups: Message List - root 2010

Option Explicit '' require reference to Microsoft Scripting Runtime Sub TestRegions () Dim oEnt As AcadEntity Dim oReg As AcadRegion Dim ftype (0) As Integer Dim fdata (0) As Variant Dim dxfCode, dxfValue Dim name As String Dim count As Integer On Error GoTo Err_Control Dim oSset As AcadSelectionSet With ThisDrawing.

All Discussion Groups: Message List - root 2010

'' '' 'Function ProcessWithNoInitialLines (ssRegions As AcadSelectionSet) As Boolean On Error GoTo ErrorHandler Dim Pt (0 To 2) As Double Dim vPt As Variant Dim iFinalLineCount As Long Dim ptZero (0 To 2) As Double Dim oEnt As AcadEntity Dim oReg As AcadRegion Dim oReg2 As AcadRegion Dim oRegCopy As AcadRegion Dim ssFinalLines As AcadSelectionSet For Each oEnt In ssRegions If TypeOf oEnt Is AcadRegion Then Set oReg = oEnt oReg.

All Discussion Groups: Message List - root 2010

Option Explicit '' require reference to Microsoft Scripting Runtime Sub TestRegions () Dim oEnt As AcadEntity Dim oReg As AcadRegion Dim ftype (0) As Integer Dim fdata (0) As Variant Dim dxfCode, dxfValue Dim name As String Dim count As Integer On Error GoTo Err_Control Dim oSset As AcadSelectionSet With ThisDrawing.

All Discussion Groups: Message List - root 2010

'' '' 'Function ProcessWithNoInitialLines (ssRegions As AcadSelectionSet) As Boolean On Error GoTo ErrorHandler Dim Pt (0 To 2) As Double Dim vPt As Variant Dim iFinalLineCount As Long Dim ptZero (0 To 2) As Double Dim oEnt As AcadEntity Dim oReg As AcadRegion Dim oReg2 As AcadRegion Dim oRegCopy As AcadRegion Dim ssFinalLines As AcadSelectionSet For Each oEnt In ssRegions If TypeOf oEnt Is AcadRegion Then Set oReg = oEnt oReg.

All Discussion Groups: Message List - root 2010

'' '' 'Function ProcessWithNoInitialLines (ssRegions As AcadSelectionSet) As Boolean On Error GoTo ErrorHandler Dim Pt (0 To 2) As Double Dim vPt As Variant Dim iFinalLineCount As Long Dim ptZero (0 To 2) As Double Dim oEnt As AcadEntity Dim oReg As AcadRegion Dim oReg2 As AcadRegion Dim oRegCopy As AcadRegion Dim ssFinalLines As AcadSelectionSet For Each oEnt In ssRegions If TypeOf oEnt Is AcadRegion Then Set oReg = oEnt oReg.

All Discussion Groups: Message List - root 2010

Option Explicit '' require reference to Microsoft Scripting Runtime Sub TestRegions () Dim oEnt As AcadEntity Dim oReg As AcadRegion Dim ftype (0) As Integer Dim fdata (0) As Variant Dim dxfCode, dxfValue Dim name As String Dim count As Integer On Error GoTo Err_Control Dim oSset As AcadSelectionSet With ThisDrawing.

All Discussion Groups: Message List - root 2010