AppStd/Skriptentwickung
8
0
Fork 0
Code Activity

The complete folder structure has been changed or updated

Browse Source
This commit is contained in:
KammM
2025-09-19 18:24:40 +02:00
parent 796473a8c9
commit 1f0d1613a5
216 changed files with 330971 additions and 809 deletions
Download Patch File Download Diff File Expand all files Collapse all files

76
current/DD-Core/Rename-WindreamServer/Rename-WindreamServer-forUser.ps1 Normal file
View File

@@ -0,0 +1,76 @@
# PowerShell 2.0 Script
# Änderung des windream Servers
# Digital Data
# Ludwig-Rinn-Strasse 16
# 35452 Heuchelheim
# Tel.: 0641 / 202360
# E-Mail: info@didalog.de
# Version 1.0
# Letzte Aktualisierung: 15.10.2014
# WICHTIG: Falls sich dieses Skript nicht ausführen lässt,
# muss dieser PS-Befehl noch mit administrativen Rechten ausgeführt werden:
# set-executionpolicy unrestricted
#Requires –Version 2.0
#-----------------------------------------------------------------------------------------------------
############################ Zusätzliche Assemblys hinzufügen bzw. laden. ############################
#-----------------------------------------------------------------------------------------------------
[void][System.Reflection.Assembly]::LoadWithPartialName('Microsoft.VisualBasic')
[void][System.Reflection.Assembly]::LoadwithPartialName("System.Windows.Forms")
#-----------------------------------------------------------------------------------------------------
######################################## Variablen definieren. #######################################
#-----------------------------------------------------------------------------------------------------
Set-variable -Name IdXPolling -Value 1000
Set-variable -Name wdServerAlt -Value "windreamserver2"
Set-variable -Name wdServerNeu -Value "windreamserver"
#-----------------------------------------------------------------------------------------------------
####################################### Funktionen definieren. #######################################
#-----------------------------------------------------------------------------------------------------
# Funktion für eine VBScript-typische Messagebox. Der Inhalt der Meldung wird in die Log Datei geschrieben.
Function Func-Show-MsgBox
{
Param
(
[Parameter(Mandatory=$true)]
[String]$Text,
[String]$Title = 'Message',
[String]$Icon = 'YesNo,Information'
)
#Func-Write-LogDatei -LogEintrag -LogEintrag "MessageBox-Inhalt: $Text"
[Microsoft.VisualBasic.Interaction]::MsgBox($text, $icon, $title)
}
$PathTest = Test-Path -Path "HKCU:\Software\A.I.S. GmbH\windream\3.6\ServerShareSelector\$wdServerAlt" -PathType Container
IF ($PathTest -eq 'True')
{
Write-Host "Alter Servereintrag wurde erkannt $wdServerAlt, wird nun ersetzt mit $wdServerNeu"
Set-ItemProperty -Path "HKCU:\Software\A.I.S. GmbH\windream\3.6\IndexServer" -Name Policy -Value $IdxPolling -Type DWord
Set-ItemProperty -Path "HKCU:\Software\A.I.S. GmbH\windream\3.6\ServerShareSelector\$wdServerAlt" -Name ClientHostName -Value $wdServerNeu -Type String
Set-ItemProperty -Path "HKCU:\Software\A.I.S. GmbH\windream\3.6\ServerShareSelector\$wdServerAlt" -Name DMSServer -Value $wdServerNeu -Type String
Set-ItemProperty -Path "HKCU:\Software\A.I.S. GmbH\windream\3.6\ServerShareSelector\$wdServerAlt" -Name TCPServer -Value $wdServerNeu -Type String
Rename-Item -Path "HKCU:\Software\A.I.S. GmbH\windream\3.6\ServerShareSelector\$wdServerAlt" -NewName $wdServerNeu
Set-ItemProperty -Path "HKCU:\Software\A.I.S. GmbH\windream\3.6\ServerShareSelector" -Name CurrentAlias -Value $wdServerNeu -Type String
Set-ItemProperty -Path "HKCU:\Software\A.I.S. GmbH\windream\3.6\ServerShareSelector" -Name VFSAlias -Value $wdServerNeu -Type String
Func-Show-MsgBox -Text "Bitte diesen Benutzer ab und wieder anmelden, damit die Änderungen wirksam werden!" -Title "$wdServerAlt -> $wdServerNeu" -Icon OKonly
}
ELSE
{
Func-Show-MsgBox -Text "Der zu ändernde Servereintrag $wdServerAlt, konnte nicht gefunden werden!" -Title "$wdServerAlt -> $wdServerNeu" -Icon OKonly
}