I have a VBSCRIPT CA that is simply creating a series of local groups on the pc (XP SP2), the code runs fine without error outside the MSI if i take out the session.property line and put the computer name in as a set value. However from within the MSI i am getting error 1720 where indicated with ">|" on the script below. I am executing the script directly after AppSearch on UI. Any help will be gratefully appreciated.

Dim szGroupName, szGroupDescr, szComputerName
Dim objSystem, objGrp

szGroupName = "Radmin All Access"
szGroupDescr = "Users who can use all of Radmin's functions"
szComputerName = Session.Property("COMPUTERNAME")

szGroupName = "Radmin View Screen"
szGroupDescr = "Users who can use Radmin to View the screen"

szGroupName = "Radmin Telnet"
szGroupDescr = "Users who can use Radmin to Telnet to this client"

szGroupName = "Radmin Full Screen Control"
szGroupDescr = "Users who can use Radmin to fully remote control the screen"

szGroupName = "Radmin File Transfer"
szGroupDescr = "Users who can use Radmin to Transfer files to this client"

Sub CreateLocalXPGroup
>|Set objSystem = GetObject("WinNT://" & szComputerName)
Set objGrp = objSystem.Create("group", szGroupName)
objGrp.Description = szGroupDescr
End Sub
0 Comments   [ - ] Hide Comments


Please log in to comment

Rating comments in this legacy AppDeploy message board thread won't reorder them,
so that the conversation will remain readable.
Answer this question or Comment on this question for clarity


Case sensitivity, perhaps ?

Try Session.Property("ComputerName")


Answered 06/22/2007 by: spartacus
Black Belt

Please log in to comment