1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Public Declare Function User32MsgBox Lib \"user32\" Alias \"MessageBoxW\" _
                       (Optional ByVal hWnd    As Long, _
                        Optional ByVal Prompt  As Long, _
                        Optional ByVal Title   As Long, _
                        Optional ByVal Buttons As Long) As Long
'______________________________________________________________________
 
Public Function MsgBoxW(cPrompt           As Variant, _
                        Optional cButtons As VbMsgBoxStyle = vbOKOnly, _
                        Optional cTitle   As String) As Long
  MsgBoxW = User32MsgBox(0, StrPtr(cPrompt), StrPtr(cTitle), cButtons)
End Function
'______________________________________________________________________
 
Sub MsgBoxW_Test()
    Call MsgBoxW(\"Text zpravy\", vbCritical, \"Nadpis\")
End Sub

Bla bla bla

Bla bla bla

Bla bla bla

 

Bla bla bla

Bla bla bla

 

Bla bla bla

Bla bla bla

 

Bla bla bla

Bla bla bla

 

Bla bla bla

Bla bla bla

 

Bla bla bla

Bla bla bla

 

Bla bla bla

Bla bla bla

 

Bla bla bla

Bla bla bla

 

Bla bla bla

Bla bla bla

 

Bla bla bla

Bla bla bla

 

Bla bla bla

Bla bla bla

 

Bla bla bla

Bla bla bla

 

Bla bla bla

Bla bla bla

StartUp.vbs

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
' 0 Hide the window (and activate another window.)
' 1 Activate and display the window. (restore size and position) Specify this flag when displaying a window for the first time. 
' 2 Activate & minimize. 
' 3 Activate & maximize. 
' 4 Restore. The active window remains active. 
' 5 Activate & Restore. 
' 6 Minimize & activate the next top-level window in the Z order. 
' 7 Minimize. The active window remains active. 
' 8 Display the window in its current state. The active window remains active. 
' 9 Restore & Activate. Specify this flag when restoring a minimized window. 
'10 Sets the show-state based on the state of the program that started the application.
 
Function readFromRegistry (strRegistryKey, strDefault)
    Dim WSHShell, value
 
 
 
    On Error Resume Next
    Set WSHShell = CreateObject ("WScript.Shell")
    value = WSHShell.RegRead (strRegistryKey)
 
    If err.number <> 0 Then
        readFromRegistry= strDefault
    else
        readFromRegistry=value
    end if
 
    set WSHShell = nothing
End function
 
Function OpenWithChrome(strURL, Optional boolNewWindow)
    Dim strChrome
    Dim WShellChrome
 
	'---
    strChrome = readFromRegistry ( "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\chrome.exe\Path", "") 
    If (strChrome = "") Then
        strChrome = "chrome.exe"
    Else
        strChrome = strChrome & "\chrome.exe"
    End If
	strChrome = """" & strChrome & """"
	
	'---
	If boolNewWindow = True Then
		strChrome = strChrome & " --new-window "
	End If
	
	'---
    Set WShellChrome = CreateObject("WScript.Shell")
    strChrome = strChrome & " """ & strURL & """"
	
	'---	
    WShellChrome.Run strChrome, 3, False
End Function
 
Function OpenWithIE(strURL)
    Dim strIE
    Dim WShellIE
 
    strIE = readFromRegistry ( "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\iexplore.exe\Path", "" ) 
    If (strIE = "") Then
        strIE = "iexplore.exe"
    Else
        strIE = strIE & "\iexplore.exe"
    End If
    Set WShellIE = CreateObject("WScript.Shell")
    strIE = """" & strIE & """" & " " & strURL
    WShellIE.Run strIE, 3, False
End Function
 
Function RunAnyProgram(strProgram)
    Dim WShellAnyProg
 
    Set WShellAnyProg = CreateObject("WScript.Shell")
	strProgram = """" & strProgram & """"
    WShellAnyProg.Run strProgram, 1, False
End Function
 
Function RunProgramsAfterStartPC(strSiteName)
	Dim adSys
	Set adSys = CreateObject("ADSystemInfo")
 
    If adSys.SiteName = strSiteName Then
		'----------------------------------------------------------------------
		'--- Run program's
		'----------------------------------------------------------------------
		
		' -- Email client 
		RunAnyProgram "C:\....exe"
		'RunAnyProgram "%windir%\system32\calc.exe"
		
	Else
		MsgBox "Script has been not started"
	End If
End Function
          
RunProgramsAfterStartPC "XXX"