Logon Script med drev

det kan du ikke.

altså i min w2k siger den "fællesdrev på 'pdc server' (X:)"

Brug dette .vbs logonscript.

'----------------------------------------------------------
Set wshNetwork = CreateObject("WScript.Network")
wshNetwork.MapNetworkDrive "X:", "\\pdcserver\fællesdrev"

Set wshNetwork = Nothing

Set oShell = CreateObject("Shell.Application")
Set oShFolder = oShell.Namespace(17)

For Each oShFolderItem In oShFolder.Items
  If oShFolderItem.Path = "X:\" Then
    oShFolderItem.Name = "Fælles drev"
    Exit For
  End If
Next

Set oShell = Nothing
Set oShFolder = Nothing
Set oShFolderItem = Nothing
'----------------------------------------------------------


Start Active Directory Users and Computers.
Højreklik på domæne-objektet, og vælg Properties.
Klik på fanebladet: Group Policy.
Marker Default Domain Policy og klik på knappen: Edit.
Gå til: Administrative Templates >System >Logon.
Enable: Run Logon scripts synchronously.

:-)

fint

Du skriver at det haster meget, det haster åbenbart ikke med at svare.
:-)

tpo: du mener måske vi har andet at lave end at vente på folk giver feedback...hvor vover du :-)

Nej, det kan jeg heller ikke være bekendt. nightmare4k har jo travlt her: http://www.eksperten.dk/spm/387980
:-)

Hey så er jeg har igen men
jeg har været i gang med noget andet så derfor lagde jeg det lidt til side.
håbede i kunne respektere det :(.
men jeg har behov for lidt mere hjælp.
jeg har behov for i det script at hvis drevet sksistere skal den springe det over og ikke komme med en fejl.
takker mange gange hvis du har en løgsning på det :)

OK
Indsæt denne linie øverst i scriptet:
On error resume next

:-)

okay hvordan tilføjer 2 drev i et script?

On error resume next

Set wshNetwork = CreateObject("WScript.Network")

wshNetwork.MapNetworkDrive "X:", "\\pdcserver\fællesdrev"
wshNetwork.MapNetworkDrive "Y:", "\\derver\share"

Set wshNetwork = Nothing

Set oShell = CreateObject("Shell.Application")
Set oShFolder = oShell.Namespace(17)

For Each oShFolderItem In oShFolder.Items
  Select Case oShFolderItem.Path
    Case "X:\"
      oShFolderItem.Name = "Fælles drev"
    Case "Y:\"
      oShFolderItem.Name = "Anders And"
  End Select
Next

Set oShell = Nothing
Set oShFolder = Nothing
Set oShFolderItem = Nothing

hey jeg kører det her script men jeg får stadig mit q drev til at hede "Orfeus på 'pdcserver'"

hvordan får jeg det til at kun hede "Orfeus"?

On error resume next

Set wshNetwork = CreateObject("WScript.Network")

wshNetwork.MapNetworkDrive "X:", "\\pdcserver\fællesdrev"
wshNetwork.MapNetworkDrive "q:", "\\pdcserver\Orfeus"

Set wshNetwork = Nothing

Set oShell = CreateObject("Shell.Application")
Set oShFolder = oShell.Namespace(17)

For Each oShFolderItem In oShFolder.Items
  Select Case oShFolderItem.Path
    Case "X:\"
      oShFolderItem.Name = "Fælles drev"
    Case "q:\"
      oShFolderItem.Name = "Orfeus"
  End Select
Next

Set oShell = Nothing
Set oShFolder = Nothing
Set oShFolderItem = Nothing

jeg gir en bonus når det er lavet ;)

HAR du lavet dette:

Start Active Directory Users and Computers.
Højreklik på domæne-objektet, og vælg Properties.
Klik på fanebladet: Group Policy.
Marker Default Domain Policy og klik på knappen: Edit.
Gå til: Administrative Templates >System >Logon.
Enable: Run Logon scripts synchronously.

:-)

Ps. Jeg går udfra at dine klienter er Windows 2000 eller højere.

"Case "q:\" Prøv med et stort Q

:-)

WOW tak mange mange gange hvordan vil du have de extra point som du har fortjent?

Jeg har ikke behov for extra point, men mange tak for tilbudet.
Der imod vil jeg bede dig være lidt mere varsom med: "Haster meget" hvis du aligevel ikke har tid.

:-)

det hastede meget men så kom der noget i vejen som hastede mere så he he.
men jeg skal nok huske det ;)