ptw systemu Windows"
Call Welcome()

' ********************************************************************************
' *
' * Obiekt WSH Network.
' *

Dim WSHNetwork
Dim colDrives, SharePoint
Dim CRLF

CRLF = Chr(13) & Chr(10)
Set WSHNetwork = WScript.CreateObject("WScript.Network")


Function Ask(strAction)

   ' Ta funkcja zapytuje uytkownika czy przeprowadzi specyficzn akcj 
   ' ("Action") i ustawia kod powrotu, lub przerywa wykonanie skryptu 
   ' w zalenoci od nacinitego przez uytkownika przycisku. Funkcja
   ' ta jest wywoywana w wielu miejscach w poniszym skrypcie.

    Dim intButton
    intButton = MsgBox(strAction,                   _
                       vbQuestion + vbYesNo,        _
                       L_Welcome_MsgBox_Title_Text )
    Ask = intButton = vbYes
End Function

' **************************************************
' *
' * Poka waciwoci obiektu WSHNetwork
' *
' *
MsgBox "UserDomain"     & Chr(9) & "= " & WSHNetwork.UserDomain  & CRLF &   _
       "UserName"       & Chr(9) & "= " & WSHNetwork.UserName    & CRLF &   _
       "ComputerName"   & Chr(9) & "= " & WSHNetwork.ComputerName,          _
       vbInformation + vbOKOnly,                                            _
       "Waciwoci WSHNetwork"

' **************************************************
' *
' * WSHNetwork.AddNetworkDrive
' *
' *

Function TryMapDrive(intDrive, strShare)
    Dim strDrive
    strDrive = Chr(intDrive + 64) & ":"
    On Error Resume Next
    WSHNetwork.MapNetworkDrive strDrive, strShare
    TryMapDrive = Err.Number = 0
End Function

If Ask("Czy chcesz przeliczy podczone dyski sieciowe?") Then
    strShare = InputBox("Wprowad nazw udziau sieciowego do ktrego chcesz si podczy ")
    For intDrive = 26 To 5 Step -1
        If TryMapDrive(intDrive, strShare) Then Exit For
    Next

    If intDrive <= 5 Then
        MsgBox "Nie mona si podczy do udziau sieciowego. "                        & _
               "Brakuje dostpnych liter dla dyskw. "    & _
               CRLF                                                          & _
               "Prosz zamkn jedno z pocze sieciowych " & _
               "i uruchomi ten skrypt ponownie. ",                                  _
               vbExclamation + vbOkOnly,        _
               L_Welcome_MsgBox_Title_Text
    Else
        strDrive = Chr(intDrive + 64) & ":"
        MsgBox "Podczenie " & strShare & " do dysku " & strDrive,   _
               vbInformation + vbOkOnly,                            _
               L_Welcome_MsgBox_Title_Text

        If Ask("Czy chcesz odczy dysk sieciowy?") Then
            WSHNetwork.RemoveNetworkDrive strDrive

            MsgBox "Odczony dysk " & strDrive,        _
                   vbInformation + vbOkOnly,                _
                   L_Welcome_MsgBox_Title_Text
        End If
    End If
End If


' **************************************************
' *
' * WSHNetwork.EnumNetworkDrive
' *
' *
'Zaytaj uytkownika czy przeliczy dyski sieciowe
If Ask("Czy chcesz przeliczy podczone dyski sieciowe?") Then
    'Przelicza dyski sieciowe na obiekt kolekcji typu WshCollection
    Set colDrives = WSHNetwork.EnumNetworkDrives

    'Jeeli nie znaleziono adnych dyskw sieciowych, poinformuj o tym uytkownika,
    'w przeciwnym razie wywietl je
    If colDrives.Count = 0 Then
        MsgBox "Nie odnaleziono dyskw sieciowych.",     _
               vbInformation + vbOkOnly,                _
               L_Welcome_MsgBox_Title_Text
    Else
        strMsg = "Aktualnie doczone dyski sieciowe: " & CRLF
        For i = 0 To colDrives.Count - 1 Step 2
            strMsg = strMsg & CRLF & colDrives(i) & Chr(9) & colDrives(i + 1)
        Next
        
        MsgBox strMsg,                                  _
               vbInformation + vbOkOnly,                _
               L_Welcome_MsgBox_Title_Text

    End If
End If

