A.: There is a special option that allows you to minimize TestComplete when you run a script. To reach it, double-click the project in the Project Explorer panel. TestComplete will display the project editor in the Workspace panel. Click Properties at the bottom of the project editor and then choose Playback in the list on the left of the page. In the Runtime options group verify the Minimize TestComplete checkbox.

A.: Use the Sys.OleObject property and pass the name of the desired OLE object to it. If you use VBScript, JScript, C++Script or C#Script, you can also create COM objects using “native” functions of these languages: In VBScript, you can use the CreateObject and GetObject functions; in JScript use the new ActiveXObject(…) statement. C++Script and C#Script are based on JScript, so you can use the JScript functions in these languages as well.

Below is an example that creates a new Microsoft Word document via COM:

[VBScript]

Sub Main
  Set ComObjWrd = Sys.OleObject("Word.Application") ' Creates MS Word
  ' You can also create MS Word in the following way --
  ' Set ComWordObj = CreateObject("Word.Application")

  ComObjWrd.Visible = True

  ComObjWrd.Documents.Add ' Creates a new document
  ...
End Sub

[JScript]

function Main()
{
  var ComObjWrd = Sys.OleObject("Word.Application"); // Creates MS Word
  // You can also create MS Word in the following way --
  // var ComWordObj = new ActiveXObject("Word.Application")

  ComObjWrd.Visible = true;

  ComObjWrd.Documents.Add(); // Creates a new document
  ...
}

[DelphiScript]

procedure Main;
var ComObjWrd : OleVariant;
begin
  ComObjWrd := Sys.OleObject['Word.Application']; // Creates MS Word
  ComObjWrd.Visible := true;

  ComObjWrd.Documents.Add; // Creates a new document
  ...
end;

