Anfrage: Logon-Scripts

Nostog · 22. Oktober 2003

Hallo Maedels,

ich koennte mal 'ne URL gebrauchen.

Inhaltstechnisch sollte ne komplette Syntaxaufstellung drin sein.

Danke Euch

Nostog

grizzly999 · 22. Oktober 2003

Was für eine Syntaxaufstellung? Ein Logon-Script ist i.d.R eine Batchdatei. Suche mal nach Batch-Programmierung, das findest du einiges, oder poste mal, was du genau vor hast.

grizzly999

Nostog · 22. Oktober 2003

Ich möchte, dass der User beim Einloggen als Begruessungstext über den Nachrichtendienst folgendes angezeigt bekommt.

Willkommen!

Es ist Montag,

der 01.02.2003

15.23 Uhr

Sie sind angemeldet als

User123

am Server

Hauptserver

Mir fehlen einfach die Syntaxbefehle für die mehrzeilige Darstellung sowie für Datums- und Uhrzeitangaben.

larsi · 22. Oktober 2003

ist das nicht eine ziemliche Spielerei? :)

real_tarantoga · 22. Oktober 2003

der integrierte net send kann keine zeilenumbrüche (über batchaufruf - sonst schon!) - da müsstest du auf andere software oder vbscript (z.b.) ausweichen.

Bronto2k · 22. Oktober 2003

@Nostog, wenn du willst hole ich heute Abend mal mein großes Scripting Host Buch aus dem Regal, dort gab es sowas, ob es aber bei 2000/XP geht mußte testen.

Schick ne PN, dann poste ich den Code hier mal.

Ciao

Dabster · 22. Oktober 2003

Also, ich hab da mal was gebastelt ^^ wie es normal mit Batch-Datei geht.

@echo off

SETLOCAL

for /f "tokens=1 delims= " %%A IN ('date /t ^| more /e /t8') DO Set Tag=%%A

for /f "tokens=2 delims= " %%A IN ('date /t ^| more /e /t8') DO Set Datum=%%A

for /f "tokens=1 delims= " %%A IN ('time /t ^| more /e /t8') DO Set zeit=%%A

for /f "tokens=2 delims= " %%A IN ('net config workstation ^| more /e /t8 ^| FIND /I "Benutzername"') DO Set ACTUSER=%%A

IF "%TAG%"=="Mo" Set TAG=Montag

IF "%TAG%"=="Di" Set TAG=Dienstag

IF "%TAG%"=="Mi" Set TAG=Mittwoch

IF "%TAG%"=="Do" Set TAG=Donnerstag

IF "%TAG%"=="Fr" Set TAG=Freitag

IF "%TAG%"=="Sa" Set TAG=Samstag

IF "%TAG%"=="So" Set TAG=Sonntag

net send localhost "Willkommen! Es ist %TAG%, der %DATUM% %ZEIT% Uhr. Sie sind angemeldet als %ACTUSER% am Server Hauptserver."

ENDLOCAL

Musst mal sagen wie man mit der Kommandozeile rausbekommt zu welchem Server man connected is. Dann lässt sich das auch als Variable ausdrücken.

sfoc · 22. Oktober 2003

und hier als vbs

Option Explicit

Dim objWSHNet, user, domain, dayOfWeek, resWeekday, answer

set objWSHNet = CreateObject("WScript.Network")

user = objWSHNet.UserName
domain = objWSHNet.UserDomain

resWeekday = Weekday(Date)

Select Case resWeekday
Case "1"
	dayOfWeek = "Sonntag"
Case "2"
	dayOfWeek = "Montag"
Case "3"
	dayOfWeek = "Dienstag"
Case "4"
	dayOfWeek = "Mittwoch"
Case "5"
	dayOfWeek = "Donnerstag"
Case "6"
	dayOfWeek = "Freitag"
Case "7"
	dayOfWeek = "Samstag"
End Select		

answer = MsgBox("Willkommen!" & vbCrLf & "Es ist " & dayOfWeek & "," & vbCrLf & _
				 "der " & Date & vbCrLf & Time & vbCrLf & "Sie sind angemeldet als " & _
				 vbCrLf & user & vbCrLf & "am Server" & vbCrLf & domain, vbOKOnly, ".....")

regards

real_tarantoga · 22. Oktober 2003

sfoc, der wird beschlagnahmt und kommt in die sammlung ;)

also, wenn man hier alle scripts zusammensammelt, die bisher so gepostet wurden ... fällt nur so auf, wenn man das büchlein dann veröffentlicht :D

grizzly999 · 22. Oktober 2003