' ********************************************************************************
' *
' * Witamy
' *
Sub Welcome()
    Dim intDoIt

    intDoIt =  MsgBox(L_Welcome_MsgBox_Message_Text, _
                      vbOKCancel + vbInformation,    _
                      L_Welcome_MsgBox_Title_Text )
    If intDoIt = vbCancel Then
        WScript.Quit
    End If
End Sub


' Przykadowy skrypt dla Hosta skryptw systemu Windows
'
' ------------------------------------------------------------------------
'               Copyright (C) 1996-1998 Microsoft Corporation
'
' Klient posiada pene prawa do uywania, modyfikowania, reprodukowania 
' i dystrybucji plikw przykadowych aplikacji (i/lub dowolnej 
' ich zmodyfikowanej wersji), w sposb dla niego uyteczny, pod warunkiem 
' zaakceptowania faktu, i firma Microsoft nie zapewnia gwarancji i nie 
' ponosi odpowiedzialnoci za pliki przykadowych aplikacji.
' ------------------------------------------------------------------------
'
' Ten przykad pokazuje w jaki sposb zapisywa/usuwa zawarto rejestru 


L_Welcome_MsgBox_Message_Text   = "Ten przykad pokazuje w jaki sposb zapisywa/usuwa zawarto rejestru."
L_Welcome_MsgBox_Title_Text     = "Przykadowy skrypt dla Hosta skryptw systemu Windows"
Call Welcome()


' ********************************************************************************
' *
' * Metody zwizane z rejestrem.
' *

Dim WSHShell
Set WSHShell = WScript.CreateObject("WScript.Shell")

WSHShell.Popup "Utwrz klucz HKCU\MyRegKey z wartoci 'Top level key'"
WSHShell.RegWrite "HKCU\MyRegKey\", "Top level key"

WSHShell.Popup "Utwrz klucz HKCU\MyRegKey\Entry z wartoci 'Second level key'"
WSHShell.RegWrite "HKCU\MyRegKey\Entry\", "Second level key"

WSHShell.Popup "Ustaw warto HKCU\MyRegKey\Value na REG_SZ 1"
WSHShell.RegWrite "HKCU\MyRegKey\Value", 1

WSHShell.Popup "Ustaw warto HKCU\MyRegKey\Entry na REG_DWORD 2"
WSHShell.RegWrite "HKCU\MyRegKey\Entry", 2, "REG_DWORD"

WSHShell.Popup "Ustaw warto HKCU\MyRegKey\Entry\Value1 na REG_BINARY 3"
WSHShell.RegWrite "HKCU\MyRegKey\Entry\Value1", 3, "REG_BINARY"

WSHShell.Popup "Usu warto HKCU\MyRegKey\Entry\Value1"
WSHShell.RegDelete "HKCU\MyRegKey\Entry\Value1"

WSHShell.Popup "Usu klucz HKCU\MyRegKey\Entry"
WSHShell.RegDelete "HKCU\MyRegKey\Entry\"

WSHShell.Popup "Usu klucz HKCU\MyRegKey"
WSHShell.RegDelete "HKCU\MyRegKey\"

' ********************************************************************************
' *
' * Witamy
' *
Sub Welcome()
    Dim intDoIt

    intDoIt =  MsgBox(L_Welcome_MsgBox_Message_Text,    _   
                      vbOKCancel + vbInformation,       _
                      L_Welcome_MsgBox_Title_Text )
    If intDoIt = vbCancel Then
        WScript.Quit
    End If
End Sub
' Przykadowy skrypt dla Hosta skryptw systemu Windows
'
' ------------------------------------------------------------------------
'               Copyright (C) 1996-1998 Microsoft Corporation
'
' Klient posiada pene prawa do uywania, modyfikowania, reprodukowania 
' i dystrybucji plikw przykadowych aplikacji (i/lub dowolnej 
' ich zmodyfikowanej wersji), w sposb dla niego uyteczny, pod warunkiem 
' zaakceptowania faktu, i firma Microsoft nie zapewnia gwarancji i nie 
' ponosi odpowiedzialnoci za pliki przykadowych aplikacji.
' ------------------------------------------------------------------------
'
' Ten przykad demonstruje w jaki sposb uywa obiektu WshShell
' w celu utworzenia skrtu na pulpicie


