Søg
Avatar billede noerdar-dilling Nybegynder
28. februar 2006 - 17:24 Der er 14 kommentarer og
1 løsning

Logon script HJÆLP

Jeg har lavet følgende script men ved ikke om det ser rigtig ud. Hjælp mig. Kan jeg desuden lave en policy der siger at alle som logger IND i mit domaine ND skal køre dette script.

MIT SCRIPT

_________________________________________________

Const DIRECTOR_GROUP    = "cn=director"
Const DIRECTORS_GROUP    = "cn=directors"
Const FINANCE_GROUP        = "cn=finance"
Const SERVICE_GROUP = "cn=service"
Const SALES_GROUP = "cn=sales"
Const ALLUSERS_GROUP = "cn=allusers"

Set wshNetwork = CreateObject("WScript.Network")
wshNetwork.MapNetworkDrive "z:",
"\\serv2\profiles\" & wshNetwork.UserName

Set ADSysInfo = CreateObject("ADSystemInfo")
Set CurrentUser = GetObject("LDAP://" &
ADSysInfo.UserName)
strGroups = LCase(Join(CurrentUser.MemberOf))

;Direktør [Ole Thomsen] GROUP DIREcTOR

If InStr(strGroups, DIRECTORS_GROUP AND ALLUSERS_GROUP AND DIRECTOR_GROUP  ) Then

    wshNetwork.MapNetworkDrive "g:",
    "\\serv2\Faelles\"
    wshNetwork.MapNetworkDrive "h:",
    "\\serv2\Directors\"
    wshNetwork.MapNetworkDrive "i:",
    "\\serv2\Director_Private\"
    ;wshNetwork.AddWindowsPrinterConnection
    ;"\\PrintServer\EngLaser"
    ;wshNetwork.AddWindowsPrinterConnection
    ;"\\PrintServer\Plotter"
    ;wshNetWork.SetDefaultPrinter
    ;"\\PrintServer\EngLaser"



;Økonomi Direktør [Karl Lokvig GROUP FINANCE

ElseIf InStr(strGroups, FINANCE_GROUP AND ALLUSERS_GROUP AND DIRECTORS_GROUP) Then

    wshNetwork.MapNetworkDrive "g:",
    "\\serv2\Faelles\"
    wshNetwork.MapNetworkDrive "h:",
    "\\serv2\Directors\"
    wshNetwork.MapNetworkDrive "i:",
    "\\serv2\Finance_Private\"
    ;wshNetwork.AddWindowsPrinterConnection
    ;"\\PrintServer\EngLaser"
    ;wshNetwork.AddWindowsPrinterConnection
    ;"\\PrintServer\Plotter"
    ;wshNetWork.SetDefaultPrinter
    ;"\\PrintServer\EngLaser"


;Økonomi Medarbejdere GROUP FINANCE

ElseIf InStr(strGroups, FINANCE_GROUP AND ALLUSERS_GROUP) Then

    wshNetwork.MapNetworkDrive "g:",
    "\\serv2\Faelles\"
    wshNetwork.MapNetworkDrive "i:",
    "\\serv2\Finance_Private\"
    ;wshNetwork.AddWindowsPrinterConnection
    ;"\\PrintServer\EngLaser"
    ;wshNetwork.AddWindowsPrinterConnection
    ;"\\PrintServer\Plotter"
    ;wshNetWork.SetDefaultPrinter
    ;"\\PrintServer\EngLaser"

;salgs Direktør  GROUP SALES

ElseIf InStr(strGroups, SALES_GROUP AND ALLUSERS_GROUP AND DIRECTORS_GROUP) Then

    wshNetwork.MapNetworkDrive "g:",
    "\\serv2\Faelles\"
    wshNetwork.MapNetworkDrive "h:",
    "\\serv2\Directors\"
    wshNetwork.MapNetworkDrive "i:",
    "\\serv2\Finance_Private\"
    ;wshNetwork.AddWindowsPrinterConnection
    ;"\\PrintServer\EngLaser"
    ;wshNetwork.AddWindowsPrinterConnection
    ;"\\PrintServer\Plotter"
    ;wshNetWork.SetDefaultPrinter
    ;"\\PrintServer\EngLaser"


;Slags Medarbejdere GROUP SALES

ElseIf InStr(strGroups, SALES_GROUP AND ALLUSERS_GROUP) Then

    wshNetwork.MapNetworkDrive "g:",
    "\\serv2\Faelles\"
    wshNetwork.MapNetworkDrive "i:",
    "\\serv2\Sales_Private\"
    ;wshNetwork.AddWindowsPrinterConnection
    ;"\\PrintServer\EngLaser"
    ;wshNetwork.AddWindowsPrinterConnection
    ;"\\PrintServer\Plotter"
    ;wshNetWork.SetDefaultPrinter
    ;"\\PrintServer\EngLaser"

;service Direktør  GROUP SERVICE

ElseIf InStr(strGroups, SERVICE_GROUP AND ALLUSERS_GROUP AND DIRECTORS_GROUP) Then

    wshNetwork.MapNetworkDrive "g:",
    "\\serv2\Faelles\"
    wshNetwork.MapNetworkDrive "h:",
    "\\serv2\Directors\"
    wshNetwork.MapNetworkDrive "i:",
    "\\serv2\Service_Private\"
    ;wshNetwork.AddWindowsPrinterConnection
    ;"\\PrintServer\EngLaser"
    ;wshNetwork.AddWindowsPrinterConnection
    ;"\\PrintServer\Plotter"
    ;wshNetWork.SetDefaultPrinter
    ;"\\PrintServer\EngLaser"


;Service Medarbejdere GROUP SERVICE

ElseIf InStr(strGroups, SERVICE_GROUP AND ALLUSERS_GROUP) Then

    wshNetwork.MapNetworkDrive "g:",
    "\\serv2\Faelles\"
    wshNetwork.MapNetworkDrive "i:",
    "\\serv2\Sales_Private\"
    ;wshNetwork.AddWindowsPrinterConnection
    ;"\\PrintServer\EngLaser"
    ;wshNetwork.AddWindowsPrinterConnection
    ;"\\PrintServer\Plotter"
    ;wshNetWork.SetDefaultPrinter
    ;"\\PrintServer\EngLase


End If

TAG JER IKKE AF PRINTERNE ER UDKOMMENTERET
Avatar billede johnnymadsen Nybegynder
28. februar 2006 - 18:10 #1
I din GPO MMC kan du under policy default eller den du har lavet

->User configuration-> Script logon/log off->

Der forcer du scriptet til at køre til alle brugere ved login.

Eller er dit script fint btw :)
Avatar billede noerdar-dilling Nybegynder
28. februar 2006 - 20:32 #2
Jeg har en mappe som jeg kalder profiles hvor alle mine brugeres dat aligger i men hvad gør denne del af koden. Er den så rigtig?

