[程式健診]
Q1：
程式範例：  
========<box>========================
static void Main(string[] args)
  {
   // Open Connection 
   OleDbConnection cnJetDB = new OleDbConnection(@"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=My.mdb");  
   cnJetDB.Open();
   // Command to Insert Records
   OleDbCommand cmdInsert = new OleDbCommand();
   cmdInsert.CommandText = "INSERT INTO AutoIncrementTest (Description) VALUES ('This is a new Row')";
   cmdInsert.Connection = cnJetDB;
   cmdInsert.ExecuteNonQuery();
   OleDbCommand   cmdGetIdentity = new OleDbCommand();
   cmdGetIdentity.CommandText = "SELECT @@IDENTITY";
   cmdGetIdentity.Connection = cnJetDB;
   string s = cmdGetIdentity.ExecuteScalar().ToString();  
   OleDbCommand cmdUpdate = new OleDbCommand();
   cmdUpdate.CommandText= "UPDATE AutoIncrementTest SET nID = 'R"+s+"' WHERE ID ="+ s ;
   cmdUpdate.Connection = cnJetDB;
   cmdUpdate.ExecuteNonQuery();
  
   // Release the Resources
   cmdGetIdentity = null;
   cmdInsert = null;
   cmdUpdate = null;
   cnJetDB.Close();
   cnJetDB = null;
  }
===========<end>================================


Q2
程式範例
‘*********************<box>********************************
‘主程式
Dim strDomain
Do
     strDomain = inputbox( "請輸入網域", "Input" )
Loop until strDomain <> ""
ListGroups( strDomain )
‘***************************************************************
‘ListGroups
‘***************************************************************
Sub ListGroups( strDomain )
     Set objComputer = GetObject("WinNT://" & strDomain )
     objComputer.Filter = Array( "Group" )
     For Each objGroup In objComputer
        WScript.Echo "Name: " & objGroup.Name
     Next
End Sub

=============<end>===================================