1 Konuyu açan M.haser

  • M.haser
  • Üye
  • Offline
  • Kayıt Tarihi: 10.08.2007
  • İleti: 27

Konu: OLE error code 0x800441003: Unknown COM status code

Merhaba arkadaşlar;

Bazı win xp işletim sisteminde aşağıdaki komut satırı işletildiğinde, OLE error code 0x800441003: Unknown COM status code hatası ile karşılaşıyorum.

bu sonunu nasıl halledebilirim.


lccomputername       = GETWORDNUM(Sys(0),1)
lowmi2           = GETOBJECT("WinMgmts://"+lccomputername)
lowmiwin32objects = lowmi2.instancesof("Win32_DiskDrive")

For Each lowmiwin32object In lowmiwin32objects
    WITH lowmiwin32object
        Surucu     = Transform(.Caption) + " (" + Transform(.interfacetype) + ")"
        Boyut     = Transform(.Size)
        Bolum     = Transform(.Partitions)
        SeriNo     = Transform(.PnpDeviceId)
        Imza     = SubStr(Transform(0, "@0"), 3, 8)
    EndWith
    Insert Into qfh(qsurucu, qboyut, qbolum, qserino, qimza) values(surucu, boyut, bolum, serino, imza)
EndFor