TIP - sdílení mezi verzemi windows jednoduše Vyřešeno

Moderátor: Mods_senior

Uživatelský avatar
ITCrowd
Tvůrce článků
Elite Level 11.5
Elite Level 11.5
Příspěvky: 14793
Registrován: březen 10
Pohlaví: Muž

TIP - sdílení mezi verzemi windows jednoduše

Příspěvekod ITCrowd » 26 říj 2012 14:27

Shared_folder.jpg


Čas od času se na fórech objeví dotaz na sdílení adresáře mezi Windows7 a Windows XP. Nejedná se samozřejmě o nic složitého, nicméně nezkušení uživatelé mohou mít problémy s aplikací dobře míněných rad. Rozhodl jsem se, proto s těmito problémy skončit jednou provždy.
Využívám k tomu Visual Basic Script - což je nástroj obsažený ve windows již od verze 98.

Zde je návod:
1. Zkopírujte si z "Code" text.
2. Vložte jej do Notepadu (Nepoužívat Word apod.!)
3. Editací v Notepadu zadejte:
- Do const Sdileni přesný název adresáře který bude sdílen (na vzáleném PC) Zde "C:\Tmp"
- Do const Nazev název sdílení Zde "TempWin7"
- Do const Pozn poznámku ke sdílení Zde "Sdílení přes skript"
- Do strComputer IP adresu nebo název vzdáleného PC Zde "192.168.1.10"
- Do strDriveLetter Písmeno disku na lokálním PC Zde "Z:"
- Do strUsername název účtu na vzdáleném PC Zde "User"
- Do strPassword heslo k tomuto účtu Zde "Pass"
! Tento účet musí být účtem správce - čili musí mít admin práva!
4. Editovaný soubor uložte. Příponu souboru změňte na .vbs (Např. sdileni.vbs)
Soubor spusťte (poklepáním). Pokud je vše v pořádku, objeví se za několik sekund nová síťová jednotka ve které najdete obsah sdíleného adresáře vzdáleného PC.

Kód: Vybrat vše

'**************************************************
'* Script nasdílí zvolený adresář na vzdáleném PC *
'*      Sdílení připojí jako síťový disk          *
'*                                                *
'*            Etienn@Soft v1.0                    *
'**************************************************
'

Option Explicit
Const FILE_SHARE = 0
Const MAXIMUM_CONNECTIONS = 10      'max. počet připojení
Const Sdileni = "C:\Tmp"          'přesný název adresáře na vzdáleném PC
Const Nazev = "TempWin7"         'název sdílení
Const Pozn = "Sdílení přes skript"   'poznámka
Dim strComputer, strDriveLetter, strShare, blnProfile, strUserName, strPassword
Dim objSWbemLocator, objSWbemServices, objNewShare, errReturn, oNetwork

 strComputer = "192.168.1.10"      'IP adresa vzdáleného PC nebo jméno
 strDriveLetter = "Z:"            'Písmeno budoucího síťového disku na lokálním PC
 strShare = "\\" & strComputer & "\" & Nazev
 blnProfile = False
 strUserName = "User"            'účet na vzdáleném PC
 strPassword = "Pass"            'heslo k účtu na vzdáleném PC
 
Set objSWbemLocator = CreateObject("WbemScripting.SWbemLocator")
Set objSWbemServices = objSWbemLocator.ConnectServer _
    (strComputer, "root\cimv2", strUserName, strPassword)
objSWbemServices.Security_.ImpersonationLevel = 3

Set objNewShare = objSWbemServices.Get("Win32_Share")
errReturn = objNewShare.Create _
    (Sdileni, Nazev, FILE_SHARE, _
        MAXIMUM_CONNECTIONS, Pozn)
       
If ErrReturn = 0 Or ErrReturn = 22 Then
 Set oNetwork = CreateObject("WScript.Network")
 oNetwork.MapNetworkDrive strDriveLetter, strShare, blnProfile, strUserName, strPassword
 Set oNetwork = Nothing
Else
 MsgBox "Sdílení se nepodařilo vytvořit" & vbCrLf & "Síťový disk nelze připojit", vbOKOnly + vbCritical, "Chyba"
End If

