Dávka pro připojení síťových jednotek - diakritika

[d1amond]

Zdravím,

neměl by někdo zde nějaký tip, jak vytvořit dávku která mi připojí síťovou jednotku trvale, bez nutnosti pouštět ji po každém zapnutí PC? Prostě taková jednoúčelová záležitost. Jednotky jsou dostupné po zadání uživatelského jména a hesla.
Zkoušel jsem to přes net use, ale narazil jsem na problém s diakritikou, kdy to nechodí, protože uživatelské jméno obsahuje písmena š a í.
Potřeboval bych to funkční pro XP a W7 32/64 bit.

Díky

[Reklama]

[petr22]

Obavam se ze nejjednodussi je zalozit dalsi ucet ktery diakritiku neobsahuje.

[Uziv00]

Trvale zůstane připojena, pokud ji naklikáš (připojit síťovou jednotku) a zatrhneš "Připojit při každém spuštění"

[petr22]

Trvale dokud bude ta cesta existovat. Pak zalezi na tom jak moc zkuseny uzivatel to pouziva jestli potvrdi odpojeni.

[d1amond]

Trvale zůstane připojena, pokud ji naklikáš (připojit síťovou jednotku) a zatrhneš "Připojit při každém spuštění"

Jde o to, že mám na jednom PC třeba 5 uživatelů. Těch PC kolem 140. A těch jednotek je 3-5, takže zatím ručně na každý uživatelský účet ty jednotky mapuju, ale je to šíleně zdlouhavé.

[petr22]

To jsou lokalni uzivatele nebo tam mas domenu? Na cem jsou ty shary co se pripojuji?

Primarni problem je ovsem diakritika v loginu.

[Uziv00]

Zkus to ve vbs. Ten by české znaky mohl sežrat :

Kód: Vybrat vše

Option Explicit

Dim oNetwork
Dim strDriveLetter
Dim strShare
Dim blnProfile 'persisten
Dim strUserName
Dim strPassword

WScript.Sleep(5000)

strDriveLetter = "W:"
strShare = "\\MEDIASHARE\MyLibrary"
blnProfile = True
strUserName = "uživatel"
strPassword = "heslo"

Set oNetwork = CreateObject("WScript.Network")
oNetwork.MapNetworkDrive strDriveLetter, strShare, blnProfile, strUserName, strPassword
Set oNetwork = Nothing

strDriveLetter = "V:"
strShare = "\\MEDIASHARE\FamilyLibrary"
blnProfile = True
strUserName = "uživatel"
strPassword = "mojeheslo"
Set oNetwork = CreateObject("WScript.Network")
oNetwork.MapNetworkDrive strDriveLetter, strShare, blnProfile, strUserName, strPassword
Set oNetwork = Nothing


[d1amond]

Tušil jsem, že mě v tom nenecháš:) Díky, zitra zkusim.

[d1amond]

Funguje perfektně, díky za velkou pomoc.

[Uziv00]

není zač
To víš, skripty, to je moje
Navíc i pro mě je to zkušenost. Doteď jsem netušil, proč používat vbs, když net use funguje bez problémů. A teď už to vím