Set wshNetwork = CreateObject("WScript.Network")
wshNetwork.MapNetworkDrive "z:",
"\\serv2\profiles\" & wshNetwork.UserName
Avatar billede johnnymadsen Nybegynder
28. februar 2006 - 21:07 #3
Scriptet skal du ligge i sysvil mappen i script, da ->User configuration-> Script logon/log off-> kalder den mappe.

Og dit scrip er også korrekt med UNC stien.
Avatar billede johnnymadsen Nybegynder
28. februar 2006 - 21:15 #4
Med printer kan du gøre sådan:

Set WshNetwork = CreateObject("WScript.Network")

'** add printer connections
WshNetwork.AddWindowsPrinterConnection "\\servcer navn\SCC_LABEL_bypass"
WshNetwork.AddWindowsPrinterConnection "\\servcer navn\BREV_SCC_kasset_2"
WshNetwork.AddWindowsPrinterConnection "\\servcer navn\BREV_FTC_kasset_3"
WshNetwork.AddWindowsPrinterConnection "\\servcer navn\BLANK_Kasset_1"
WshNetwork.AddWindowsPrinterConnection "\\servcer navn\FARVE"
WshNetwork.AddWindowsPrinterConnection "\\servcer navn\VLbillet"
WshNetwork.AddWindowsPrinterConnection "\\servcer navn\VLBrev"

Min UNC sti er således:

cscript \\server navn\netlogon\login_SCC.vbs
Avatar billede noerdar-dilling Nybegynder
28. februar 2006 - 21:57 #5
Hvad er UNC sti? Skal jeg ligge scriptet i domain.local eller bare i domain
Avatar billede noerdar-dilling Nybegynder
28. februar 2006 - 22:12 #6
Eller skal det ligge unde en policy
Avatar billede noerdar-dilling Nybegynder
28. februar 2006 - 22:23 #7
Kan ikke rigtig få scriptet til at virke har lavet en group policy på alle users der er inde under en OU der hedder USERS
Avatar billede noerdar-dilling Nybegynder
28. februar 2006 - 22:27 #8
Må der ikke være drev i forvejen der har f.eks. drevbogstavet h:
Avatar billede noerdar-dilling Nybegynder
28. februar 2006 - 22:38 #9
Scriptet virker ikke af en eller anden grund
Avatar billede halvamatoer Nybegynder
28. februar 2006 - 22:56 #10
Kan du kører scriptet via dobbeltklik - eller melder det fejl der?