Nefunguje to?! - možné příčiny:
Chyba v zadání - znovu zkontrolovat (min. 3x)
Adresář na vzdáleném PC neexistuje
Vzdálené PC není zapnuto nebo připojeno k síti
Zapnutý firewall jiného výrobce (přes windows firewall to projde)
Písmeno disku je již obsazeno (např. kdyby se někdo pokusil tam zadat C:)
Zadaný účet nemá administrátorská práva
Heslo k admin účtu je prázdné


Popis funkce:
skript se po spuštění připojí k WMI vzdáleného PC a nasdílí zvolený adresář. Pokud tato operace proběhla v pořádku (návratová hodnota errReturn ) připojí tento adresář jako síťový disk. V opačném případě vypíše chybovou hlášku.

Přístupová práva:
Závisí na konkrétním operačním systému. Skript nastavuje sdílení pro skupinu Everyone. Práva této skupiny určuje výchozí nastavení systému. U WinXP proto budete mít práva čtení i zápisu, zatímco u Win2003Server (Win7) pouze ke čtení.
I tak je to pomoc, neboť upravit práva k již existujícímu sdílení pomocí pravokliku není nijak složité. Bohužel jsem zatím nepřišel na rozumnou možnost jak ve vbs řešit přístupy konkrétních uživatelských účtů.

Poznámka
Skript jsem testoval na OS WinXP, Win2003ServerSP3, Win7Ultimate a to v obou směrech. Nasdílení a připojení jednotky proběhlo vždy bez problémů. Netestoval jsem na WinVista (nemám tu možnost).
Doufám, že vám tento skript usnadní vzájemné sdílení dat v síti. Práci jistě ušetří i administrátorům, kteří mohou využít nasdílení dat skriptem a odpadne jim tudíž práce se zdlouhavým přihlašováním (o cestě do serverovny k lokálnímu terminálu ani nemluvě).
Výhoda tohoto řešení je zřejmá - nezávisle na verzi windows se můžu připojit k potřebnému adresáři z libovolného PC. Samozřejmě za předpokladu že ke vzdálenému PC mám potřebné údaje.
Nemáte oprávnění prohlížet přiložené soubory.
Naposledy upravil(a) ITCrowd dne 04 lis 2012 22:37, celkem upraveno 1 x.


Zkusili jste to vypnout a zapnout? Problémy řeším pouze v tématech. Do SZ mi proto píšete zbytečně.
Základní diagnostika WiFi Jak na diagnostiku sítě Router jako switch Proč je nesmysl chtít router s velkým dosahem

Reklama
Uživatelský avatar
Ltb
Administrátor
Master Level 8
Master Level 8
Příspěvky: 6383
Registrován: únor 03
Bydliště: Praha západ
Pohlaví: Muž

Re: TIP - sdílení mezi verzemi windows jednoduše  Vyřešeno

Příspěvekod Ltb » 04 lis 2012 09:24

Děkujeme za hezký návod! Přidáno do sekce článků a návodů...


  • Mohlo by vás zajímat
    Odpovědi
    Zobrazení
    Poslední příspěvek
  • Přesunutí Windows 10 mezi diskama
    od Jopny » 11 pro 2017 23:41 » v Windows 10, 8, 7, Vista, XP…
    6
    443
    od Pic
    17 pro 2017 15:26
  • Tip na grafiku
    od radek178 » 22 led 2018 19:03 » v Rady s výběrem hardwaru a sestavením PC
    5
    337
    od radek178
    24 led 2018 18:58
  • Tip na chytré hodinky k androidu
    od Adussi » 14 úno 2018 14:20 » v Mobily, tablety a jiná přenosná zařízení
    11
    976
    od Adussi
    26 úno 2018 14:34
  • OneDrive sdílení souborů
    od maloselo » 02 čer 2018 12:54 » v Windows 10, 8, 7, Vista, XP…
    0
    239
    od maloselo
    02 čer 2018 12:54
  • ADOBE - Sdílení složky
    od wannabees » 07 pro 2017 18:27 » v Design a grafické editory
    1
    400
    od Hoff
    07 pro 2017 18:44

Zpět na “Software články”

Kdo je online

Uživatelé prohlížející si toto fórum: CommonCrawl [Bot] a 1 host