Zum Inhalt springen

PhilS

Mitglieder
  • Gesamte Inhalte

    167
  • Benutzer seit

  • Letzter Besuch

Beiträge von PhilS

  1. Nimm einfach ein Makro auf wobei du ein leeres dokument auf dem drucker druckst... das ganze auf die Symbolleiste und fertig

    z.b.

    Sub Makro1()

    '

    ' Makro1 Makro

    ' Makro aufgezeichnet am 15.04.2003 von PhilS

    '

    ActivePrinter = "\\PServ\Printer1"

    Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _

    wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _

    ManualDuplexPrint:=False, Collate:=True, Background:=False, PrintToFile:= _

    False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _

    PrintZoomPaperHeight:=0

    End Sub

  2. Hi

    Mein Windows-System

    Compaq Deskpro EP

    - 17" Compaq & 15" Compaq

    - Pentium 3 600 Mhz

    - 320 MB-RAM

    - Matrox Millenium G450 Dual Head

    - CD Laufwerk

    - 2MBit Internet-Standleitung

    - Windows XP Pro

    - Office XP

    - uvm.

    Mein Test-Sytem #1

    Compaq Deskpro EN

    - 15" Compaq

    - Pentium 2 300 Mhz

    - 320 MB-RAM

    - Matrox AGP 8MB

    - CD Laufwerk

    - 2MBit Internet-Standleitung

    - Suse Linux 8.0

    - Novell NetWare

    - uvm.

    Mein Test-Sytem #2

    Compaq EVO D3D

    - 17" Compaq

    - Pentium 4 1,7 Mhz

    - 256 MB-RAM

    - NVidia Riva TNT2

    - CD Laufwerk

    - 2MBit Internet-Standleitung

    - Windows XP Pro

    - Office XP

    - uvm.

  3. C:\>net stop /help

    Die Syntax dieses Befehls lautet:

    NET STOP

    Dienst

    NET STOP beendet Windows-Dienste.

    Wenn Sie einen Dienst beenden, wird dadurch auch jede Netzwerkverbindung

    beendet, die der Dienst verwendet. Außerdem können Dienste, die von anderen

    Diensten abhängig sind, mitbeendet werden.

    Einige Dienste können nicht beendet werden.

    Dienst Kann einer der folgenden Dienste sein:

    Ablagemappendienst: CLIPBOOK

    Anmeldedienst: NETLOGON

    Arbeitsstationsdienst: WORKSTATION

    Client Service für NetWare: NTCWORKSTATION

    Computerbrowser: BROWSER

    Dateireplikation: NTFRS

    DHCP-Client: DHCP

    Nachrichtendienst: MESSENGER

    NT-LM-Sicherheitsdienst: NTLMSSP

    RAS-Verbindungs-Manager: RASMAN

    Remoteprozeduraufruf (RPC)-Locator: RPCLOCATOR

    Routing und RAS: REMOTEACCESS

    Serverdienst: SERVER

    Spooler: SPOOLER

    TCP/IP-NetBIOS-Hilfsprogramm: LMHOSTS

    USV-Dienst: UPS

    Warndienst: ALERTER

    Zeitplan: SCHEDULE

    NET STOP kann auch Dienste beenden, die nicht von Windows

    zur Verfügung gestellt werden.

    NET HELP Befehl | MORE zeigt die Hilfe seitenweise an.

    C:\>

  4. Per WSH!

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

    ' File: DisableUser (WSH in VBScript)

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

    Option Explicit

    Dim objUser, user, domain

    domain = "//Rom"

    user = "Bill"

    If (MsgBox ("Benutzerkonto sperren " & user, vbQuestion + vbYesNo, _

    "DisableUsern") = vbYes) Then

    Set objUser = GetObject("WinNT:" & domain & "/" & user)

    objUser.AccountDisabled = True

    objUser.SetInfo ' speichern

    WScript.Echo "Benutzerkonto " & user & " gesperrt"

    Else

    WScript.Echo "Nichts gesperrt"

    End if

    ' Ende

  5. Verschiedene Möglichkeiten:

    1. Momentaner Server (Hardware) soll bestehen bleiben, dann:

    BDC zum PDC

    PDC aus

    BDC Win2kServer CD rein update

    DNS Server configen

    DCPROMO AD aufsetzen

    Benutzer findest du unter USERS wieder

    2.Momentaner Server (Hardware) soll ersetzt werden, dann:

    PDC Win2kServer CD rein update

    DNS Server configen

    DCPROMO AD aufsetzen

    Benutzer findest du unter USERS wieder

    engültige Hardware Win2kServer CD rein update

    DNS Server configen

    Server in die ADS wechseln

    Daten replizieren lassen

    Betriebsmaster umstellen

    auf Native Mode umstellen

    ex-BDC & ex-PDC ausmachen

    2 = sauberste lösung

  6. '************************************************

    ' File: ToggleUserFlag (WSH in VBScript)

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

    Option Explicit

    Const UF_PASSWORD_CANT_CHANGE = &H40

    Const UF_DONT_EXPIRE_PASSWD = &H10000

    DIM oUser

    DIM name, tmp

    DIM domain

    domain = "//Rom"

    name = "Bill"

    Set oUser = GetObject("WinNT:" & domain & "/" & name)

    oUser.GetInfo ' lese Eigenschaften

    ' umsetzen "Benutzer kann Kennwort nicht ändern"

    ' und "Kennwort läuft nie ab"

    tmp = oUser.Get("UserFlags") ' lese Flags

    tmp = tmp XOR UF_PASSWORD_CANT_CHANGE

    tmp = tmp XOR UF_DONT_EXPIRE_PASSWD

    oUser.Put "UserFlags", tmp ' schreibe Flags

    oUser.SetInfo

    WScript.Echo "Benutzerkonto " & name & " aktualisiert"

    Set oUser = Nothing

    ' Ende

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

    ' File: SetUserPassw (WSH in VBScript)

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

    Option Explicit

    DIM oUser

    DIM name

    DIM domain

    domain = "//Koeln"

    name = "Bill"

    Set oUser = GetObject("WinNT:" & domain & "/" & name)

    oUser.SetPassword InputBox ("Kennwort","ChangePassw", "")

    oUser.SetInfo ' speichere Änderungen

    WScript.Echo "Kennwort für " & name & " geändert"

    Set oUser = Nothing

    ' Ende

Fachinformatiker.de, 2024 by SE Internet Services

fidelogo_small.png

Schicke uns eine Nachricht!

Fachinformatiker.de ist die größte IT-Community
rund um Ausbildung, Job, Weiterbildung für IT-Fachkräfte.

Fachinformatiker.de App

Download on the App Store
Get it on Google Play

Kontakt

Hier werben?
Oder sende eine E-Mail an

Social media u. feeds

Jobboard für Fachinformatiker und IT-Fachkräfte

×
×
  • Neu erstellen...