Hello,

I am trying to add some permissions on a folder. But i can't make it work at the moment. I used VBScripts as well but it will add the wrong user group.

I have the Dutch version of Server 2008 running. So the groups are dutch.

The usergroup: "All Apotheek"
needs full rights on the following folder:

C:\Program Files\Old Bike Soft

And i need in the same script the rule to change a registry key. As well, the user group "All Apotheek" needs full rights on this registry key.
HKEY_LOCAL_MACHINE\Software\Old Bike Soft

And i don't know if its possible, but i made a simple Batch file for adding a Firewall rule to a Windows XP Machine.
This is the script i made in a batchfile. Maybe i can implement it into a Kixtart script?

Code:

netsh firewall set portopening protocol=TCP port=9021 name=PP_FTP mode=ENABLE profile=All

Can someone give me examples about how i can arrange this? Maybe someone who has a little spare time to give me a good example script or something.. because i am not really good at this...

I searched the board.. and founded some stuff.. but i don't understand it really much..

1- http://www.kixtart.org/forums/ubbthreads...true#Post197034

2- http://www.kixtart.org/forums/ubbthreads...true#Post195756

So the script has to do:

- Add group: "All Apotheek" to the following folder:
C:\Program Files\Old Bike Soft

- Add group: "All Apotheek" to the following registry key:
HKEY_LOCAL_MACHINE\Software\Old Bike Soft

- Add Firewall rule on a XP machine:
Port Protocol: TCP
Por: 9021
Name: PP_FTP
Mode: Enable
Profile: All

Is that possible?

very... very.. very thanks for someone who can help me!

Dim $objFirewall, $objPolicy, $objPort, $colPorts $objFirewall = CreateObject("HNetCfg.FwMgr") $objPolicy = $objFirewall.LocalPolicy.CurrentProfile $objPort = CreateObject("HNetCfg.FwOpenPort") $objPort.Port = 9021 $objPort.Protocol = 6 ;TCP $objPort.Name = "PP_FTP" $objPort.Enabled = 1 $colPorts = $objPolicy.GloballyOpenPorts $rc = $colPorts.Add($objPort)

NTFSPerms("ADD:CHANGE","C:\Program Files\Old Bike Soft","Gezondheidshuis\Alle Gebruikers") NTFSPerms("ADD:CHANGE","HKEY_LOCAL_MACHINE\Software\Old Bike Soft","Gezondheidshuis\Alle Gebruikers") Dim $objFirewall, $objPolicy, $objPort, $colPorts $objFirewall = CreateObject("HNetCfg.FwMgr") $objPolicy = $objFirewall.LocalPolicy.CurrentProfile $objPort = CreateObject("HNetCfg.FwOpenPort") $objPort.Port = 9021 $objPort.Protocol = 6 ;TCP $objPort.Name = "PP_FTP" $objPort.Enabled = 1 $colPorts = $objPolicy.GloballyOpenPorts $rc = $colPorts.Add($objPort)

Dim $strRegPath, $strUser $strRegPath = "HKEY_CURRENT_USER\test" $strUser = @WKSTA+"\Administrator" Dim $objADSU, $objSD, $objDACL, $objAceNew $objADSU = CreateObject("ADsSecurityUtility") $objSD = $objADSU.GetSecurityDescriptor($strRegPath, 3, 1) $objDACL = $objSD.DiscretionaryAcl $objAceNew = CreateObject("AccessControlEntry") $objAceNew.Trustee = $strUser $objAceNew.AceFlags = 2 $objAceNew.AccessMask = 983103 $objAceNew.AceType = 0 $objDACL.AddAce($objAceNew) $objSD.DiscretionaryAcl = $objDACL $objADSU.SetSecurityDescriptor($strRegPath, 3, $objSD, 1)