crime4549
-
Gesamte Inhalte
64 -
Registriert seit
-
Letzter Besuch
Beiträge erstellt von crime4549
-
-
dein DNS Server ist falsch eingerichtet !!
poste mal deine Conf.
best regrads
-
np.
manchmal sitzte ich auch auf meiner Leitung :)
best regrads
-
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
-
ist klar doch in den Standart gpo sind interaktive anmeldungen und Terminalsitzungen separriert worden.
ich habe sowas Ähnliches Letzte woche gehabt.
-
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.
-
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
-
System steuerung neuen Benutzer Lokal erstellen
best regrads
-
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
-
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
-
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 & "\"
-
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!! +++ ---
-
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
-
-
????????????ß
Wie ist den die Frage zu verstehen ??
Als im normal Fall verbindet man einen WKS ( Workstation ) mit dem Terminalserver und nicht umgekehrt .
-
wenigstens haste den fehler entdeckt :)
der rest ist halb so schlimm*fingerblutenvomfvielenschreiben* :)
best regrads
-
ist ganz einfach ich hatte dieses Prob vor ca. 4 Jahren auch und habe versucht hilfe zu bekommen in den Verschieden Foren .
Abber ohne Erfolg.
was so komisch dabei ist war die Beschreibung NT4/Samba :)
also der Samba ist keinerlei Domaincontroller im sinne von NT. er emuliert nur die dafürzuständigen Dienste verhällt sich jedoch etwas eigen.
best regrads
Axo poste mal die Auszüge aus der smb.conf
die sollte in etwa So aussehen:
[global]
unix extensions = yes
netbios name = scs-lu
client code page = 850
load printers = yes
netbios aliases = scs-lu
character set = ISO8859-15
socket options = SO_KEEPALIVE IPTOS_LOWDELAY TCP_NODELAY
workgroup = kanzlei
os level = 65 <-- einer der Linux sollte 65 der andere 64 haben (PDC / BDC)
time server = yes
encrypt passwords = yes
printcap name = CUPS
veto files = /*.eml/*.nws/riched20.dll/*.{*}/
-----
die drucker einstellungen wurden mich ebenfalls aus der smb.conf interesieren.
-
der Gast ist immer Begrenz in seinen Rechten.
und ansonsten Frohe Ostern und viel spaß beim Eier suchen *FG* :)
-
du hast vergessen die CMD.exe ( Doseingabe) zu sperren.
best regrads
-
ARGL .... als GAST ???? :suspect:
klar das geht net. oben haste geschrieben user1 .
;)
best regrads
die private patches betreffen nicht alle W2k oder XP oder oder oder .... sie betreffen eine kleine Ausgewählte "Gemeinde" der einzlenen OS versionen. Ich betituliere dies mal frecheshalber als MARKTSTUDIE von MS :)
best regrads
-
*LLLLLLOOOOOOOOOLLLLLLLLL*
Ich schmeiß mich weg vor lachen :)
Clients: XP SP1Domäne: NT4/Samba3
Printserver: Samba3/CUPS
haste auf dem Printserver den SMB Aktiviert ?? somit kanste direkt ihn direkt über die Netzwerkumgebung Einbinden.
Falls nicht must du cups Programmieren.
da du anscheinend kein Linux Profie bist habe ich hier einen Link für dich.
lade dir das rpm packet runter und installiere es : rpm -U deinfile.rpm (auf groß und kleinschreibung achten)
oder das Tar.gz. allerdings musst du dich dazu etwas besser mit linux auskennen.
mit dem Tool gehst du in die Drucker Verwaltung und füllst die Felder aus.
Achja kanste denen Printserver vom linux her anpingen ??
wenn ja versuch mal folgendes aus der Console :
su root
lynx ipadresse_des_printservers
wenn das funkzt. richte deinen Printserver über den IE ein.
falls nicht geh über Telnet und schau dir die Konf mal genau an welchen Verbinungstyp und Port er hat.
best regrads
-
Versuchs mal mit den GPO .... lalala ... :)
oder mit den Domänen richtlinien.
Allerdings willst du das für die ganze ADS oder willst du nur einer gewissen OU uder Gruppe die richtlinien setzten ??
Was du wars***einlich vergessen hast ist die GPO auf deinen Server zu verlinken.
Einfach ist es wen du die GPO globalisiertst. dann sind halt "alle" user erstmal beschränkt.
best regrads
-
hmm du willst in der situng Standort A deine Netzwerkdrucker von Standort B nutzen ??? geht nicht !!
was geht ist wenn du die Netzwerkdrucker von Stadort B auf die Lokalen Ports ( Lpt 1 & 2 & 3 etc ... .) umlegst.
Dan kanste in den RdP Richtlinien die lokalen drucker durchschleifen. ob das Funkzt. unter W2k3 k.a. . im W2k funktioniert das. allerdings passiert es das manche aufträge verloren gehen.
Solltest du die Drucker von Stanort A verwenden wollen, so würd ich diese in der Sitzung einfach mal installieren.
best regrads
-
das prob ist alt bekannt.
poste mal die Event id.
Achja du hast bestimmt eien der letzten sicherheitspatches eingespielt ( vermutlich KB824141) deinstalliere diesen.
achja den Patch den dir MS anbietet ist ein sogenannter "Private Patch " der nur an User herrausgegeben wird die dieses Problem auch wirklich haben ( Marktstudie MS )
best regrads
-
da hat jemand die hausaufgaben zu dns nicht gemacht :)
schau mal nach dem DNS Server und deren Einstellungen. poste die mal.
best regrads
WTS Client Netzwerkdrucker
in Windows Server Forum
Geschrieben
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.