A Quick Way to Write SVS Scripts

K00tje,

This is a great way to create VB scripts. It is a very good way for the newbee's to learn how to create and work with VB scripts.

Thnxsss for the very good job.

regards
Erik
www.svs4u.nl

I didn't know this way, nice info.

Thanks
PM

This is some code I'm working on. It just enumerates the current layers.
--------------------------------------

using System;
using System.Collections.Generic;
using System.Text;
using System.Management;
using System.Windows.Forms;

namespace Focus_XP_SVS_Layer_Console
{
public class WMITest
{
public static void Test()
{
try
{

ManagementScope scope = new ManagementScope("root\\default");
scope.Connect();
ManagementClass classInstance = new ManagementClass(
scope,
new ManagementPath("AltirisVSProv"),
null);

// Obtain in-parameters for the method
ManagementBaseObject inParams =
classInstance.GetMethodParameters("EnumerateLayers");

// Add the input parameters.
inParams["Verbose"] = 1;

// Execute the method and obtain the return values.
ManagementBaseObject outParams =
classInstance.InvokeMethod("EnumerateLayers", inParams, null);

// List outParams
Console.WriteLine("Out parameters:");
Console.WriteLine("EnumData: " + outParams["EnumData"]);
Console.WriteLine("ReturnValue: " + outParams["ReturnValue"]);
}
catch (ManagementException err)
{
MessageBox.Show("An error occurred while trying to execute the WMI method: " + err.Message);
}
}

}
}

Is this only for the old WMI Style?

As you can't use WMIService.Get("VirtualSoftwarePackage.Name=""My Layer Name""") You will have to do something like this.

LayerName = "My Layer Name"

Set WMIService = GetObject("winmgmts:" _
		& "{impersonationLevel=impersonate,(Restore,Backup)}!\\" _
		& ".\root\default")

Set LayerItems = WMIService.ExecQuery("Select * From VirtualSoftwarePackage" & _
	" Where Name=""" & LayerName & """")

If LayerItems.Count = 0 Then
	WScript.Echo "No Layer found with the name """ & LayerName & """"
	WScript.Quit
ElseIf LayerItems.Count > 1 Then
	WScript.Echo "More then one layer found with the name """ & LayerName & """"
	WScript.Quit
End If

For Each Layer In LayerItems
	'// one way to activate a layer
	WScript.Echo "Activate layer"
	ActionResult = Layer.Activate
	WScript.Echo "ActionResult: " & ActionResult
	
	'// deactivate layer
	WScript.Echo "Deativate layer"
	ActionResult = Layer.Deactivate
	WScript.Echo "ActionResult: " & ActionResult
	
	'// another way to activate a layer
	Set ImportedLayer = WMIService.Get("VirtualSoftwarePackage.Id=""" & Layer.Id & """")
	WScript.Echo "Activate layer"
	ActionResult = ImportedLayer.Activate
	WScript.Echo "ActionResult: " & ActionResult
	
	Exit For
Next

The new provider is handled differently then the old one that's why you only see 8 methods.

You can still use the old WMI provider, thus have in mind that it will be removed in some future release.

Don't think there is any help files for the WMI provider(s) in the SVS SDK.

But you can find the mof files in the directory where you installed SVS, ex. "C:\Program Files\Altiris\Software Virtualization Agent".

SvsWmi.mof (New WMI provider)
AltirisVSProvider.mof (Old WMI provider)

The structure in the mof file for the new provider is kinda self-explained.