Jump to content

chrini1

Members
 Profil anzeigen  Aktivitäten des Benutzers anzeigen

  • Gesamte Inhalte

    163

  • Registriert seit

  • Letzter Besuch

 Inhaltstyp 

Beiträge erstellt von chrini1

  1. con2prt.exe hat die gerade wer zur Hand?

    in Windows Forum — Allgemein

    Geschrieben

    Du kannst auch ein kleines VB-Script a`la:

    Option Explicit
Dim objNetwork
Dim strDriveLetter1, strRemotePath1
Dim objNetwork1, strLocal, strUNCPrinter1, strUNCPrinter2

strUNCPrinter1 = "\\XXX\Drucker1"
strUNCPrinter2 = "\\XXX\Drucker2"


Set objNetwork1 = CreateObject("WScript.Network")
objNetwork1.AddWindowsPrinterConnection strUNCPrinter1
objNetwork1.AddWindowsPrinterConnection strUNCPrinter2
objNetwork1.SetDefaultPrinter strUNCPrinter2

WScript.Quit

     

    Das ganze per Texteditor kopieren, anpassen und als .vbs speichern. Mehr brauchst Du nicht.

     

    Gruß

    Christian

  4. HP Proliant ml350 G4 kühlen

    in Windows Server Forum

    Geschrieben

    Es gibt von Rittal und Knürr klimatisierte Server-Schränke. Entweder laufen die im Umluft-Betrieb (d.h. dass hier der Schrank kalt wird und die Luft um den Schrank herum warm wird) oder mit einem Absorber, der dann änlich wie eine Raumkühlung eine externe Einheit an der Außenluft benötigt. Diese Schränke kosten aber in der Regel ca. 4000 Euro und mehr.. Ein Klimagerät kostet je ne nach Leistung ab 2000 Euro, wenn es fest installiert wird.

     

    Mal etwas anderes: Folie auf den Fenstern ist nicht sehr effektiv. Besser wäre hier eine Verschattung von außen, also z.B. eine Elekro-Raffstoreanlage oder ein Rolladen. Wäre da s nicht vielleicht möglich?

     

    Gruß

    Christian

  6. Berechtigungsproblem Benutzer / Drucker auf TS 2003

    in Windows Server Forum

    Geschrieben

    Hallo zusammen,

     

    jeder User bekommt per VB-Skript die notwendigen Laufwerke und Drucker zugewiesen. Bei lokaler Anmeldung stellt das kein Problem dar. Bei Anmeldung auf dem Terminalserver schlägt das VB-Skript fehl und mappt nur die Laufwerke. Drucker werden nicht verbunden. Versucht der User, die im AD stehenden, Drucker manuell zu verbinden, so fehlen ihm die Berechtigungen dafür. Alle TS-User haben die Rechte "Benutzerzugriff und Gastzugriff".

     

    Umgebung TS2003 SP2 32bit, AD im Native Mode. Druckfreigaben über Printserver (W2003)

     

     

    Jemand eine Idee?

     

    Danke,

    Christian

  9. Replikation von Userprofilen

    in Windows Server Forum

    Geschrieben

    Hallo zusammen,

     

    derzeit haben wir zwei Standorte. An Standort A stehen nahezu alle Server, an Standort B nur ein weiterer DC. Beide Standorte sind über ein VPN (A=8Mbit, B=4Mbit) verbunden. Die User haben serverbasierte Profile, die auf einem SAN an Standort A liegen. Beim Login/Logoff kommt es nun vermehrt zu Performance-Problemen. Aus diesem Grund möchte ich gerne die Userprofile replizieren und an beiden Standorten vorhalten.

     

    Natürlich könnte ich diese jetzt von Hand kopieren und im AD für jeden User ändern (diese sollen sich aber an beiden Standorten anmelden können). Lieber wäre mir doch ein Szenario ala:

    1. Userprofile liegen auf dem lokalen DC /bzw. im SAN

    2. diese werden nachts automatisch repliziert (z.B. mit Robocopy)

    3. In den User Properties steht der Pfad mit Variablen: \\%logonserver%\profiles$\%username%

     

    Ist das so denkbar? Wie sind Eure Erfahrungen?

     

    Gruß

    Chris

  23. Fehler im Logon-Script: Brauche Rat

    in Windows Forum — Scripting

    Geschrieben

    Hi zusammen,

     

    habe ein VB-Script für Logins gebaut und sehe vor lauter Wald die Bäume nicht mehr. Irgendwo habe ich hier einen Fehler eingebaut. Weiß wer Rat?

     

    Option Explicit
On Error Resume Next
Dim oWshShell 


Set oWshShell = CreateObject("WScript.Shell") 


'Abfrage der Gruppenmitgliedschaften 

' Set objUser = GetObject(strLDAP) 
Set objUser = CreateObject("ADSystemInfo") 
Set CurrentUser = GetObject("LDAP://" & objUser.UserName) 

' Create objects 
Set objNetwork = CreateObject("WScript.Network") 

'Alle Netzwerklaufwerke löschen
Set clDrives = objNetwork.EnumNetworkDrives 
For i = 0 To clDrives.Count -1 Step 2 
objNetwork.RemoveNetworkDrive clDrives.Item(i), True, True 
Next 

'Wartezeit für den Client
WScript.sleep 300 


' Gruppenmitgliedschaften auslesen
objmemberOf  = CurrentUser.GetEx("memberOf") 
For Each objGroup In objmemberOf 
 strList = LCase(strList & objGroup & vbCr) 
Next 

'Homelaufwerk mappen
objNetwork.MapNetworkDrive "h:", "\\srv-el-w3k-fil\HomeDirs\" & 

objNetwork.UserName 

'Falls Gruppe GR_Rabba_ALL mappe das Laufwerk für Rabba unter J:
If InStr(strList, LCase(GR_Rabba_ALL)) Then 
objNetwork.MapNetworkDrive "j:", "\\srv-el-w3k-fil\Rabba" 



'falls Gruppe GR_Rebba_ALL mappe das Laufwerk für Rebba unter I:
If InStr(strList, LCase(GR_Rebba_ALL)) Then 
objNetwork.MapNetworkDrive "i:", "\\srv-el-w3k-fil\Rebba" 


'falls Gruppe GR_Rebba_GL mappe das Laufwerk G:
If InStr(strList, LCase(GR_Rebba_GL)) Then 
objNetwork.MapNetworkDrive "k:", "\\srv-el-w3k-fil\Rebba_gl" 


'falls Gruppe GR_Rebba_BH mappe das Laufwerk L:
If InStr(strList, LCase(GR_Rebba_BH)) Then 
objNetwork.MapNetworkDrive "k:", "\\srv-el-w3k-fil\Rebba_bh" 




Set objWMIService = GetObject("winmgmts:\\.\root\cimv2") 



'**********************************************************************

******** 


Set colNicConfigs = objWMIService.ExecQuery("SELECT * FROM " & _ 

"Win32_NetworkAdapterConfiguration WHERE IPEnabled = True") 



For Each objNicConfig In colNicConfigs 

 strIPAddresses = "" 

'  If objNicConfig.DHCPEnabled Then 

   If Not IsNull(objNicConfig.IPAddress) Then 

     For Each strIPAddress In objNicConfig.IPAddress 

       strIPAddresses = strIPAddresses & strIPAddress 

     Next 

   End If 

'  End If 

'  WScript.Echo strIPAddresses 

 If "172.16.1." = Left(strIPAddresses,9) Then 

       'WScript.Echo "Ellerau" 

       WshNetwork.AddWindowsPrinterConnection 

"\\srv-el-w3k-dc01\prt-el-hp-lj4730" 

       WshNetwork.AddWindowsPrinterConnection 

"\\srv-el-w3k-dc01\prt-el-hp-lj5" 

       WshNetwork.AddWindowsPrinterConnection 

"\\srv-el-w3k-dc01\prt-el-dl-3700cn" 

       WshNetwork.AddWindowsPrinterConnection 

"\\srv-el-w3k-dc01\prt-el-ok-5300" 

 ElseIf "172.16.10." = Left(strIPAddresses,10) Then 

       'WScript.Echo "Breitscheidt" 

       WshNetwork.AddWindowsPrinterConnection 

"\\srv-bs-w3k-dc02\prt-el-ok-5300" 

       WshNetwork.AddWindowsPrinterConnection 

"\\srv-bs-w3k-dc02\prt-el-hp-dj500ps" 

       WshNetwork.AddWindowsPrinterConnection 

"\\srv-bs-w3k-dc02\prt-el-hp-dj1000n" 

 ElseIf "172.16.99." = Left(strIPAddresses,10) Then 

       'WScript.Echo "VPN-Einwahl" 

       'WshNetwork.AddWindowsPrinterConnection "\\srv\xy" 

 End If 

Next 

WScript.Quit

     

    Danke Euch,

    Chris

×
×
  • Neu erstellen...