COM 개체 초기화/VB 코드를 C++로 변환

Question

누구든지 다음 코드를 C++로 변환 할 수 있습니까? 이것이 가능합니까 아니면 중요한 정보가 누락 되었습니까?

@Vinay

 
Dim Laser As Object 
Sub EnableLaser 
    ‘ Create a laser object if it hasn’t been done yet 
    If Laser Is Nothing Then 
     Set Laser = CreateObject("NWLaserXControl.NWLaserX") 
    End If 
    If Laser.Initialize Then 
     Laser.RepRate = 10 ‘ set the rep rate to 10Hz 
     Laser.LaserEnabled = True ‘ turn on laser power supply, get it ready 
    End If 
End Sub 

Answer 1

// if (CoInitialize(0) == S_OK) 
{ 
    CComPtr<INWLaserX> pMyPtr = NULL; 

    CLSID clsid = IID_NULL; 
    CLSIDFromProgID("NWLaserXControl.NWLaserX"); 

    if (pMyPtr.CoCreateInstance(clsid) == S_OK) 
    { 
     pMyPtr->put_RepRate(10); 
     pMyPtr->put_LaserEnabled(TRUE); 
    } 

    // CoUnInitialize(); 
}