Jump to content

R.Ralle

Members
  • Gesamte Inhalte

    567
  • Registriert seit

  • Letzter Besuch

Beiträge erstellt von R.Ralle

  1. Hi,

    der eintrag für multi beschreibt von welchen Contrler du booten willst (bei ide und SCSI mi BIOS)

     

    Tec-Cannel:

    multi(X)disk(Y)rdisk(Z)partition(W)\

    scsi(X)disk(Y)rdisk(Z)partition(W)\

    signature(X)disk(Y)rdisk(Z)partition(W)\

    Für den Typ des Bootmediums steht das erste Wort des ARC-Pfades

    (multi, scsi oder signature).

    Das Schlüsselwort multi gibt an, dass der Bootloader sich auf das

    BIOS des Rechners verlassen kann, um die Systemdateien zu laden.

    Windows verwendet dazu den Interrupt 13. Es kann sich dabei um

    IDE-, ESDI-, aber auch um SCSI-Platten handeln. Wichtig ist nur,

    dass die angeschlossene Platte vom Interrupt 13 angesprochen werden

    kann. Der Wert X steht dabei für die Nummer des Controllers. Y ist

    normalerweise 0 und Z steht für die Nummer des Laufwerks: Nummer 0

    ist Master und 1 Slave am ersten IDE-Channel, 2 ist Master und 3 Slave

    am zweiten IDE-Channel.

     

    Wenn du eine IDE-Platte anschliest wird IDE-Kontroller erst aktiviert (je nach BIOS-Einstellung) Damit wird der IDE-Kontroller zum ersten [multi(0)] und der SATA zum zweiten [multi(1)]

     

    die beschreibung ist nicht von mir stimmt aber!

     

     

    Ralph

  2. Hi nochmal,

     

    ich mach das manchmal so :

    set WSHShell = CreateObject("WScript.Shell")

     

    syst = WSHShell.ExpandEnvironmentStrings("%computername%")

    syskw = WSHShell.ExpandEnvironmentStrings("%homedrive%")

    test = "test"

    admin = "Admin"

    user = "user"

    zahl = "15"

    hallo = "Ich bin es"

    password = "password"

    f2 = Inputbox("Wie soll die oberste OU heissen ? ",hallo, test)

    anz = Inputbox("Wieviele Arbeitsplätze hat der test ? ",hallo, zahl)

    if anz = "0" then

    wscript.quit

    end if

    if isempty(anz) then

    wscript.quit

    end if

     

    '1 OU

     

    strContainer = ""

    strName = f2

     

    Set objRootDSE = GetObject("LDAP://rootDSE")

    If strContainer = "" Then

    Set objContainer = GetObject("LDAP://" & _

    objRootDSE.Get("defaultNamingContext"))

    Else

    Set objContainer = GetObject("LDAP://" & strContainer & "," & _

    objRootDSE.Get("defaultNamingContext"))

    End If

     

    Set objOrganizationalunit = objContainer.Create("organizationalUnit", "ou=" & strName)

    objOrganizationalunit.SetInfo

     

    'UnterOU s

    for lauf = 1 to anz

     

    strContainer1 = "OU=" & f2

    strName = "Platz" & lauf

     

    Set objRootDSE = GetObject("LDAP://rootDSE")

    If strContainer1 = "" Then

    Set objContainer = GetObject("LDAP://" & _

    objRootDSE.Get("defaultNamingContext"))

    Else

    Set objContainer = GetObject("LDAP://" & strContainer1 & "," & _

    objRootDSE.Get("defaultNamingContext"))

    End If

     

    Set objOrganizationalunit = objContainer.Create("organizationalUnit", "ou=" & strName)

    objOrganizationalunit.SetInfo

     

    next

     

    'Admins

    for lauf2 = 1 to anz

     

    StrContainer1 = "OU=Platz" & lauf2 & ", " & "OU=" & f2

    strName = "Admin" & lauf2

     

     

    Set objRootDSE = GetObject("LDAP://rootDSE")

    If strContainer1 = "" Then

    Set objContainer = GetObject("LDAP://" & _

    objRootDSE.Get("defaultNamingContext"))

    Else

    Set objContainer = GetObject("LDAP://" & strContainer1 & "," & _

    objRootDSE.Get("defaultNamingContext"))

    End If

     

    Set objUser = objContainer.Create("user", "cn=" & strName & " " & "OU_Admin")

    objUser.Put "sAMAccountName", strName

    objUser.Put "userPrincipalName", strName

    objUser.Put "profilePath", "\\" & syst & "\profs\ouadmin"

    objUser.Put "HomeDirectory", "\\" & syst & "\home\" & strName

    objUser.Put "HomeDrive", "h:"

    objUser.setinfo

    objUser.SetPassword password

    objUser.AccountDisabled = Fales

    objUser.SetInfo

    'user

    strContainer = "OU=Platz" & lauf2

    strName = "user" & lauf2

    Set objRootDSE = GetObject("LDAP://rootDSE")

    If strContainer = "" Then

    Set objContainer = GetObject("LDAP://" & _

    objRootDSE.Get("defaultNamingContext"))

    Else

    Set objContainer = GetObject("LDAP://" & strContainer1 & "," & _

    objRootDSE.Get("defaultNamingContext"))

    End If

    Set objUser = objContainer.Create("user", "cn=" & strName & " " & "OU_USER")

    objUser.Put "sAMAccountName", strName

    objUser.Put "userPrincipalName", strName

    objUser.Put "profilePath", "\\" & syst & "\profs\ouuser"

    objUser.Put "HomeDirectory", "\\" & syst & "\home\" & strName

    objUser.Put "HomeDrive", "h:"

    objUser.setinfo

    objUser.SetPassword password

    objUser.AccountDisabled = Fales

    objUser.SetInfo

    next

    text2 = "Es wurden alle OU`s und die Benutzer admix und userx erstellt" & vbcr

     

    msgbox text2, Vbinformatin, hallo

    msgbox "Alles erledigt Chef !!!", Vbinformatin, hallo

     

    ist nur n beispiel

     

    Ralph

  3. Moin,

     

    @micha42

    Angeln is doch nix anderes als IT-Support: Rumsitzen und warten, dass einer anbeißt bzw n Problem hat

    der vergleich ist ja gernicht schlecht, nur das verhalten der Fische kann ich nicht mit nem GPO beeinflussen oder sie mit RDP zum Hacken führen ! :confused: :cool: :D

     

    Ralph

×
×
  • Neu erstellen...