Original geschrieben von real_tarantoga
sfoc, der wird beschlagnahmt und kommt in die sammlung ;)

also, wenn man hier alle scripts zusammensammelt, die bisher so gepostet wurden ... fällt nur so auf, wenn man das büchlein dann veröffentlicht :D

Ja, echt genial, was sich hier für Programmierwissen im Board tummelt.

Vielleicht sollte man die alle mal zu TollCollect schicken... :D :D

grizzly999

real_tarantoga · 22. Oktober 2003

neenee - dazu bin ich zu "grün" - das wäre ressourcenverschwendung ;)

thumb · 24. Oktober 2003

Hi,

die Variable für den Anmeldeserver :

%LOGONSERVER%

Gruß

THUMB

Dabster · 24. Oktober 2003

K na dann muss das ganze so aussehen:

@echo off

SETLOCAL

for /f "tokens=1 delims= " %%A IN ('date /t ^| more /e /t8') DO Set Tag=%%A

for /f "tokens=2 delims= " %%A IN ('date /t ^| more /e /t8') DO Set Datum=%%A

for /f "tokens=1 delims= " %%A IN ('time /t ^| more /e /t8') DO Set zeit=%%A

for /f "tokens=2 delims= " %%A IN ('net config workstation ^| more /e /t8 ^| FIND /I "Benutzername"') DO Set ACTUSER=%%A

IF "%TAG%"=="Mo" Set TAG=Montag

IF "%TAG%"=="Di" Set TAG=Dienstag

IF "%TAG%"=="Mi" Set TAG=Mittwoch

IF "%TAG%"=="Do" Set TAG=Donnerstag

IF "%TAG%"=="Fr" Set TAG=Freitag

IF "%TAG%"=="Sa" Set TAG=Samstag

IF "%TAG%"=="So" Set TAG=Sonntag

net send localhost "Willkommen! Es ist %TAG%, der %DATUM% %ZEIT% Uhr. Sie sind angemeldet als %ACTUSER% am Server %LOGONSERVER%."

ENDLOCAL

Eric Cartman · 24. Oktober 2003

'########################################################################################

msg = vbTab & vbTab & vbTab & " Hallo !" & vbCr & vbCr & "Dieses Script legt unter dem Hostnamen auf C:\ eine

kleine Übersicht über die Konfiguration des Rechners an"

antwort = MsgBox(msg, vbYesNo + vbQuestion)

if antwort = vbNo then

MsgBox "Abbruch", vbExclamation

WScript.Quit

end if

path = WScript.ScriptFullName

