https://znil.net/index.php?action=history&feed=atom&title=Windows%3AVBS_Rechnernamen_auswerten_und_gegebenenfalls_Script_beendenWindows:VBS Rechnernamen auswerten und gegebenenfalls Script beenden - Versionsgeschichte2026-04-28T17:59:26ZVersionsgeschichte dieser Seite in znilwikiMediaWiki 1.43.8https://znil.net/index.php?title=Windows:VBS_Rechnernamen_auswerten_und_gegebenenfalls_Script_beenden&diff=1903&oldid=prevBLinz am 21. Januar 2012 um 21:50 Uhr2012-01-21T21:50:49Z<p></p>
<p><b>Neue Seite</b></p><div>[[Kategorie:Windows]][[Kategorie:Windows_XP]][[Kategorie:Terminalserver]][[Kategorie:Windows_Server_2000]][[Kategorie:Windows_Server_2003]][[Kategorie:Windows_Server_2008]][[Kategorie:Windows_Vista]][[Kategorie:Windows_7]][[Kategorie:Active_Directory]][[Kategorie:Batch]][[Kategorie:Anmeldeskripte]][[Kategorie:VBA]]<br />
Nachfolgendes Script wurde bei einem Kunden in ein vorhandenes Script eingebaut.<br><br />
<br />
Es prüft ob der Rechnername auf dem das Script ausgeführt wird einen bestimmten Anfang hat. Wenn ja beendet es sich gleich wieder.<br><br />
<br />
'''[[Media:Rechnername.vbs]]'''<br />
<br />
<br />
<source lang="vb"><br />
' Rechnernamen überprüfen und Script ggf. beenden<br />
' Prüft ob der lokale Rechnername mit ... beginnt,<br />
' Wenn ja wird das Script gleich wieder beendet<br />
'<br />
' Juni 2011 von Bernhard Linz<br />
' Bernhard.Linz@datagroup.de<br />
' admin@znil.net<br />
<br />
' #####################################################################<br />
' Schritt 1: lokalen Rechnernamen ermitteln<br />
Set wshShell = wScript.CreateObject( "WScript.Shell" )<br />
strComputerName = wshShell.ExpandEnvironmentStrings( "%COMPUTERNAME%" )<br />
' Nachfolgende Zeile würde eine MsgBox mit dem Namen öffnen<br />
'wScript.Echo "Rechnername: " & strComputerName<br />
<br />
' #####################################################################<br />
' Schritt 2: ersten 3 Zeichen des Rechnernamens abschneiden<br />
strComputerNameSplit = Left(strComputerName,3)<br />
<br />
' #####################################################################<br />
' Schritt 3: prüfen ob dieser mit "XEN" beginnt - wenn ja Script beenden<br />
If strComputerNameSplit = "XEN" Then<br />
'wScript.Echo "Beginnt mit XEN!: " & strComputerNameSplit<br />
wscript.quit<br />
End If<br />
<br />
' #####################################################################<br />
' Schritt 4: Wenn wir bis hierher kommen gab es keine Übereinstimmung<br />
' wScript.Echo "Komme zum Ende weil Rechnername nicht mit XEN beginnt"<br />
' eingene Anweisungen ...<br />
'<br />
<br />
</source><br />
<comments /></div>BLinz