心得笔记【3】

最新推荐文章于 2025-08-15 14:03:55 发布

流浪的青春

最新推荐文章于 2025-08-15 14:03:55 发布

阅读量465

点赞数

CC 4.0 BY-SA版权

文章标签： database service object server security function

本文链接：https://blog.youkuaiyun.com/qingfengbj/article/details/6831068

1，用WMI检查本地线程状态

OBJECT wmi

set wmi = CoGetObject( "winmgmts://./root/cimv2", "" );
if ( !IsObject(wmi) ) then
	MessageBox("Failed to get WMI object.", WARNING );
endif; 
 
set slist = wmi.ExecQuery ("Select name from Win32_Process where Name='XXXX.exe'" );
if ( !IsObject(slist) ) then
	MessageBox("WMI service query failed. Service account not set.", WARNING );
endif;
if(slist.count > 0)then 
    nvRunModuleNum++;
    svRunModuleList = svRunModuleList + "iNEWS,";
endif;

2，用函数取得本地服务状态

ServiceGetServiceState ( "IISADMIN", svServiceState );

3，如何连接数据库

function BOOL connSQLDB(Server,DataBase, UserName, Password)                             
  STRING  connstr;   
  BOOL   bResult;   
  OBJECT  conn; 
  begin                   
      bResult   =   TRUE;   
      nConnState   =   0;   
      set conn = CreateObject("ADODB.Connection");
      if  !IsObject(conn)  then   
          return   FALSE;   
      endif;   
      connstr =  "";
      if  Password   =   ""   then   
          connstr = connstr +  "Provider=SQLOLEDB.1;Password=\"\"";     
      else   
      	  connstr   =   connstr + "Provider=SQLOLEDB.1;Password="   +   Password;   
      endif;   
      connstr   =   connstr   +  ";Persist Security Info=TRUE;User ID="   +   UserName;   
      connstr   =   connstr   +  ";Initial Catalog="+ DataBase;   
      connstr   =   connstr   +  ";Data Source="   +   Server;   
      conn.ConnectionString = connstr;     
      try   
     	conn.ConnectionTimeout = 3;
      	conn.open();   
      	conn.close();   
      catch   
          connSQLDBErrMessage = conn.Errors.Item(0).Description;
          //MessageBox(conn.Errors.Item(0).Description, WARNING);   
          nConnState = conn.Errors.Item(0).NativeError;   
          bResult = FALSE;   
      endcatch;   
      set   conn = NOTHING;   
      return  bResult;   
end;