Gå til innhold

marbek

Medlemmer
 Vis profil  Se deres aktivitet

  • Innlegg

    125

  • Ble med

  • Besøkte siden sist

 Innholdstype 

Innlegg skrevet av marbek

  3. Forum for blinde.

    i Media

    Skrevet

    Hei, jeg har lett litt på internett etter et forum for blinde, men jeg kan ikke "se" noen på Norsk.

     

    Derfor driver jeg å prøver å lage et forum, men er det noen som var hva slags forum typde som er best med tanke på de blinde?

    Altså, det bør være så få menyer og så mye tekst som mulig istedet for linker og menyer.

     

    har testet denne litt: nbsf.foruml.biz (ja, jeg vet det er free -.- )men er ikke helt fornøyd da denne virker meget tungvind.

  14. Selge maskinen, pris?

    i Hjelp til kjøp og salg av PC

    Skrevet · Endret av marbek

    Hei, vurderer å selge utstyret mitt..

     

    CPU:Intel I7 920,

    MEM: 12GB OCZ 1200,

    GPU: 2 styk ATI HD4890 1GB,

    HDD1: 64GB SSD,

    HDD2: 1TB greenpower

    2 skjermer, en 24" og en 19"

    g19 tast + g15 tast

    mx518 + g500 mus

    g35 headset

    Creative gigaworks t3 speakers

    noctua (om det er slik det skrives) cpu vifte + "dør" vifte

    logitech cam (1000 kroners cam så den er bra)

    antec 1200 kabinett

     

    Hva tror dere jeg kan få for dette?

  17. Søke etter printer og slette jobb

    i Programmering og webutvikling

    Skrevet

    Hei, en av lærlingene på jobben skal lage et script hvor du kan søke etter en skriver og gjøre diverse valg.

     

    Det vil si at dersom han skriver inn "printer01" og trykker på en knapp som heter "slett jobb"

    så skal den slette alle jobber til denne valgte printeren!

     

    Hvordan skal man gjøre dette? Jeg har testet et par løsninger, men finner ingen som fungerer.

     

    Btw: bruker visual Basic express 2010

     

    - Marius og Stian

  21. Brukere i AD - script

    i Programmering og webutvikling

    Skrevet

    Heisann hoppsan..

    Vet ikke helt om dette er det riktige stedet å spørre om dette, men jeg prøver!

     

    Har laget et script:

     

    ''''''''''''''''''''''''''''''''''''''
'Written by Marius and google.no 2011
''''''''''''''''''''''''''''''''''''''

'This script will add users or computers to active directory.
'Program will repeat until a field is left blank or cancel is pressed

'set Fully Qualified Domain Name
FQDomainName="carlco.local"  'this will be after the @ in the user principal name
defaultPassword = "M3lk3t3nn3r"



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

'Set OU in which to add Computers (from the bottom up)
Set computerOU = GetObject("LDAP://cn=Computers," & objRootDSE.Get("defaultNamingContext"))

'Set OU in which to add Users
Set userOU = GetObject("LDAP://cn=Users," & objRootDSE.Get("defaultNamingContext"))

sub addComputer (name)
   strComputer = name
   Const ADS_UF_PASSWD_NOTREQD = &h0020
   Const ADS_UF_WORKSTATION_TRUST_ACCOUNT = &h1000
   Set objComputer = computerOU.Create("Computer", "cn=" & strComputer)
   objComputer.Put "sAMAccountName", strComputer & "$"
   objComputer.Put "userAccountControl", _
   ADS_UF_PASSWD_NOTREQD Or ADS_UF_WORKSTATION_TRUST_ACCOUNT
   objComputer.SetInfo
end sub


sub addUser(shortName, firstname, lastname, description)
   Set usr = userOU.Create("user", "CN=" & firstname & " " & lastname)
   usr.Put "sAMAccountName", ShortName
   usr.Put "userPrincipalName", shortName & "@" & FQDomainName
   usr.Put "GivenName", firstname
   usr.Put "Sn", lastname
   usr.Put "description", description
   usr.Put "displayName", firstname & " "  & lastname
   usr.SetInfo
   usr.SetPassword defaultPassword
   usr.AccountDisabled = False
   usr.SetInfo
end sub

done=0

Sub checkEmpty (userInput)
   If userInput = "" Then
       Wscript.quit
   End if
End sub


Sub addComputers
   While done=0
       cn = InputBox ("Enter computer to add. Leave blank to exit.", "Add Computers")
       checkEmpty cn
       addComputer cn
   Wend
End Sub

Sub addUsers
   While done=0
       sn = InputBox ("Enter User ID:", "New User - Leave blank to exit.")
       checkEmpty sn
       fn = InputBox ("Enter First Name:", "New User - Leave blank to exit.")
       checkEmpty fn
       ln = InputBox ("Enter Last Name:", "New User - Leave blank to exit.")
       checkEmpty ln
       de = InputBox ("Enter Description:", "New User - Leave blank to exit.")
       checkEmpty de
       addUser sn, fn, ln, de
   Wend
End Sub

message = "Please pick an option:"     & vbCrLf & _
               "(Press cancel or leave blank to quit.)"     & vbCrLf & vbCrLf & _
               "1 - Add Users"                 & vbCrLf &  _
               "2 - Add Computers"                 & vbCrLf & _
               "3 - Skip These Menus"                 & vbCrLf & _
               vbCrLf & vbCrLf & "Please enter a number:"

Do
   userChoice = InputBox(message, "Add Users & Computers")
   select case userChoice
       case "1"
           addUsers
       case "2"
           addComputers
       case "3"
           massUpdate
       case ""
           WScript.Quit
       case else
           msgbox "Invalid entry. Please try again."
       end select
loop while userChoice <> "" and userChoice <> "0"


Sub massUpdate

   'addUser "userID", "fName", "lName", "description"
   'addComputer "Computer1"


   Wscript.quit
End Sub

     

    Det er dog gjort om litt nå, men dere ser greia.. Den skal legge inn brukere inn i AD.

    Men Som dere ser så er det et standard passord her, dette vil jo jeg at brukeren skal endre neste gang han/hun logger på!

     

    Så det jeg lurer på, hvordan får jeg satt det valget? Eller flagget det valget til 1 via skriptet og hvor skal jeg legge det inn i koden? :)

     

    Takker for svar og håper noen kan hjelpe meg..

     

    Dersom posten ligger feil så si ifra så skal jeg flytte den : )

  24. Windows kan ikke starte....?

    i Maskinen fungerer ikke

    Skrevet

    Vedkommende kan ha virus da, men som han sier over her så kjør repair med win cd..

    Det kan hjelpe, hvis ikke kan du prøve en cd som heter Bart-pe, denne starter maskinen din i "live" modus eller hva jeg skal kalle det. I dette programmet har du et programmer som heter noe med file manager, dette kan du bruke for å legge bilder osv over på ekstern hdd uten å måtte ta ut disken.

     

    Send en PM om du trenger en guide til hvordan du skal bruke Bart-PE!

×
×
  • Opprett ny...