Min egen holdning mht. til at kører script er via Group policy. Under user windows script ligger du den ind i show files - så skulle den kører.

Hvis du vil have dit script til at få lidt mere guf på kan du lave følgende:

On Error Resume Next

strComputer = "."
Set objWMIService = GetObject("Winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * From Win32_DesktopMonitor")
For Each objItem in colItems
    intHorizontal = objItem.ScreenWidth
    intVertical = objItem.ScreenHeight
Next

Set objExplorer = CreateObject _
    ("InternetExplorer.Application")

objExplorer.Navigate "about:blank" 
objExplorer.ToolBar = 0
objExplorer.StatusBar = 0
objExplorer.Left = (intHorizontal - 400) / 2
objExplorer.Top = (intVertical - 200) / 2
objExplorer.Width = 400
objExplorer.Height = 200
objExplorer.Visible = 1           

objExplorer.Document.Body.Style.Cursor = "wait"

objExplorer.Document.Title = "Logon script in progress"
objExplorer.Document.Body.InnerHTML = "Your logon script is being processed. " _
    & "This might take several minutes to complete."

Const MY_COMPUTER = &H11&

Set objNetwork = CreateObject("Wscript.Network")
objComputerName = objNetwork.ComputerName
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(MY_COMPUTER)
Set objFolderItem = objFolder.Self
objFolderItem.Name = objComputerName



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

Set colComputers = objWMIService.ExecQuery _
    ("Select * from Win32_ComputerSystem")

For Each objComputer in colComputers
    If objComputer.DomainRole < 2 Then
       
Her sætter du dine drive maps ind.

    Else
        objExplorer.Document.Body.InnerHTML = "THIS IS A SERVER  " _
    & "Mapping drives aborted!"
    Wscript.Sleep 500
    End If
Next

objExplorer.Document.Body.InnerHTML = "Your logon script is now complete."

objExplorer.Document.Body.Style.Cursor = "default"

Wscript.Sleep 500

objExplorer.Quit
Avatar billede noerdar-dilling Nybegynder
28. februar 2006 - 23:09 #11
Hvis jeg køre det fra klienten kommer kun profile Z: drevet.
Avatar billede noerdar-dilling Nybegynder
28. februar 2006 - 23:11 #12
Den siger nogel med at domainet ikek findes på line 15
Avatar billede noerdar-dilling Nybegynder
28. februar 2006 - 23:15 #13
Kan det ikke være fordi Set CurrentUser = GetObject("LDAP://" & ADSysInfo.UserName)

Hvor LDAP er domainet og mit hedder ND
Avatar billede noerdar-dilling Nybegynder
28. februar 2006 - 23:19 #14
Jeg får fejlen windows script host
Avatar billede noerdar-dilling Nybegynder
28. februar 2006 - 23:21 #15
Det er denne her fejl den klager over

Set CurrentUser = GetObject("LDAP://" & ADSysInfo.UserName)
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Se alle it-kurser fra Computerworld Kurser
IT-kurser om Microsoft 365, sikkerhed, personlig vækst, udvikling, digital markedsføring, grafisk design, SAP og forretningsanalyse.
Se alle it-kurser

Flere spørgsmål fra Windows kategorien

Titel Indlæg Oprettet Seneste aktivitet
Popup ved opstart Af mort1 i Windows 1 I dag 11:21 I dag 11:31
Slet lokal konto Af ErikHg i Windows 0 04/09/202618:50 -
Dette er ikke en kommerciel session i Windows 11 Af eksmojo i Windows 3 04/09/202613:47 I går 22:31
installere windows på separat diskpartition Af Malm i Windows 2 20/08/202614:16 21/08/202622:01
Windows 10 Home 22H2 produktnøgle Af Uvanga i Windows 10 06/08/202617:10 10/08/202613:14
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
IT-JOB
Seneste spørgsmål Seneste aktivitet
I dag 11:47 VB script Af Jenshentze i Word
I dag 11:21 Popup ved opstart Af mort1 i Windows
04/0918:50 Slet lokal konto Af ErikHg i Windows
04/0916:05 Ændre tal i en celle Af xvid i Excel
04/0913:47 Dette er ikke en kommerciel session i Windows 11 Af eksmojo i Windows
White papers
Flere white papers »