xSql=[CREATE TABLE IF NOT EXISTS `mst_psn` (]+; [ `pcsn` varchar(8) NOT NULL,]+; [ `info` text NOT NULL,]+; [ `dadi` char(1) NOT NULL,]+; [ UNIQUE KEY `pcsn` (`pcsn`)]+; [) ENGINE=MyISAM DEFAULT CHARSET=latin1;] wait "proses koneksi dan membuat tabel mst_psn" window nowait oJson=SQLKIU(xSql) if ALLTRIM(UPPER(oJson))=="OK" wait "proses koneksi dan membuat tabel mst_psn .. SUKSES" window nowait ELSE wait "proses koneksi dan membuat tabel mst_psn .. GAGAL" window nowait ENDIF

PROCEDURE PSN(iDrive) LOCAL lcComputerName, loWMI, lowmiWin32Objects, lowmiWin32Object,HddID lcComputerName = GETWORDNUM(SYS(0),1) loWMI = GETOBJECT("WinMgmts://" + lcComputerName) lowmiWin32Objects = loWMI.InstancesOf("Win32_LogicalDisk") iDRIVE1="C:" IF TYPE("iDRIVE")="C" iDRIVE1=iDRIVE ENDIF FOR EACH lowmiWin32Object IN lowmiWin32Objects WITH lowmiWin32Object IF INLIST(.Name,iDRIVE1) RETURN (.VolumeSerialNumber) EXIT ENDIF ENDWITH ENDFOR RETURN DTOS(DATE()) ENDPROC