L_Welcome_MsgBox_Message_Text   = "Ten skrypt tworzy na pulpicie skrt do programu Notatnik."
L_Welcome_MsgBox_Title_Text     = "Przykadowy skrypt dla Hosta skryptw systemu Window"
Call Welcome()

' ********************************************************************************
' *
' * Metody powizane ze skrtami.
' *

Dim WSHShell
Set WSHShell = WScript.CreateObject("WScript.Shell")


Dim MyShortcut, MyDesktop, DesktopPath

' Odczytanie cieki przy uyciu obiektu WshSpecialFolders
DesktopPath = WSHShell.SpecialFolders("Desktop")

' Utworzenie obiektu skrtu na pulpicie
Set MyShortcut = WSHShell.CreateShortcut(DesktopPath & "\Skrt do Notatnik.lnk")

' Ustaw waciwoci obiektu shortcut i zapisz je
MyShortcut.TargetPath = WSHShell.ExpandEnvironmentStrings("%windir%\notepad.exe")
MyShortcut.WorkingDirectory = WSHShell.ExpandEnvironmentStrings("%windir%")
MyShortcut.WindowStyle = 4
MyShortcut.IconLocation = WSHShell.ExpandEnvironmentStrings("%windir%\notepad.exe, 0")
MyShortcut.Save

WScript.Echo "Skrt do programu Notatnik zosta umieszczony na twoim pulpicie."

' ********************************************************************************
' *
' * Witamy
' *
Sub Welcome()
    Dim intDoIt

    intDoIt =  MsgBox(L_Welcome_MsgBox_Message_Text,    _
                      vbOKCancel + vbInformation,       _
                      L_Welcome_MsgBox_Title_Text )
    If intDoIt = vbCancel Then
        WScript.Quit
    End If
End Sub
' Przykadowy skrypt dla Hosta skryptw systemu Windows
'
' ------------------------------------------------------------------------
'               Copyright (C) 1996-1998 Microsoft Corporation
'
' Klient posiada pene prawa do uywania, modyfikowania, reprodukowania 
' i dystrybucji plikw przykadowych aplikacji (i/lub dowolnej 
' ich zmodyfikowanej wersji), w sposb dla niego uyteczny, pod warunkiem 
' zaakceptowania faktu, i firma Microsoft nie zapewnia gwarancji i nie 
' ponosi odpowiedzialnoci za pliki przykadowych aplikacji.
' ------------------------------------------------------------------------
'
' Ten przykad wywietla wszystkie zmienne rodowiskowe zdefiniowane w tym komputerze


L_Welcome_MsgBox_Message_Text    = "Ten przykad wywietla wszystkie zmienne rodowiskowe zdefiniowane w tym komputerze."
L_Welcome_MsgBox_Title_Text      = "Przykadowy skrypt dla Hosta skryptw systemu Windows"
Call Welcome()


' ********************************************************************************
' *
' * Przykad
' *
CRLF = Chr(13) & Chr(10)

Dim WSHShell
Set WSHShell = WScript.CreateObject("WScript.Shell")


Sub show_env(strText)
    MsgBox strText, vbInformation, L_Welcome_MsgBox_Title_Text
End Sub

intIndex = 0
strText = ""
intNumEnv = 0
MAX_ENV = 20
For Each strEnv In WshShell.Environment("PROCESS")
    intIndex = intIndex + 1
    strText = strText & CRLF & Right("    " & intIndex, 4) & " " & strEnv
    intNumEnv = intNumEnv + 1
    If intNumEnv >= MAX_ENV Then
        Call show_env(strText)
        strText = ""
        intNumEnv = 0
    End If
Next

If intNumEnv >= 1 Then Call show_env(strText)


' ********************************************************************************
' *
' * Witamy
' *
Sub Welcome()
    Dim intDoIt

    intDoIt =  MsgBox(L_Welcome_MsgBox_Message_Text, _
                      vbOKCancel + vbInformation,    _
                      L_Welcome_MsgBox_Title_Text )
    If intDoIt = vbCancel Then
        WScript.Quit
    End If
End Sub
MZ                @                                       	!L!This program cannot be run in DOS mode.

$       LE                                       !       M                                             2      2                                                             `     [       E         LCOD                PCOD      DCAPVXD                    U F        P                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         DCAPVXD                                        verPP   1vsR2vsR3vsR#                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       