home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 September / CHIPCD_9_99.iso / software / uaktualnienia / OptionPackPL / wsh.cab / network.js < prev    next >
Text File  |  1997-12-05  |  4KB  |  113 lines
  1. // Przyk│adowy skrypt dla Hosta skrypt≤w systemu Windows
  2. //
  3. // ------------------------------------------------------------------------
  4. //               Copyright (C) 1996-1997 Microsoft Corporation
  5. //
  6. // Klient posiada pe│ne prawa do u┐ywania, modyfikowania, reprodukowania
  7. // i dystrybucji plik≤w przyk│adowych aplikacji (i/lub dowolnej 
  8. // ich zmodyfikowanej wersji), w spos≤b dla niego u┐yteczny, pod warunkiem 
  9. // zaakceptowania faktu, i┐ firma Microsoft nie zapewnia gwarancji i nie 
  10. // ponosi odpowiedzialno£ci za pliki przyk│adowych aplikacji.
  11. // ------------------------------------------------------------------------
  12.  
  13. // Ten przyk│ad pokazuje, w jaki spos≤b u┐ywaµ obiektu WshNetwork.
  14. // Odczytuje on w│a£ciwo£ci sieci (nazwa u┐ytkownika i nazwa sieci), 
  15. // │╣czy, roz│╣cza, i przelicza dyski sieciowe w oparciu o wyb≤r 
  16. // u┐ytkownika.
  17.  
  18. var vbOKOnly = 0;
  19. var vbOKCancel = 1;
  20. var vbYesNo = 4;
  21. var vbQuestion = 32;
  22. var vbInformation = 64;
  23. var vbCancel = 2;
  24. var vbYes = 6;
  25.  
  26. var L_Welcome_MsgBox_Message_Text   = "Ten przyk│ad pokazuje, w jaki spos≤b u┐ywaµ obiektu WshNetwork.";
  27. var L_Welcome_MsgBox_Title_Text     = "Przyk│adowy skrypt dla Hosta skrypt≤w systemu Windows";
  28. Welcome();
  29.  
  30. //////////////////////////////////////////////////////////////////////////////////
  31. // 
  32. //  Obiekt WSH Network.
  33. // 
  34.  
  35. var WSHShell = WScript.CreateObject("WScript.Shell");
  36. var WSHNetwork = WScript.CreateObject("WScript.Network")
  37. var colDrives, SharePoint
  38.  
  39.  
  40.  
  41. function Ask(strAction){
  42.    // Ta funkcja zapytuje u┐ytkownika czy przeprowadziµ specyficzn╣ akcjΩ 
  43.    // ("Action") i ustawia kod powrotu, lub przerywa wykonanie skryptu 
  44.    // w zale┐no£ci od naci£niΩtego przez u┐ytkownika przycisku. Funkcja
  45.    // ta jest wywo│ywana w wielu miejscach w poni┐szym skrypcie.
  46.  
  47.     var intButton
  48.     intButton = WSHShell.Popup(strAction,
  49.                                0,
  50.                                L_Welcome_MsgBox_Title_Text,
  51.                                vbQuestion + vbYesNo );
  52.     return intButton == vbYes;
  53. }
  54.  
  55. //////////////////////////////////////////////////////////////////////////////////
  56. // 
  57. //  Poka┐ w│a£ciwo£ci obiektu WSHNetwork
  58. // 
  59. // 
  60. WSHShell.Popup("UserDomain\t= " + WSHNetwork.UserDomain  +
  61.                "\r\nUserName\t= " + WSHNetwork.UserName  +
  62.                "\r\nComputerName\t= " + WSHNetwork.ComputerName,
  63.                0,
  64.                "W│a£ciwo£ci WSHNetwork",
  65.                vbInformation + vbOKOnly );
  66.  
  67. //////////////////////////////////////////////////////////////////////////////////
  68. // 
  69. //  WSHNetwork.EnumNetworkDrive
  70. // 
  71. // 
  72. //Ask user whether to enumerate network drives
  73. if (Ask("Czy chcesz przeliczyµ pod│╣czone dyski sieciowe?")) {
  74.     //Przelicza dyski sieciowe na obiekt kolekcji typu WshCollection
  75.     var colDrives = WSHNetwork.EnumNetworkDrives();
  76.  
  77.     //Je┐eli nie znaleziono ┐adnych dysk≤w sieciowych, poinformuj o tym u┐ytkownika, 
  78.     //w przeciwnym razie wy£wietl je
  79.     if (colDrives.length == 0) {
  80.         WSHShell.Popup("Nie znaleziono dysk≤w sieciowych.",
  81.                        0,
  82.                        L_Welcome_MsgBox_Title_Text,
  83.                        vbInformation + vbOKOnly );
  84.     } else {
  85.         strMsg = "Aktualnie do│╣czone dyski sieciowe: \r\n";
  86.         for (i = 0; i < colDrives.length; i += 2) {
  87.             strMsg = strMsg + "\r\n" + colDrives(i) + "\t" + colDrives(i + 1);
  88.         }
  89.         
  90.         WSHShell.Popup(strMsg,
  91.                        0,
  92.                        L_Welcome_MsgBox_Title_Text,
  93.                        vbInformation + vbOKOnly );
  94.     }
  95. }
  96.  
  97. //////////////////////////////////////////////////////////////////////////////////
  98. //
  99. // Witamy
  100. //
  101. function Welcome() {
  102.     var WSHShell = WScript.CreateObject("WScript.Shell");
  103.     var intDoIt;
  104.  
  105.     intDoIt =  WSHShell.Popup(L_Welcome_MsgBox_Message_Text,
  106.                               0,
  107.                               L_Welcome_MsgBox_Title_Text,
  108.                               vbOKCancel + vbInformation );
  109.     if (intDoIt == vbCancel) {
  110.         WScript.Quit();
  111.     }
  112. }
  113.