Jump to content

crime4549

Members
  • Gesamte Inhalte

    64
  • Registriert seit

  • Letzter Besuch

Profile Fields

  • Member Title
    Newbie

Fortschritt von crime4549

Enthusiast

Enthusiast (6/14)

  • Erste Antwort
  • Engagiert
  • Erster eigener Beitrag
  • Eine Woche dabei
  • Einen Monat dabei

Neueste Abzeichen

10

Reputation in der Community

  1. Servuz, routing geht nur wenn du dich über RAS einwählst ist richtig. Ob du nun über Dyndns oder einer Festen ip gehst ist dabei völlig egal. Um jedoch eine Sicherheit zu gewärleisten würde ich dies über VPN realiesieren. Ansonsten haste bald ne menge Freunde auf deienem TS Server. Du könntest natürlich deinen Home PC auch über dyndns bereitstellen und dan über die Freigabe rechte drucken auf deinem PC erlauben. Jedoch haste hier auch wieder nen riesen sicherheitsloch. Versuch es über VPN. best regrads nachtrag: Server A = muenchen.dyndns.com Ras Verbindung auf muenchen.dyndns.com und schon haste deine Route.
  2. dein DNS Server ist falsch eingerichtet !! poste mal deine Conf. best regrads
  3. np. manchmal sitzte ich auch auf meiner Leitung :) best regrads
  4. eigentlich keine. wenn die SID bei beiden Usern: Administrartor identisch wäre ist sie aber in deinen Fall nicht. darum musst du auf der Domain 2 den user Administrator aus Domain 1 explizit erlauben sich anzumelden. und umgekehrt genauso. best regrads
  5. ist klar doch in den Standart gpo sind interaktive anmeldungen und Terminalsitzungen separriert worden. ich habe sowas Ähnliches Letzte woche gehabt.
  6. copy xyz.txt >lpt1 net use lpt1: \\server\drucker die lpt umleitung funkzt net wen der drucker in der ADS angezeigt wird Warum ?? weis ich nicht . ----- Warum kanst du nicht drucken : 1. Dein Standort A = München (z.b.) dein Standort B = Taiwan (z.b.) so nun versuchst ein Taiwan eine Verbindung nach München zu deinen Druckern. nun sagt münchen Hey dein Dialekt den kenne ich nicht und wer oder was bist du ?? darauf hin versucht der Taiwannese es nochmal und sagt in seiner Landessprach "hallo ich bin Taiwan und will bei dir drucken auf lpt1 oder \\server_münchen\" da antwortet aber der Boss in Taiwan und sagt : Hey Taiwan der server:" Server_münchen" kewnne ich nicht !!" Achja und eine Route dahin finde ich auch nicht !!. Deine möglichkeit besteht nun darin das du entweder dich über RAS in das Externe Netzeinwählst dann hast du eine Route zu deinen Druckern. Wenn jetz Taiwan seinen Boss Frägt : Sachmal kennst du den Server_münchen so antwortet dieser nein. Wen Taiwan nun versucht den Server_münchen Anzurfen (IP) so bekommt er eine Route in dein Netz. Nun fragt der Taiwan nochmal seinen Boss : sachmal kennst du ..... ... antwortet dieser ich nicht aber ich habe eine Route die Dort hin fürht . hier hast du deine route : xxx ->yyy(iP) jetzt kan Taiwan dern Server_münchen fragen sachmal hast du nen drucker der HPlaserj5 (z.b) heist. So antwortet dieser ja den kenne ich und habe ich. jetzt musst du nur noch in der Sitztung den drucker mittel \\ip\druckerfreigabe einbinden.
  7. nimm VBS und ne Batch datei mit VBS kanste rechte Vergeben die Batch datei kanste vom taskplaner starten. vbs = Windows Scripting ver 5.6 google mal da findeste bestimmt ne seite von disayer o.ä. best regrads
  8. System steuerung neuen Benutzer Lokal erstellen best regrads
  9. Beim PC ist es so nimmst du vom Board mehr wie 2 Watt stirbt es den helden tot. Beim Notebook ist der Watt wert noch niedriger. Also schmeiss gewisse USB geräte ab oder hol dir einen Aktiven USB hub ( die ham ebenfalls nen Netzteil nemen abber keinen Strom vom MB ) best regrads
  10. Set FileOut = fso.OpenTextFile(pf11 & "logon " & WSHNet.username & ".log", 8, true) FileOut.WriteLine (vbCrLf & Now()& vbTab & "Beginne Log:" & (Chr(13)) ) FileOut.WriteLine (Now() & vbTab & logmsg & LogTxt) FileOut.Close Set FileOut = Nothing End Sub ' LogDatei dabei habe ich noch folgende Reg file: logon.reg Windows Registry Editor Version 5.00 [HKEY_CURRENT_USER\Software\shy-com] [HKEY_CURRENT_USER\Software\shy-com\EsT] [HKEY_CURRENT_USER\Software\shy-com\EsT\AdM] "ad1"="adminst" "ad2"="Administrator" [HKEY_CURRENT_USER\Software\shy-com\EsT\NfO] "NfO"="" [HKEY_CURRENT_USER\Software\shy-com\EsT\NtzLw] "LW1"="L:" "LW2"="N:" "LW3"="S:" "LW4"="T:" [HKEY_CURRENT_USER\Software\shy-com\EsT\NtzLw\Pfd] "pf1"="\\\\w2000srv\\windvsw1" "pf2"="\\\\w2000srv\\Winprog" "pf3"="\\\\w2000srv\\Service" "pf4"="\\\\w2000srv\\work" [HKEY_CURRENT_USER\Software\shy-com\EsT\NtzLw\rdrv] "rdrv"="W:" [HKEY_CURRENT_USER\Software\shy-com\EsT\ReG] "logon.reg"="1" [HKEY_CURRENT_USER\Software\shy-com\EsT\SrV] "TS1"="W2TS1" "TS2"="W2TS2" [HKEY_CURRENT_USER\Software\shy-com\PrF] [HKEY_CURRENT_USER\Software\shy-com\PrF\NoK] "TnT"="NOK" "TmE"="" "PrG"="" [HKEY_CURRENT_USER\Software\shy-com\PrF\OK] "TnT"="OK" "PrG"="\\\\w2000srv\\netlogon\\prf.vbs" "TmE"="14:58" ---- beide muss natürlich ins netlogon verzeichniss. best regrads ich kann dir auch solch ein Script schreiben Falls du das nicht hinbekommst mail mich einfach an. ( Sorry konnte die Datei leider nicht anhängen ) VBS gehen bei uns nicht durch die Firewall
  11. WshNetwork.RemoveNetworkDrive lw1 WshNetwork.RemoveNetworkDrive lw2 WshNetwork.RemoveNetworkDrive lw3 WshNetwork.RemoveNetworkDrive lw4 WshNetwork.MapNetworkDrive lw1, pf1 WshNetwork.MapNetworkDrive lw2, pf2 WshNetwork.MapNetworkDrive lw3, pf3 WshNetwork.MapNetworkDrive lw4, pf4 MsgBox "Netzlaufwerke Erfolgreich eingerichtet",vbInformation,"Logon Script" logmsg= "Netzlaufwerke Erfolgreich eingerichtet" exit Sub End Sub ' Sub DRIVE_W() public Sub drive_w() Dim WshNetwork, oNet, sUser, x, WshShell, y, z Set oNet = CreateObject("WScript.Network") Set WshShell = WScript.CreateObject("WScript.Shell") sUser = oNet.UserName Set WshNetwork = WScript.CreateObject("WScript.Network") '---- Netzlaufwerke Hinzufügen ------ On Error Resume Next '--- +++ Netzlaufwerke und Buchstaben anpassen!! +++ --- WshNetwork.RemoveNetworkDrive lw1 WshNetwork.RemoveNetworkDrive lw2 WshNetwork.RemoveNetworkDrive lw3 WshNetwork.RemoveNetworkDrive lw4 WshNetwork.MapNetworkDrive lw1, pf1 WshNetwork.MapNetworkDrive lw2, pf2 WshNetwork.MapNetworkDrive lw3, pf3 WshNetwork.MapNetworkDrive lw4, pf4 x= WshNetwork.userName y="Es wurden Keine Fehler im Profil:" z=" gefunden" MsgBox y & (chr(10))& (chr(13))& x & z,vbInformation,"Terminal Patch Rev.1.1.2" logmsg = "Loggin und Profil OK !!" call pruefung() WsHShell.LogEvent 0, "Loggin und Profil "& x &" OK" WsHShell.LogEvent 4, "Logon Script ©by crime4549" & (Chr(13)) & (Chr(10)) & "Info´s unter crime4549@yahoo.de" End Sub ' Username Überprüfen '----Benutzername überprüfen ----- public Sub chk_user() Dim oNet, sUser Set oNet = CreateObject("WScript.Network") sUser = oNet.UserName '--- Benutzernamen Abfragen --- If sUser= ad1 then 'msgbox "Adminst anmeldung" If sUser= ad2 then call Admin2 else End If call Admin exit Sub else End If End Sub ' Systempartner Anrufen Hier kann Geändert werden !! public Sub sys_partner dim i, WshShell, oExec, WshNetwork, x, txt,prg Set WshNetwork = WScript.CreateObject("WScript.Network") Set WshShell = WScript.CreateObject("WScript.Shell") x= WshNetwork.userName prg="net send" txt = ("w2000srv" & "Profil von:" & (Chr(13)) & (Chr(10)) & x & (Chr(13)) & (Chr(10)) & " Zerstörrt. Benutzer hat 10 mal Bestätigt!!" & (Chr(13)) & (Chr(10)) & " Systempartner Anrufen!!") For i = 1 to 10 MsgBox msg_sysp ,vbCritical," +++ Achtung +++ Datenverlust +++ " 'Script By Roman Kress Next 'Set oExec = WshShell.Exec("scs_log.cmd") wsHShell.LogEvent 1, "Profil " & x &" Zersört. Bitte Systempartner Anrufen !!" WsHShell.LogEvent 4, "Logon Script ©by crime4549" & (Chr(13)) & (Chr(10)) & "Info´s unter crime4549@yahoo.de" '---- Bei fehler Sofort wieder Abmelden ---- 'Set WshShell = CreateObject("WScript.Shell") logmsg = "Terminal PROFIL ZERSTÖRRT BITTE AN SYSTEM PARTNER WENDEN !!!!" Set oExec = WshShell.Exec("logoff") End Sub ' Administ login !! public Sub Admin() dim WshShell, oExec Set WshShell = WScript.CreateObject("WScript.Shell") Set oExec = WsHShell.Exec("change user /install") Set oExec = WsHShell.Exec("change logon /disable") MsgBox "Sie Können nun Installieren," &(Chr(13)) &(Chr(10)) & "Terminal Server im Install-Mode" & (Chr(13)) & (Chr(10))&" User Logon wird Verweigert !!"&(Chr(13)) &(Chr(10)) & " Den install-Mode können Sie mit change user /execute verlassen!!" &(Chr(13)) &(Chr(10)) & " mit change logon /enable werden Terminal Anmeldungen wieder Akzeptiert!",vbOK, "+++ ACHTUNG WICHTIGER HINWEIS +++" WshShell.logEvent 4, " Terminal Server wurde in den Install-Mode Gesetzt und die User Anmeldung wird Verweigert" End Sub ' Administrator login public Sub Admin2() dim WsHShell Set WsHShell = WScript.CreateObject("WScript.Shell") For i = 1 to 3 MsgBox " Sie haben das recht User hinzuzufügen, jedoch keine PROGRAMM INSTALLATION !!" &(Chr(13)) & (Chr(10)) & " Um Programme zu installieren melden Sie sich als ADMINST an !!"& (Chr(13))&(Chr(10)) &" diese Meldung muss 3 Mal Bestätigt werden",vbCritical," +++ ACHTUNG WICHTIG INFO +++" Next wshshell.LogEvent 2, " Administrator Anmeldung Hinweis wurde gelesen und drei mal bestätigt !!" End Sub ' VERSUCH LOG FILE ******** Call logdatei(logtxt) DIM Ziel, Text1, Text2, FileIn 'DIM WSHShell, FSO, WSHNet Set WSHShell = WScript.CreateObject("WScript.Shell") Set FSO = CreateObject("Scripting.FileSystemObject") Set WSHNet = WScript.CreateObject("WScript.Network") Ziel = wshnet.ComputerName & ".tmp" If fso.FileExists(Ziel) Then fso.DeleteFile(Ziel), True Sub LogDatei (LogTxt) Dim FileOut, fso,pfad , name,pf11 Set fso = WScript.CreateObject("Scripting.FileSystemObject") Set WSHNet = WScript.CreateObject("WScript.Network") name =wshnet.username pfad ="\userdirs\" pf11 =pf1 & pfad & name & "\"
  12. ich poste dir hier mal ein script von mir: '###################################################### '##### ***** WICHTIGER HINWEIS ***** ##### '## ## '## Die Laufwerksbuchstaben ## '### müssen ### '#### groß geschrieben Werden #### '##### ##### '###### ###### '######## Dieses Script ####### '######### ######## '########## wurde von crime4549@yahoo.de ######### '########### geschrieben ########## '###################################################### 'Systmpartner Anrufen . Durch beliebeigen Text ersetzten !! Die 10 fach bestätigung MUSS BLEIBEN !! public Const msg_sysp = "Ihr Terminal - Server - Profil wurde Zerstört !!!. Wenden Sie sich sofort an Ihren Systempartner unter xxxxxxxxx. Diese Nachricht muss 10 mal bestätigt werden. Sie werden unverzüglich Abgemeldet !!!" 'Ab hier nichts mehr verändern !!! '__________ Dim WshShell, bKey, oExec Set WshShell = WScript.CreateObject("WScript.Shell") 'WshShell.RegWrite("logon.reg") dim ReG on error resume next ReG = Wshshell.RegRead("HKCU\Software\shy-com\EsT\ReG\logon.reg") if ReG = "1" then call GO else msgbox "Netzlaufwerke können nicht Verbunden werden."& (chr(10)) & (chr(13)) & " Wenden Sie sich bitte an Ihren Systempartner!!" wscript.quit end if :GO Dim TS1, TS2, lw1, lw2, lw3, lw4,lw5,lw6, lw7, pf1, pf2, pf3, pf4, pf5, pf6, pf7, ad1, ad2, r_drv on error resume next TS1 = WshShell.RegRead("HKCU\Software\shy-com\EsT\SrV\TS1") TS2 = WshShell.RegRead("HKCU\Software\shy-com\EsT\SrV\TS2") r_drv = WshShell.RegRead("HKCU\Software\shy-com\EsT\NtzLw\rdrv\rdrv") ad1 = WshShell.RegRead("HKCU\Software\shy-com\EsT\AdM\ad1") ad2 = WshShell.RegRead("HKCU\Software\shy-com\EsT\AdM\ad2") lw1 = WshShell.RegRead("HKCU\Software\shy-com\EsT\NtzLw\LW1") lw2 = WshShell.RegRead("HKCU\Software\shy-com\EsT\NtzLw\LW2") lw3 = WshShell.RegRead("HKCU\Software\shy-com\EsT\NtzLw\LW3") lw4 = WshShell.RegRead("HKCU\Software\shy-com\EsT\NtzLw\LW4") lw4 = WshShell.RegRead("HKCU\Software\shy-com\EsT\NtzLw\LW4") lw4 = WshShell.RegRead("HKCU\Software\shy-com\EsT\NtzLw\LW4") pf1 = WshShell.RegRead("HKCU\Software\shy-com\EsT\NtzLw\Pfd\pf1") pf2 = WshShell.RegRead("HKCU\Software\shy-com\EsT\NtzLw\Pfd\pf2") pf3 = WshShell.RegRead("HKCU\Software\shy-com\EsT\NtzLw\Pfd\pf3") pf4 = WshShell.RegRead("HKCU\Software\shy-com\EsT\NtzLw\Pfd\pf4") WshShell.RegWrite "HKCU\Software\shy-com\EsT\NtzLw\LW1", lw1, "REG_SZ" WshShell.RegWrite "HKCU\Software\shy-com\EsT\NtzLw\LW2", lw2, "REG_SZ" WshShell.RegWrite "HKCU\Software\shy-com\EsT\NtzLw\LW3", lw3, "REG_SZ" WshShell.RegWrite "HKCU\Software\shy-com\EsT\NtzLw\LW4", lw4, "REG_SZ" WshShell.RegWrite "HKCU\Software\shy-com\EsT\NtzLw\Pfd\pf1", pf1, "REG_SZ" WshShell.RegWrite "HKCU\Software\shy-com\EsT\NtzLw\Pfd\pf2", pf2, "REG_SZ" WshShell.RegWrite "HKCU\Software\shy-com\EsT\NtzLw\Pfd\pf3", pf3, "REG_SZ" WshShell.RegWrite "HKCU\Software\shy-com\EsT\NtzLw\Pfd\pf4", pf4, "REG_SZ" WshShell.RegWrite "HKCU\Software\shy-com\EsT\NtzLw\rdrv\rdrv", r_drv, "REG_SZ" WshShell.RegWrite "HKCU\Software\shy-com\EsT\SrV\TS1", ts1,"REG_SZ" WshShell.RegWrite "HKCU\Software\shy-com\EsT\SrV\TS2",ts2,"REG_SZ" WshShell.RegWrite "HKCU\Software\shy-com\EsT\AdM\ad1",ad1,"REG_SZ" WshShell.RegWrite "HKCU\Software\shy-com\EsT\AdM\ad2",ad2,"REG_SZ" WshShell.RegWrite "HKCU\Software\shy-com\EsT\NfO\NfO","","REG_SZ" '----------- 'Ab hier nichts mehr verändern !!! dim x Set WshNetwork = WScript.CreateObject("WScript.Network") x= WshNetwork.userName dim logmsg call Start() '---------- Funktion ob root drive existiert !! ------------------ Function LWStatusBerichten(lwPfad) Dim fso, msg Set fso = CreateObject("Scripting.FileSystemObject") If fso.DriveExists(r_drv) Then ' Laufwerk ok dan ... . call chk_user() call drive_w() Else ' Benutzer Prüfen .... . call chkuser() call sys_partner() End If LWStatusBerichten = msg End Function '---------- Sub´s -------------------------- ' Sub START() public Sub Start() Dim WshNetwork, oNet, sUser, x, WshShell Set WshNetwork = WScript.CreateObject("WScript.Network") If WsHNetwork.ComputerName = TS1 then call LWStatusBerichten(lwPfad) else '--- +++ Die Computernamen Anpassen +++ --- If WsHNetwork.ComputerName = TS2 then call LWStatusBerichten(lwPfad) else call NetzVerbinden End If 'call NetzVerbinden End If End Sub ' Sub NETZVERBINDEN() public Sub NetzVerbinden() Dim WshNetwork, oNet, sUser, x, WshShell Set oNet = CreateObject("WScript.Network") Set WshShell = WScript.CreateObject("WScript.Shell") sUser = oNet.UserName Set WshNetwork = WScript.CreateObject("WScript.Network") '---- Netzlaufwerke Hinzufügen ------ On Error Resume Next '--- +++ Netzlaufwerke und Buchstaben anpassen!! +++ ---
  13. hi, wenn ich dein Script richtig gedeutet habe ist das eine .bat /.cmd file versuchs mal mit einer VBS die folgenden eintrag enthält: inhalt reg_entry.vbs Dim WshShell, bKey, oExec Set WshShell = WScript.CreateObject("WScript.Shell") 'WshShell.RegWrite("logon.reg") ---------------------------------- problem keine. rechte im Regesty Pfad auf jeder / Ändern/voll eintragen. best regrads
  14. ????????????ß Wie ist den die Frage zu verstehen ?? Als im normal Fall verbindet man einen WKS ( Workstation ) mit dem Terminalserver und nicht umgekehrt .
×
×
  • Neu erstellen...