Visual Basic Scripting Edition

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"

Oblíbené štítky