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