Quelltext der Seite Windows:VBS Rechnernamen auswerten und gegebenenfalls Script beenden

[[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]]
Nachfolgendes Script wurde bei einem Kunden in ein vorhandenes Script eingebaut.<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>

'''[[Media:Rechnername.vbs]]'''


<source lang="vb">
' Rechnernamen überprüfen und Script ggf. beenden
' Prüft ob der lokale Rechnername mit ... beginnt,
' Wenn ja wird das Script gleich wieder beendet
'
' Juni 2011 von Bernhard Linz
' Bernhard.Linz@datagroup.de
' admin@znil.net

' #####################################################################
' Schritt 1: lokalen Rechnernamen ermitteln
Set wshShell = wScript.CreateObject( "WScript.Shell" )
strComputerName = wshShell.ExpandEnvironmentStrings( "%COMPUTERNAME%" )
' Nachfolgende Zeile würde eine MsgBox mit dem Namen öffnen
'wScript.Echo "Rechnername: " & strComputerName

' #####################################################################
' Schritt 2: ersten 3 Zeichen des Rechnernamens abschneiden
strComputerNameSplit = Left(strComputerName,3)

' #####################################################################
' Schritt 3: prüfen ob dieser mit "XEN" beginnt - wenn ja Script beenden
If strComputerNameSplit = "XEN" Then
	'wScript.Echo "Beginnt mit XEN!: " & strComputerNameSplit
	wscript.quit
End If

' #####################################################################
' Schritt 4: Wenn wir bis hierher kommen gab es keine Übereinstimmung
' wScript.Echo "Komme zum Ende weil Rechnername nicht mit XEN beginnt"
' eingene Anweisungen ...
'

</source>
<comments />