delay for hvornår vista søger på netværks drev?

[Binne]

Ja som sagt har en nas server kørene og har nogen billeder som jeg har tilføjet til Windows gadget ting i siden. Dette virker dog ikke fordi windows kigger lige når den logger på og dermed når den nas ikke at starte op tror jeg, den siger den ikke kunne logge på og gør jeg det selv lige efter er der ingen problemer.

Kan man ændre på tiden hvornår windows kigger eller lign.?

Ps det er som sagt vista.

\René

[Patriarken]

Ja som sagt har en nas server kørene og har nogen billeder som jeg har tilføjet til Windows gadget ting i siden. Dette virker dog ikke fordi windows kigger lige når den logger på og dermed når den nas ikke at starte op tror jeg, den siger den ikke kunne logge på og gør jeg det selv lige efter er der ingen problemer.

Kan man ændre på tiden hvornår windows kigger eller lign.?

Ps det er som sagt vista.

\René

Hejsa

Du kan lade være med at sætte vista til at mappe på startup og så køre et script fra startup'menue (Start)

Her er et eksempel på mit startup script: cut paste gem i notepad og gem med vbs extension...

Kode: Vælg alt

Option Explicit
'Wait "number" in ms before script
WSCript.Sleep 10000
Dim objNetwork, strRemotePath1, strRemotePath2, strRemotePath3, strRemotePath4, strRemotePath5
Dim strDriveLetter1, strDriveLetter2, strDriveLetter3, strDriveLetter4, strDriveLetter5

strDriveLetter1 = "J:"
strDriveLetter2 = "K:"
strDriveLetter3 = "L:"
strDriveLetter4 = "M:"
strDriveLetter5 = "N:"
strRemotePath1 = "\\MCESERVER\MCE_SYSTEM"
strRemotePath2 = "\\MCESERVER\MCE_INSTALL"
strRemotePath3 = "\\MCESERVER\MCE_MEDIA"
strRemotePath4 = "\\MCESERVER\MCE_XPMCE"
strRemotePath5 = "\\MCESERVER\MCE_WEBSITE"

Set objNetwork = CreateObject("WScript.Network")

' Next section will  map drives, and assign drive letters as above

objNetwork.MapNetworkDrive strDriveLetter1, strRemotePath1
objNetwork.MapNetworkDrive strDriveLetter2, strRemotePath2
objNetwork.MapNetworkDrive strDriveLetter3, strRemotePath3
objNetwork.MapNetworkDrive strDriveLetter4, strRemotePath4
objNetwork.MapNetworkDrive strDriveLetter5, strRemotePath5


Wscript.Quit

Du kan så bare indstille delay i millisekunder(i ovenstående 10000ms =10 sekunder) og tilrette drevbogstaver og navne navne....Note Vista kræver UAC diasbled hvis du vil køre vbs script...

mvh Anders

 

[Binne]

Hej Anders

har nu gjort som sagt. Hvor skriver jeg bruger navn og adgangkode når jeg nu har det på?

Mit ser nu sådan ud, går ud fra det er rigtigt rettet til

Option Explicit
'Wait "number" in ms before script
WSCript.Sleep 10000
Dim objNetwork, strRemotePath1, strRemotePath2, strRemotePath3, strRemotePath4, strRemotePath5
Dim strDriveLetter1, strDriveLetter2, strDriveLetter3, strDriveLetter4, strDriveLetter5

strDriveLetter1 = "y:"
strDriveLetter2 = "z:"
strRemotePath1 = "\\DISKSTATION\photo\2007"
strRemotePath2 = "\\DISKSTATION\MCE optagelser"


Set objNetwork = CreateObject("WScript.Network")

' Next section will  map drives, and assign drive letters as above

objNetwork.MapNetworkDrive strDriveLetter1, strRemotePath1
objNetwork.MapNetworkDrive strDriveLetter2, strRemotePath2



Wscript.Quit

\René

[Patriarken]

Hejsa

Nu vil jeg ikke opfordre til lemfædighed for hvad angår sikkerhed, men er det strengt nødvendigt at have password og username på dine shares?

Your call: Here goes:

Kode: Vælg alt


Option Explicit
WSCript.Sleep 10000
Dim objNetwork
Dim strDriveLetter1, strRemotePath1, strUser1, strPassword1, strProfile1
Dim strDriveLetter2, strRemotePath2, strUser2, strPassword2, strProfile2

strDriveLetter1 = "z:"
strRemotePath1 = "\\DISKSTATION\photo\2007"
strUser1 = "Binne" '< Brugernavn
strPassword1 = "PrimeraDK" '<Password
strProfile1 = "false"

strDriveLetter2 = "z:"
strRemotePath2 = "\\DISKSTATION\MCE optagelser"
strUser2 = "Binne" '<Brugernavn
strPassword2 = "PrimeraDK" '< Password
strProfile2 = "false"

Set objNetwork = WScript.CreateObject("WScript.Network")

'Første Drev

objNetwork.MapNetworkDrive strDriveLetter1, strRemotePath1, _
strProfile1, strUser1, strPassword1

'Andet Drev

objNetwork.MapNetworkDrive strDriveLetter2, strRemotePath2, _
strProfile2, strUser2, strPassword2
Wscript.Quit


mvh Anders