SSE versiyonunu bulma

** Kurulu yazılım listesi içinde arama yapar.

** 20 sn. sürüyor

************************************************

aprog="SQL"

clea

sec1=seconds()

create cursor xse(urun char(80),versiyon char(15),kurulum char(8),uretici char(30),yer char(60))

lcc=getwordnum(sys(0),1)

owmi=getobject("WinMgmts://"+lcc)

ox=owmi.instancesof("Win32_PRODUCT")

for each oxx in ox

    with oxx

        if UPPER(aprog) $ upper(.name)

            insert into xse values(nvl(.caption,""),nvl(.version,""),;

                nvl(.installdate,""),nvl(.vendor,""),nvl(.installlocation,""))

        endif

    endwith

endfor

? alltrim(transform(int(seconds()-sec1)))+" sn."

? "Bulunan : "+alltrim(transform(reccount()))+"/"+alltrim(transform(ox.count))

brow

** SQL Server Expresin running-stopping durumunu öğrenir

**************************************************

aprog="SQL"

clea

sec1=seconds()

create cursor xse(caption char(40),name char(20),startmode char(10),;

    state char(10),status char(10),description char(60))

lcc=getwordnum(sys(0),1)

owmi=getobject("WinMgmts://"+lcc)

ox=owmi.instancesof("Win32_SERVICE")

for each oxx in ox

    with oxx

        if upper(aprog) $ upper(.caption)

            insert into xse values(nvl(.caption,""),nvl(.name,""),nvl(.startmode,""),;

                nvl(.state,""),nvl(.status,""),nvl(.description,""))

        endif

    endwith

endfor

? alltrim(transform(int(seconds()-sec1)))+" sn."

? "Bulunan : "+alltrim(transform(reccount()))+"/"+alltrim(transform(ox.count))

brow

clear

scon="driver=sql server;server=(local)\sqlexpress"

bh=sqlstringconnect(scon)

if bh>0

    sqlkomut(bh,"select @@servername")

    ? strtran(sqlresult.exp,chr(0))

 

    sqlkomut(bh,"select serverproperty('edition')")

    ? strtran(sqlresult.exp,chr(0))

    ?

    sqlkomut(bh,"select @@version")

    ? strtran(sqlresult.exp,chr(0))

 

    qq=sqlkomut(bh,"sp_server_info")

    listele(qq)

 

    qq=sqlkomut(bh,"sp_spaceused")

    listele(qq)

 

    qq=sqlkomut(bh,"sp_monitor")

    listele(qq)

 

else

    messagebox("Bağlantı kurulamadı","SQL SERVER")

endif

sqldisconnect(0)

return

 

******************

procedure listele (qq)

    if qq=-1

 

    endif

    for ii=1 to qq-1

        cursn="SQLRESULT"+alltrim(transform(ii))

        select &cursn

        list off

    next

endproc

 

*****************************

procedure sqlkomut(ch,scmd,ccur)

    ex=0

    ex=sqlexec(ch,scmd)

    if ex<0

        zz=scmd+CHR(10)+CHR(10)+REPLICATE("+-",40)

        aerror(aerrs)

        FOR ix=1 TO ALEN(aerrs)

            zz=zz+CHR(10)+TRANSFORM(aerrs(ix))

        next

        messagebox(zz,"SQL SERVER HATASI")

    endif

    return ex

endproc