pathfolder = left(path, InstrRev _

(path, "\"))

Set IWshNetwork2 = CreateObject("WScript.Network")

computername = IWshNetwork2.ComputerName

protokoll = "C:\" & Computername & ".txt"

Set computer = GetObject("WinNT://" & ComputerName & ",computer")

If Err.number <>0 Then

MsgBox "Keine Verbindung zu " & ComputerName

WScript.Quit

End If

On Error Goto 0

Set fs = CreateObject("Scripting.FileSystemObject")

Set output = fs.CreateTextFile(protokoll, True)

WriteLog "=================================================================" & vbCrLf

WriteLog "Diese Informationsdatei wurde für den Rechner: " & ComputerName & " erstellt." & vbCrLf

WriteLog "=================================================================" & vbCrLf

WriteLog "==================== System information =========================" & vbCrLf

WriteLog "=================================================================" & vbCrLf

Set SystemSet = GetObject("winmgmts:").InstancesOf ("Win32_ComputerSystem")

for each System in SystemSet

sys_1 = System.Caption

sys_2 = System.SystemType

sys_3 = System.Manufacturer

sys_4 = System.Model

for each System in ProcSet

proc_1 = System.Caption

proc_2 = System.Manufacturer

proc_3 = System.CurrentClockSpeed

proc_4 = System.Name

for each System in BiosSet

bios_1 = System.Version

bios_2 = System.SerialNumber

for each System in OS_Set

os_1 = System.Caption

os_2 = System.Version

os_3 = System.Manufacturer

os_4 = System.CSDVersion

os_5 = System.TotalVisibleMemorySize

os_6 = System.BootDevice

& vbCrLf

WriteLog "Prozessortyp: " & proc_1 & vbCrLf & "Hersteller: " & proc_2 & vbCrLf & "Taktrate: " & proc_3 & "MHz" &

vbCrLf & "Prozessorname: " & proc_4 & vbCrLf

WriteLog "Bios Version: " & bios_1 & vbCrLf & "Seriennummer: " & bios_2 & vbCrLf

WriteLog "Betriebssystem: " & os_1 & vbCrLf & "Version: " & os_2 & vbCrLf & "Hersteller: " & os_3 & vbCrLf & "SP: " &

os_4 & vbCrLf & "Arbeitsspeicher: " & os_5 & " MB" & vbCrLf & "Bootkonfiguration: " & os_6 & vbCrLf

WriteLog "=================================================================" & vbCrLf

WriteLog "==================== Network information ========================" & vbCrLf

WriteLog "=================================================================" & vbCrLf

Set wmi = GetObject("winmgmts:root/cimv2")

wql = "select * from win32_networkAdapterConfiguration where IPEnabled = true"

Set instances = wmi.ExecQuery(wql)

For each card in instances

ip = ip & Join(card.IPAddress, "/") & vbCr

ip = Left(ip, Len(ip)-1)

End If

For each card in instances

dgw = dgw & Join(card.DefaultIPGateway, "/") & vbCr

dgw = Left(dgw, Len(dgw)-1)

End If

For each card in instances

dns = dns & Join(card.DNSServerSearchOrder, "/") & vbCr

dns = Left(dns, Len(dns)-1)

End If

For each card in instances

snm = snm & Join(card.IPSubnet, "/") & vbCr

snm = Left(snm, Len(snm)-1)

End If

For each card in instances

nam = card.Description

dnd = card.DNSDomain

mac = card.MACAddress

Gateway: " & dgw & vbCrLf & "Eingetragene DNS-Server: " & dns & vbCrLf & "DNS-Suffix: " & dnd & vbCrLf &

"MAC-Adresse: " & mac & vbCrLf

Eric Cartman · 24. Oktober 2003

WriteLog "=================================================================" & vbCrLf

WriteLog "==================== Drive information =========================" & vbCrLf

WriteLog "=================================================================" & vbCrLf

Set IFileSystem3 = CreateObject("Scripting.FileSystemObject")

Set IDriveCollection = IFileSystem3.Drives

For each IDrive in IDriveCollection

drivelist = drivelist & "Laufwerk " & IDrive.DriveLetter & vbCrLf

If not IDrive.isReady then

drivelist = drivelist & "- [kein Datenträger eingelegt]" & vbCrLf

else

drivelist = drivelist & "- Gesamtgröße: " & ShowInMB(IDrive.TotalSize)& vbCrLf

End If

WriteLog "=================================================================" & vbCrLf

WriteLog "==================== .msi Applications =======================" & vbCrLf

WriteLog "=================================================================" & vbCrLf

Set wshnet = CreateObject("WScript.Network")

localserver = wshnet.ComputerName

On Error Resume Next

Set wmi = GetObject("winmgmts://")

wql = "select * from win32_product"

Set ergebnis = wmi.ExecQuery(wql)

For each produkt in ergebnis

antwort = produkt.getObjectText_

progs = progs & GetDate(produkt.InstallDate) & vbTab _

& Adjust(produkt.Version) & vbTab & produkt.Name & vbCrLf

Function GetDate(txt)

jahr = Left(txt, 4)

monat = Mid(txt, 5,2)

tag = Right(txt, 2)

GetDate = DateSerial(jahr, monat, tag)

End Function

Function ShowInMB(wert)

ShowInMB = FormatNumber(wert / 1024^2,1)& " MB"

End Function

Function Adjust(txt)

Adjust = Left(txt & string(20, "0"), 10)

End Function

WriteLog "=================================================================" & vbCrLf

infos.Close

output.Close

Sub WriteLog(text)

output.WriteLine text

End Sub

MsgBox vbTab & vbTab & vbTab & "Script beendet." & vbCr & vbCr & "Die Konfiguration des Rechners wurde unter C:\" &

Computername & ".txt gespeichert."

Anmelden

Anfrage: Logon-Scripts

Empfohlene Beiträge

Nostog 10

Link zu diesem Kommentar

grizzly999 11

Link zu diesem Kommentar

Nostog 10

Link zu diesem Kommentar

larsi 10

Link zu diesem Kommentar

real_tarantoga 11

Link zu diesem Kommentar

Bronto2k 10

Link zu diesem Kommentar

Dabster 10

Link zu diesem Kommentar

sfoc 10

Link zu diesem Kommentar

real_tarantoga 11

Link zu diesem Kommentar

grizzly999 11

Link zu diesem Kommentar

real_tarantoga 11

Link zu diesem Kommentar

thumb 10

Link zu diesem Kommentar

Dabster 10

Link zu diesem Kommentar

Eric Cartman 10

Link zu diesem Kommentar

Eric Cartman 10

Link zu diesem Kommentar

Schreibe einen Kommentar

Menu

Aktivitäten