Rem {VERSION..VER_DX_NT_1_0}
 
Option Explicit
 
Sub Main
 
	Dim oDXCopyObj As Object
	Dim sOS As String	 
	Set oDXCopyObj = CreateObject("DxftClient.DxftClient.1")
	Dim objShell
	Dim OsType
	Dim bOs64
	Set objShell = CreateObject ("WScript.Shell")
 

	' überprüfen ob dies ein 64Bit System ist
	OsType = objShell.RegRead("HKLM\SYSTEM\CurrentControlSet\Control\Session Manager\Environment\PROCESSOR_ARCHITECTURE")
	If OsType = "x86" Then
	' 32Bit OS
		bOs64 = false    
		ElseIf OsType = "AMD64" Then
	' 64Bit OS
		bOs64 = true
	End If
 
	' Default User kopieren
	MakeDir32("-q", "C:\Temp\DEFAULTSWP\")
 If bOs64=true Then 
	oDXCopyObj.DxCopy("-v -f -r ""{dynamic..depotrechner}:{dynamic..verzeichnis}\pkg\x64\""" + " " + """C:\Temp\DEFAULTSWP\""")
	copy32 ("-q -r -f", "C:\Temp\DEFAULTSWP\" , "C:\USERS\")
	
	'Windows Features bearbeiten
	 wexec32("{ENVIRONMENT..SYSTEMROOT}\Sysnative\cmd.exe", "/c dism.exe /online /Enable-Feature /FeatureName:SNMP /NoRestart", SW_NORMAL) 
	 wexec32("{ENVIRONMENT..SYSTEMROOT}\Sysnative\cmd.exe", "/c dism.exe /online /Enable-Feature /FeatureName:WMISnmpProvider /NoRestart", SW_NORMAL) 
	 wexec32("{ENVIRONMENT..SYSTEMROOT}\Sysnative\cmd.exe", "/c dism.exe /online /Disable-Feature /FeatureName:WindowsMediaPlayer /NoRestart", SW_NORMAL) 
	 wexec32("{ENVIRONMENT..SYSTEMROOT}\Sysnative\cmd.exe", "/c dism.exe /online /Disable-Feature /FeatureName:MediaCenter /NoRestart", SW_NORMAL) 
	 wexec32("{ENVIRONMENT..SYSTEMROOT}\Sysnative\cmd.exe", "/c dism.exe /online /Disable-Feature /FeatureName:OpticalMediaDisc /NoRestart", SW_NORMAL) 
	 wexec32("{ENVIRONMENT..SYSTEMROOT}\Sysnative\cmd.exe", "/c dism.exe /online /Disable-Feature /FeatureName:MediaPlayback /NoRestart", SW_NORMAL) 	 
 Else
	oDXCopyObj.DxCopy("-v -f -r ""{dynamic..depotrechner}:{dynamic..verzeichnis}\pkg\x86\""" + " " + """C:\Temp\DEFAULTSWP\""")
	copy32 ("-q -r -f", "C:\Temp\DEFAULTSWP\" , "C:\USERS\")
	
	'Windows Features bearbeiten
	 wexec32("{ENVIRONMENT..SYSTEMROOT}\System32\cmd.exe", "/c dism.exe /online /Enable-Feature /FeatureName:SNMP /NoRestart", SW_NORMAL) 
	 wexec32("{ENVIRONMENT..SYSTEMROOT}\System32\cmd.exe", "/c dism.exe /online /Enable-Feature /FeatureName:WMISnmpProvider /NoRestart", SW_NORMAL) 
	 wexec32("{ENVIRONMENT..SYSTEMROOT}\System32\cmd.exe", "/c dism.exe /online /Disable-Feature /FeatureName:WindowsMediaPlayer /NoRestart", SW_NORMAL) 
	 wexec32("{ENVIRONMENT..SYSTEMROOT}\System32\cmd.exe", "/c dism.exe /online /Disable-Feature /FeatureName:MediaCenter /NoRestart", SW_NORMAL) 
	 wexec32("{ENVIRONMENT..SYSTEMROOT}\System32\cmd.exe", "/c dism.exe /online /Disable-Feature /FeatureName:OpticalMediaDisc /NoRestart", SW_NORMAL) 
	 wexec32("{ENVIRONMENT..SYSTEMROOT}\System32\cmd.exe", "/c dism.exe /online /Disable-Feature /FeatureName:MediaPlayback /NoRestart", SW_NORMAL) 	 
 End If	
	
	rm32 ("-q -r -f", "C:\Temp\DEFAULTSWP\")
	
	'RDP Verbindung
	WriteRegDWord (HKLM, "SYSTEM\CurrentControlSet\Control\Terminal Server", "fDenyTSConnections", 0)
 
	'Kerberos
	WriteRegDWord (HKLM, "SYSTEM\CurrentControlSet\Control\Lsa\Kerberos\Parameters", "MaxTokenSize", 65535)
 
	'Authenticated Users von C: entfernen
	 wexec32("icacls.exe", "C:\ /remove:g *S-1-5-11", SW_NORMAL)
	 
	 'BGINFO
	 oDXCopyObj.DxCopy("-v -f -r ""{dynamic..depotrechner}:{dynamic..verzeichnis}/pkg/bginfo.exe""" + " " + """C:\""")
     oDXCopyObj.DxCopy("-v -f -r ""{dynamic..depotrechner}:{dynamic..verzeichnis}/pkg/info.bgi""" + " " + """C:\""")     
	 oDXCopyObj.DxCopy("-v -f -r ""{dynamic..depotrechner}:{dynamic..verzeichnis}/pkg/Bginfo.lnk""" + " " + """C:\ProgramData\Microsoft\Windows\Start Menu\Programs\Startup\""")
	 
	'Aufraeumen
	Set oDXCopyObj=Nothing
	
End Sub