I want to use a VB script to call Altiris Agent installation on a non-NS PC (PCA) to a target PC (PC B). I studying the ASDK with VBS but seem no luck to make it work. Need help on case thanks!

I want to use a VB script to call Altiris Agent installation on a non-NS PC (PCA) to a target PC (PC B). I studying the ASDK with VBS but seem no luck to make it work. Need help on case thanks!

I found a sample of VBS from the ASDK guide, however, how to make it work on my PCA to call the agent install to PCB?

I updated the Target Server from Local host to our target host, add following for connection:

itemManagement.UserName = InputBox("Enter a user as DOMAIN\User", "SomeMethodName")
itemManagement.Password = InputBox("Enter password", "SomeMethodName")
itemManagement.Protocol = "HTTPS"
itemManagement.Port = "443"

But seem still not work, any one can help to tell how to make it?

I intalled ASDK COM components on PCA already...Many Thanks for all. (Altiris ver.8)

**I found a sample of VBS from the ASDK guide:
CopyVBScript
Option Explicit
'---------------------------------------
' Set up management objects
'---------------------------------------
dim resourceManagement, reportManagement, itemManagement
set resourceManagement = CreateObject("Altiris.ASDK.NS.ResourceManagement")
resourceManagement.TargetServer = "localhost"
resourceManagement.Authenticate()

set reportManagement = CreateObject("Altiris.ASDK.NS.ReportManagement")
reportManagement.TargetServer = "localhost"
reportManagement.Authenticate()

set itemManagement = CreateObject("Altiris.ASDK.NS.ItemManagement")
itemManagement.TargetServer = "localhost"
itemManagement.Authenticate()

'---------------------------------------
' Setup other variables
'---------------------------------------
dim baseIp, startIp, endIp, reportsFolderGuid
' ip range
baseIp = InputBox("Enter the first 3 digits of the ip address (255.255.255)")
if baseIp = "" then
wscript.Quit
end if

startIp = InputBox("Enter the last digit of the starting ip address")
if startIp = "" then
wscript.Quit
end if

endIp = InputBox("Enter last digit of the final ip address")
if endIp = "" then
wscript.Quit
end if

reportsFolderGuid = "{4d4d03c6-cb51-4502-886f-13f756198b1b}"

' create a dictionary of ip addresses
dim ipAddrDictionary, ip, ipAddress
set ipAddrDictionary = CreateObject("Scripting.Dictionary")
for ip = startIp to endIp
ipAddress = baseIp & "."& ip
ipAddrDictionary.Add ipAddress, null
next

'---------------------------------------
' Pushing Symantec Agent To Computers
'---------------------------------------
wscript.Echo "Pushing Symantec Agent To Computers"
dim addrs, addr
addrs = ipAddrDictionary.Keys
for each addr in addrs
call resourceManagement.PushAltirisAgentToComputers(addr, true, true, false, true, "c:\tmp\clientAgentInstall")
next

'---------------------------------------
' Pushing Symantec Agent To Computers use login and password
'---------------------------------------
wscript.Echo "Pushing Symantec Agent To Computers use login and password"
dim addrs, addr
addrs = ipAddrDictionary.Keys
for each addr in addrs
call resourceManagement.PushAltirisAgentToComputersStrict(addr, true, true, false, true, "c:\tmp\clientAgentInstall", "userName", "password")
next

'---------------------------------------
' Observing Agent Installation Status...
'---------------------------------------
wscript.Echo "Observing Agent Installation Status..."

' Create the report to monitor installation progress
dim query, reportObject
query = "select distinct r.[IP Address] as [IP Address]" _
& " from Inv_AeX_AC_Client_Agent a" _
& " join vComputer? r on? r.[Guid] = a.[_ResourceGuid]" _
& " where upper(a.[Agent Name]) in ( 'ALTIRIS EXPRESS NS CLIENT', 'ALTIRIS AGENT' )"
set reportObject = reportManagement.CreateReportUsingRawSqlQuery("Agents Installed", "Report of Agents installed", "Agents Installed Data Source", reportsFolderGuid, query)

' run the report until all agents are installed, wait 10 minutes
dim attempts, results
attempts = 0
set results = reportManagement.RunReport(reportObject.Guid)
do while results.Fields.Count <> ipAddrDictionary.Count
if attempts = 5 then
exit do
end if
wscript.Sleep( 1000 * 60 * 2 ) ' sleep 2 minutes
set results = reportManagement.RunReport(reportObject.Guid)
attempts = attempts + 1
loop

if results.Fields.Count = ipAddrDictionary.Count then
wscript.Echo "Symantec Agent has been installed on all computers"
else
' report who hasn't installed yet
dim names, ipAddr, computers
results.MoveFirst()
do while not results.EOF
ipAddr = results.Fields.Item("IP Address").Value
addrs = ipAddrDictionary.Keys
for each addr in addrs
if ipAddr = addr then
ipAddrDictionary.Remove addr
end if
next
results.MoveNext()
loop

computers = "Symantec Agent has NOT been installed on the following computers: "& vbCrLf
addrs = ipAddrDictionary.Keys
for each addr in addrs
computers = computers & addr & vbCrLf
next

Wscript.Echo computers
end if

'---------------------------------------
' Clean up
'---------------------------------------
call itemManagement.DeleteItem(reportObject.Guid)