Anfrage: Logon-Scripts

[Nostog 10]

Hallo Maedels,

ich koennte mal 'ne URL gebrauchen.

Inhaltstechnisch sollte ne komplette Syntaxaufstellung drin sein.

 

Danke Euch

Nostog

[grizzly999 11]

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 10]

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 10]

ist das nicht eine ziemliche Spielerei? :)

[real_tarantoga 11]

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 10]

@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 10]

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 10]

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 11]

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 11]

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 11]

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

[thumb 10]

Hi,

 

die Variable für den Anmeldeserver :

 

%LOGONSERVER%

 

Gruß

THUMB

[Dabster 10]

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 10]

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

 

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

next

 

Set ProcSet = GetObject("winmgmts:").InstancesOf ("Win32_Processor")

for each System in ProcSet

proc_1 = System.Caption

proc_2 = System.Manufacturer

proc_3 = System.CurrentClockSpeed

proc_4 = System.Name

next

 

Set BiosSet = GetObject("winmgmts:").InstancesOf ("Win32_BIOS")

for each System in BiosSet

bios_1 = System.Version

bios_2 = System.SerialNumber

next

 

Set OS_Set = GetObject("winmgmts:").InstancesOf ("Win32_OperatingSystem")

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

next

WriteLog "Name: " & sys_1 & vbCrLf & "Typ: " & sys_2 & vbCrLf & "Hersteller: " & sys_3 & vbCrLf & "Modell: " & sys_4

 

& 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

Next

 

If Len(ip)>0 Then

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

End If

 

For each card in instances

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

Next

 

If Len(dgw)>0 Then

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

End If

 

For each card in instances

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

Next

 

If Len(dns)>0 Then

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

End If

 

For each card in instances

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

Next

 

If Len(snm)>0 Then

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

End If

 

For each card in instances

nam = card.Description

dnd = card.DNSDomain

mac = card.MACAddress

Next

 

WriteLog "Name: " & nam & vbCrLf & "IPAdresse: " & ip & vbCrLf & "Subnetzmaske: " & snm & vbCrLf & "Standard

 

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

 

"MAC-Adresse: " & mac & vbCrLf

[Eric Cartman 10]

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

Next

 

WriteLog drivelist

 

 

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

Next

 

WriteLog progs

 

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."