I love Windows 7. But there is one thing a hate about Windows 7.
There is no nice way to enable Windows 7 Features trough Group Policy.
So I created a small visual basis script that i used as a startup script.
It checks if adsnapins.txt exist in the program files files. If exsist do nothing if it don’t exsist enable the feature.
Windows7ADSnapIns.vbs
‘Installeerd Windows 7 AD Management Snapins.
’13-07-2010 Ward Vissers
Set fso = CreateObject("Scripting.FileSystemObject")
If Not (fso.FileExists("C:\Program Files\adsnapins.txt")) Then
Dim Wsh
Set wsh = CreateObject("WScript.Shell")
wsh.run "dism /online /enable-feature /featurename:RemoteServerAdministrationTools", ,1
wsh.run "dism /online /enable-feature /featurename:RemoteServerAdministrationTools-Roles", ,1
wsh.run "dism /online /enable-feature /featurename:RemoteServerAdministrationTools-Roles-AD", ,1
wsh.run "dism /online /enable-feature /featurename:RemoteServerAdministrationTools-Roles-AD-DS", ,1
wsh.run "dism /online /enable-feature /featurename:RemoteServerAdministrationTools-Roles-AD-DS-SnapIns", ,1
fso.CopyFile "\\ad.local\afs\install\Windows7Feature\adsnapins.txt", "C:\Program Files\adsnapins.txt"
End If
Set fso = Nothing