Scripting

Hi,
I have to edit the security permission of DCOM over windows 2003.
Requirement is to add the "administrators" and a another local group to "Access permission" and "Launch Parmission" of DCOM on the machine.
I have a script doing this but that is for Windows 98 or NT. so Object creation is failing over windows 2003.


Here is the Script, but it is failing at create object line using prog id "DCOMSecConfig.Configure".
Please suggest.
==============================

Set oSystem = CreateObject("SPSystem.System")
strServer = oSystem.ComputerName
strDomain = GetDomain(strServer)

On error Resume Next

' UserIdentity "FCSObjectBrokerA.Remote", strDomain & "\wsosystem", "Password" '- changed for Win2K
UserIdentity "FCSObjectBrokerA.Remote", strServer & "\wsosystem", "Password"

permission "FCS.IDSever"
permission "FCSDEO.Processor"
permission "FCS.IDServer"
permission "FCSObjectBrokerA.Remote"

' MsgBox "Finished configuring Dcom servers for Wall Street Office"


Sub permission ( application )

Dim principals(3)
Dim configure

' Array of users / groups to permission servers for.
principals(0) = "wsoSystem"
principals(1) = "Administrator"
principals(2) = "WSOUsers"

Set configure = CreateObject("DCOMSecConfig.Configure")

' Set launch permissions and access permissions
configure.SetLaunchPermissions application, principals
configure.SetAccessPermissions application, principals

End sub

Sub UserIdentity ( application, strDomUsr, strUsrPass )

Set configure = CreateObject("DCOMSecConfig.Configure")

' Set "run as" identity.
configure.SetServerIdentity application, strDomUsr, strUsrPass

End sub

Function GetDomain(strServer)
' v1.00

Dim objServer
Set objServer = GetObject("WinNT://" & strServer)
GetDomain = Mid(objServer.Parent, InStrRev(objServer.Parent, "/") + 1)

End Function
====================================

Thanks in Advance.


Cheers
Jimit