[C++Script, C#Script]

function Main()
{
  var ComObjWrd = Sys["OleObject"]("Word.Application"); // Creates MS Word
  // You can also create MS Word in the following way --
  // var ComWordObj = new ActiveXObject("Word.Application")

  ComObjWrd["Visible"] = true;

  ComObjWrd["Documents"]["Add"](); // Creates a new document
  ...
}

Note: If the TestComplete 3 Compatibility plug-in is installed, TestComplete emulates functionality of the earlier versions of the product. In this case use the Sys.GetOleObject  method instead of Sys.OleObject.

A.: You can use the WScript.Shell object or the StdRegProv WMI class. Using the WMI class you can read and write values to the Registry, however, it only works in VBScript. You can find more information on these object and class on MSDN:

WScript.Shell: http://msdn.microsoft.com/library/en-us/script56/html/7b956233-c1aa-4b59-b36d-f3e97a9b02f0.asp

StdRegProv WMI class: http://msdn.microsoft.com/library/default.asp?url=/library/en-us/wmisdk/wmi/stdregprov.asp

The following code demonstrates the use of the WScript.Shell object:

[VBScript]

Sub ReadMString

  Dim WSObj, vals
  Set WSObj = Sys.OleObject("WScript.Shell")
  vals = WSObj.RegRead("HKEY_CURRENT_USER\Software\Automated QA\TestValue")

  For i = 0 To UBound(vals)
    Call Log.Message(vals(i))
  Next
End Sub

[JScript]

function ReadMString()
{
  var WSObj = Sys.OleObject("WScript.Shell");
  var value = WSObj.RegRead("HKEY_CURRENT_USER\\Software\\Automated QA\\TestValue");

  var vals = VBArray(value).toArray();
  for (i = 0; i < vals.length; i++)
    Log.Message(vals[i]);
}

[DelphiScript]

procedure ReadMString;
var WSObj, value, i : OleVariant;
begin
  WSObj := Sys.OleObject['WScript.Shell'];
  value := WSObj.RegRead('HKEY_CURRENT_USER\Software\Automated QA\TestValue');

  for i := 0 to BuiltIn.VarArrayHighBound(value, 1) do
    Log.Message(value[i]);
end;

[JScript]

function ReadMString()
{
  var WSObj = Sys.OleObject("WScript.Shell");
  var value = WSObj["RegRead"]("HKEY_CURRENT_USER\\Software\\Automated QA\\TestValue");

  var vals = VBArray(value)["toArray"]();
  for (i = 0; i < vals["length"]; i++)
    Log["Message"](vals[i]);
}

The following code demonstrates the usage of the WMI StdRegProv class:

[VBScript]

Sub Main
  Dim strKeyPath, strValName, MultiStrVal

  strKeyPath = "Software\Automated QA"
  strValName = "TestValue"
  MultiStrVal = GetMultiStringValue(HKEY_CURRENT_USER, strKeyPath, strValName)

  If IsNull(MultiStrVal) Then
    Log.Error("Value not found")
  Else
    Log.AppendFolder("Before")

    For i = 0 To UBound(MultiStrVal)
      Log.Message MultiStrVal(i)
    Next

    Log.PopLogFolder
  End If

  NewVal = Array("Test1", "Test2")
  Call SetMultiStringValue(HKEY_CURRENT_USER, strKeyPath, strValName, NewVal)

  MultiStrVal = GetMultiStringValue(HKEY_CURRENT_USER, strKeyPath, strValName)
  If IsNull(MultiStrVal) Then
    Log.Error("Value not found")
  Else
    Log.AppendFolder("After")

    For i = 0 To UBound(MultiStrVal) 
      Log.Message MultiStrVal(i)
    Next

    Log.PopLogFolder
  End If
End Sub

Function GetMultiStringValue(RootPath, strKeyPath, strValName)
  Dim Value, oReg

  Set oReg=GetObject("winmgmts:\\.\root\default:StdRegProv")
  Call oReg.GetMultiStringValue(RootPath, strKeyPath, strValName, Value)
  GetMultiStringValue = Value
End Function

Function SetMultiStringValue(RootPath, strKeyPath, strValName, arrValue)
  Dim oReg

  Set oReg=GetObject("winmgmts:\\.\root\default:StdRegProv")
  Call oReg.SetMultiStringValue(RootPath, strKeyPath, strValName, arrValue)
End Function

A.: To time the execution of script code, you need to set and compare two time stamps: before the desired statements execute and right after the execution is over. To get the time stamps you can use the StopWatch object that is provided by the HISUtils plug-in (the plug-in is available in TestComplete 5 and later), the Win32 API GetTickCount function, or the Unilities.Now function.

The following code snippet demonstrates the usage of the StopWatch object.

[VBScript]

Sub GetTest1Time
  Dim StopWatchObj

  Set StopWatchObj = HISUtils.StopWatch

  StopWatchObj.Start
  ' Do something
  ...
  StopWatchObj.Stop

  Log.Message("The execution time is: " & StopWatchObj.ToString)
End Sub

[JScript]

function GetTest1Time()
{
  var StopWatchObj = HISUtils.StopWatch;

  StopWatchObj.Start();
  // Do something
  ...
  StopWatchObj.Stop();

  Log.Message("The execution time is: " + StopWatchObj.ToString());
}

[DelphiScript]

procedure GetTest1Time;
var StopWatchObj : OleVariant;
begin
  StopWatchObj := HISUtils.StopWatch;

  StopWatchObj.Start;
  // Do something
  ...
  StopWatchObj.Stop;

  Log.Message('The execution time is: ' + StopWatchObj.ToString);
end;

[C++Script, C#Script]

function GetTest1Time()
{
  var StopWatchObj = HISUtils["StopWatch"];

  StopWatchObj["Start"]();
  // Do something
  ...
  StopWatchObj["Stop"]();

  Log["Message"]("The execution time is: " + StopWatchObj["ToString"]());
}

Below is an example that uses the Win32API.GetTickCount function:

[VBScript]
Sub GetTest2Time()
  Dim startTime, endTime

  startTime = Win32API.GetTickCount
  ' Do something
  ...
  endTime = Win32API.GetTickCount

  Call Log.Message("The execution time is: " & (endTime - startTime)/1000 & " sec")
End Sub

[JScript]
function GetTest2Time()
{
  var startTime = Win32API.GetTickCount();
  // Do something
  ...
  var endTime = Win32API.GetTickCount();

  Log.Message("The execution time is: " + (endTime - startTime)/1000 + " seconds");
}

[DelphiScript]
procedure GetTest2Time();
var startTime, endTime : OleVariant;
begin
  startTime := Win32API.GetTickCount();
  // Do something
  ...
  endTime := Win32API.GetTickCount();

  Log.Message('The execution time is ' + VarToStr( (endTime - startTime)/1000 ) + ' seconds');
end;

[C++Script, C#Script]
function GetTest2Time()
{
  var startTime = Win32API["GetTickCount"]();
  // Do something
  ...
  var endTime = Win32API["GetTickCount"]();

  Log["Message"]("The execution time is: " + (endTime - startTime)/1000 + " seconds");
}

Here is the Utilities.Now function usage example:

[VBScript]
Sub GetTest3Time()
  Dim startTime, endTime

  startTime = Utilities.Now
  ' Do something
  ...
  endTime = Utilities.Now

  Call Log.Message("The execution time is: " & Utilities.FormatDateTime("nn:ss:zzz", endTime-startTime))
End Sub

[JScript]
function GetTest3Time()
{
  var startTime = Utilities.Now();
  // Do something
  ...
  var endTime = Utilities.Now();

  Log.Message("The execution time is: " + Utilities.FormatDateTime("nn:ss:zzz", endTime-startTime));
}

[DelphiScript]
procedure GetTest3Time();
var startTime, endTime : OleVariant;
begin
  startTime := Utilities.Now();
  // Do something
  ...
  endTime := Utilities.Now();

  Log.Message('The execution time is ' + Utilities.FormatDateTime('nn:ss:zzz', endTime-startTime));
end;

[C++Script, C#Script]
function GetTest3Time()
{
  var startTime = Utilities["Now"]();
  // Do something
  ...
  var endTime = Utilities["Now"]();

  Log["Message"]("The execution time is: " + Utilities["FormatDateTime"]("nn:ss:zzz", endTime-startTime));
}

A.: Use the Sys.UserName property.

A.: The Sys.UserName property returns the name of the current user. To determine the domain groups to which the user belongs, you can use the ADSystemInfo object. For more information on this object, please refer to MSDN:

[VBScript]

Sub Main
  Dim objADSysInfo, strUser, objUser, ObjGroup, Obj

  Set objADSysInfo = CreateObject("ADSystemInfo")

  Call Log.AppendFolder("Current User Info")
  strUser = objADSysInfo.UserName
  Call OutputDelimitedString(strUser)
  Log.PopLogFolder

  Set objUser = GetObject("LDAP://" & strUser)

  Call Log.AppendFolder("Member Of")
  ObjGroup = objUser.memberOf
  If BuiltIn.VarType(ObjGroup) = varOleStr Then
    Call OutputDelimitedString(ObjGroup)
  Else
    For Each Obj In ObjGroup
      Call Log.AppendFolder("Group")
      Call OutputDelimitedString(Obj)
      Log.PopLogFolder
    Next
  End If

  Log.PopLogFolder
End Sub

Function OutputDelimitedString(strOut)
  Dim ArrayOfItems, i

  ArrayOfItems = Split(strOut, ",")

  For i = 0 To UBound(ArrayOfItems)
    Call Log.Message (ArrayOfItems(i))
  Next
End Function

[JScript]

function Main()
{
  var objADSysInfo, strUser, objUser, ObjGroup, i, Obj;

  objADSysInfo = new ActiveXObject("ADSystemInfo");

  Log.AppendFolder("Current User Info");
  strUser = objADSysInfo.UserName;
  OutputDelimitedString(strUser);
  Log.PopLogFolder();

  objUser = GetObject("LDAP://" + strUser);

  Log.AppendFolder("Member Of");
  ObjGroup = objUser.memberOf;
  if (BuiltIn.VarType(ObjGroup) == varOleStr)
    OutputDelimitedString(ObjGroup);
  else
  {
    ObjGroup = ObjGroup.toArray();

    for (i = 0; i < ObjGroup.length; i++)
    {
      Obj = ObjGroup[i];
      Log.AppendFolder("Group");
      OutputDelimitedString(Obj);
      Log.PopLogFolder();
    }
  }
  Log.PopLogFolder();
}

function OutputDelimitedString(strOut)
{
  var ArrayOfItems = strOut.split("",")

  for (var i = 0; i < ArrayOfItems.length; i++)
    Log.Message(ArrayOfItems[i]);
}

[DelphiScript]

A DelphiScript example is not available.

[C++Script, C#Script]

function Main()
{
  var objADSysInfo, strUser, objUser, ObjGroup, i, Obj;

  objADSysInfo = new ActiveXObject("ADSystemInfo");

  Log["AppendFolder"]("Current User Info");
  strUser = objADSysInfo["UserName"];
  OutputDelimitedString(strUser);
  Log["PopLogFolder"]();

  objUser = GetObject("LDAP://" + strUser);

  Log["AppendFolder"]("Member Of");
  ObjGroup = objUser["memberOf"];
  if (BuiltIn["VarType"](ObjGroup) == varOleStr)
    OutputDelimitedString(ObjGroup);
  else
  {
    ObjGroup = ObjGroup["toArray"]();

    for (i = 0; i < ObjGroup["length"]; i++)
    {
      Obj = ObjGroup[i];
      Log["AppendFolder"]("Group");
      OutputDelimitedString(Obj);
      Log["PopLogFolder"]();
    }
  }
  Log["PopLogFolder"]();
}

function OutputDelimitedString(strOut)
{
  var ArrayOfItems = strOut["split"](",")

  for (var i = 0; i < ArrayOfItems["length"]; i++)
    Log["Message"](ArrayOfItems[i]);
}

A.: You can obtain the language by using the Microsoft WMI Win32_OperatingSystem class. For more information on this class, see:

[VBScript]

Sub Main
  Dim strComputer, objWMIService, colOperatingSystemsList, colOperatingSystems, objOperatingSystem

  strComputer = "."
  Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

  Set colOperatingSystems = objWMIService.ExecQuery("Select * from Win32_OperatingSystem")

  For Each objOperatingSystem In colOperatingSystems
    Call Log.Message ("OS: " & objOperatingSystem.Name)
    Call Log.Message ("OS Language: " & objOperatingSystem.OSLanguage)
  Next
End Sub

[JScript]

function Main ()
{
  var strComputer, objWMIService, colOperatingSystemsList, colOperatingSystems, objOperatingSystem;

  strComputer = ".";

  objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!//" + strComputer + "/root/cimv2");
  colOperatingSystemsList = objWMIService.ExecQuery("Select * from Win32_OperatingSystem");
  colOperatingSystems = new Enumerator(colOperatingSystemsList); 

  for ( ; !colOperatingSystems.atEnd(); colOperatingSystems.moveNext() )
  {
    objOperatingSystem = colOperatingSystems.item();
    Log.Message("OS: " + objOperatingSystem.Name);
    Log.Message("OS Language: " + objOperatingSystem.OSLanguage);
  }
}

[DelphiScript]

A DelphiScript sample is not available, because DelphiScript does not have built-in support for enumerations.

[C++Script, C#Script]

function Main ()
{
  var strComputer, objWMIService, colOperatingSystemsList, colOperatingSystems, objOperatingSystem;

  strComputer = ".";

  objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!//" + strComputer + "/root/cimv2");
  colOperatingSystemsList = objWMIService["ExecQuery"]("Select * from Win32_OperatingSystem");
  colOperatingSystems = new Enumerator(colOperatingSystemsList); 

  for ( ; !colOperatingSystems["atEnd"](); colOperatingSystems["moveNext"]() )
  {
    objOperatingSystem = colOperatingSystems["item"]();
    Log["Message"]("OS: " + objOperatingSystem["Name"]);
    Log["Message"]("OS Language: " + objOperatingSystem["OSLanguage"]);
  }
}

A.: Below is a sample script that demonstrates this:

[VBScript]

Sub Main
  Dim WshShell, strDesktop, fileName, oShellLink

  Set WshShell = CreateObject("WScript.Shell")
  strDesktop = WshShell.SpecialFolders("Desktop")
  fileName = strDesktop & "\My Application.lnk"
 
  If Utilities.FileExists(fileName) Then
    Set oShellLink = WshShell.CreateShortcut(fileName)
   
    If Utilities.FileExists(oShellLink.TargetPath) Then
      Call Log.Message ("The target file exists (" & oShellLink.TargetPath & ").")
   
    Else
      Call Log.Error ("The target file does not exist (" & oShellLink.TargetPath & ").")

    End If

  Else
    Call Log.Error ("The specified LNK file does not exist.")

  End If
End Sub

[JScript]

function Main()
{
  var WshShell, strDesktop, fileName, oShellLink;
 
  WshShell = new ActiveXObject("WScript.Shell");
  strDesktop = WshShell.SpecialFolders("Desktop");
  fileName = strDesktop + "\\GridMainDemo.lnk";

  if (Utilities.FileExists(fileName))
  {
    oShellLink = WshShell.CreateShortcut(fileName);

    if (Utilities.FileExists(oShellLink.TargetPath))
      Log.Message("The target file exists (" + oShellLink.TargetPath + ").");

    else
      Log.Error("The target file does not exist (" + oShellLink.TargetPath + ").");
  }

  else
    Log.Error("The specified LNK file does not exist.");
}

[DelphiScript]

procedure Main;
var
  WshShell, strDesktop, fileName, oShellLink : OleVariant;
begin
  WshShell := Sys.OleObject['WScript.Shell'];
  strDesktop := WshShell.SpecialFolders('Desktop');
  fileName := strDesktop + '\\My Application.lnk';
 
  if Utilities.FileExists(fileName) then
 
  begin
    oShellLink := WshShell.CreateShortcut(fileName);
   
    if Utilities.FileExists(oShellLink.TargetPath) then
      Log.Message('The target file exists (' + oShellLink.TargetPath + ').')
   
    else
      Log.Error('The target file does not exist (' + oShellLink.TargetPath + ').');
 
  end
 
  else
    Log.Error('The specified LNK file does not exist.');
end;

[C++Script, C#Script]

function Main()
{
  var WshShell, strDesktop, fileName, oShellLink;
 
  WshShell = new ActiveXObject("WScript.Shell");
  strDesktop = WshShell["SpecialFolders"]("Desktop");
  fileName = strDesktop + "\\GridMainDemo.lnk";

  if (Utilities["FileExists"](fileName))
  {
    oShellLink = WshShell["CreateShortcut"](fileName);

    if (Utilities["FileExists"](oShellLink["TargetPath"]))
      Log["Message"]("The target file exists (" + oShellLink["TargetPath"] + ").");

    else
      Log["Error"]("The target file does not exist (" + oShellLink["TargetPath"] + ").");
  }

  else
    Log["Error"]("The specified LNK file does not exist.");
}

A.: TestComplete does not include special methods to obtain text from console application’s windows. As a workaround, you can copy the console contents to the clipboard and then obtain it using the Sys.Clipboard property:

[VBScript]

Function GetTextFromConsole()

  ' Obtain the process and window of the console application
  Set Proc = Sys.Process("cmd")
  Set Wnd = Proc.Window("ConsoleWindowClass", "*")

  ' Simulate the keystrokes: Alt+Space, E, S, Enter
  ' (Call system menu, select Edit | Select All,
  '  press Enter to copy the selected text to the clipboard)
  Wnd.Keys("~ ES[Enter]")

  ' Return the result
  GetTextFromConsole = Sys.Clipboard
End Function

[JScript]

function GetTextFromConsole()
{
  var Proc, Wnd;
  
  // Obtain the process and window of the console application
  Proc = Sys.Process("cmd");
  Wnd = Proc.Window("ConsoleWindowClass", "*");

  // Simulate the keystrokes: Alt+Space, E, S, Enter
  // (Call system menu, select Edit | Select All,
  //  press Enter to copy the selected text to the clipboard)
  Wnd.Keys("~ ES[Enter]");

  // Return the result
  return Sys.Clipboard
}

[DelphiScript]
function GetTextFromConsole();
var
  Proc, Wnd : OleVariant;
begin
  // Obtain the process and window of the console application
  Proc := Sys.Process('cmd');
  Wnd := Proc.Window('ConsoleWindowClass', '*');

  // Simulate the keystrokes: Alt+Space, E, S, Enter
  // (Call system menu, select Edit | Select All,
  //  press Enter to copy the selected text to the clipboard)
  Wnd.Keys('~ ES[Enter]');

  // Return the result
  Result := Sys.Clipboard;
end;

[C++Script, C#Script]

function GetTextFromConsole()
{
  var Proc, Wnd;
  
  // Obtain the process and window of the console application
  Proc = Sys["Process"]("cmd");
  Wnd = Proc["Window"]("ConsoleWindowClass", "*");

  // Simulate the keystrokes: Alt+Space, E, S, Enter
  // (Call system menu, select Edit | Select All,
  //  press Enter to copy the selected text to the clipboard)
  Wnd["Keys"]("~ ES[Enter]");

  // Return the result
  return Sys["Clipboard"];
}

One more variant is to launch the application and to use methods of the WScript.Shell object to read data from the standard output stream:

[VBScript]

Sub Test
  ' The name of the application to be run
  CommandLine = "c:\My File.bat"
  
  ' Create the WScript.Shell object and launch the application
  Set WshShell = CreateObject("WScript.Shell")
  Set oExec = WshShell.Exec(CommandLine)
  
  ' Parse the standard output
  txt = ""
  Do While Not oExec.StdOut.AtEndOfStream
    txt = txt + oExec.StdOut.Read(1)
    If InStr(txt, "Press any key") <> 0 Then Exit Do
  Loop
  
  ' Post the result to the test log
  Log.Message txt
End Sub

[JScript]

function Test()
{
  var CommandLine, WshShell, oExec, txt;

  // The name of the application to be run
  CommandLine = "c:\\MyFile.bat";
  
  // Create the WScript.Shell object and launch the application
  WshShell = new ActiveXObject("WScript.Shell");
  oExec = WshShell.Exec(CommandLine);
  
  // Parse the standard output
  txt = "";
  while(! oExec.StdOut.AtEndOfStream)
  {
    txt = txt + oExec.StdOut.Read(1);
    if (txt.indexOf("Press any key") >= 0)
      break;
  }
  
  // Post the result to the test log
  Log.Message(txt);
}

[DelphiScript]

procedure Test;
var
  CommandLine, WshShell, oExec, txt : OleVariant;
begin  
  // The name of the application to be run
  CommandLine := 'c:\MyFile.bat';
  
  // Create the WScript.Shell object and launch the application
  WshShell := Sys.OleObject['WScript.Shell'];
  oExec := WshShell.Exec(CommandLine);
  
  // Parse the standard output
  txt := '';
  while not oExec.StdOut.AtEndOfStream do
  begin
    txt := txt + oExec.StdOut.Read(1);
    if Pos('Press any key', txt) > 0 then
      Break;
  end;
  
  // Post the result to the test log
  Log.Message(txt);
end;

[C++Script, C#Script]

function Test()
{
  var CommandLine, WshShell, oExec, txt;

  // The name of the application to be run
  CommandLine = "c:\\MyFile.bat";
  
  // Create the WScript.Shell object and launch the application
  WshShell = new ActiveXObject("WScript.Shell");
  oExec = WshShell["Exec"](CommandLine);
  
  // Parse the standard output
  txt = "";
  while(! oExec["StdOut"]["AtEndOfStream"])
  {
    txt = txt + oExec["StdOut"]["Read"](1);
    if (txt.indexOf("Press any key") >= 0)
      break;
  }
  
  // Post the result to the test log
  Log["Message"](txt);
}