File: vbscript.vbs

package info (click to toggle)
wxwidgets2.8 2.8.10.1-3
  • links: PTS, VCS
  • area: main
  • in suites: squeeze
  • size: 239,052 kB
  • ctags: 289,550
  • sloc: cpp: 1,838,857; xml: 396,717; python: 282,506; ansic: 126,171; makefile: 51,406; sh: 14,581; asm: 299; sql: 258; lex: 194; perl: 139; yacc: 128; pascal: 95; php: 39; lisp: 38; tcl: 24; haskell: 20; java: 18; cs: 18; erlang: 17; ruby: 16; ada: 9; ml: 9; csh: 9
file content (51 lines) | stat: -rw-r--r-- 822 bytes parent folder | download | duplicates (5) 
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
 
' Syntax Highlighting test file for VBScript
' Comments look like this

function hello(name) 'comment for function

    on error resume next

    dim x,y

    if name<>"World" then
        for x = 1 to 10
            wscript.echo "Hello " & name
        next
    else
        x=0
        do while x<10
            wscript.echo "Hello World"
            x=x+1
        loop
    end if

    hello=x+y

end function

Public Function testPublicFunct()
    dim c,d
end Sub

sub testStub()
    dim a,b
end sub

Public Sub testPublicSub()
    dim c,d
end Sub

'---------------------------

on error resume next

dim didIt
dim userid

set WshShell = WScript.CreateObject("WScript.Shell")
'Finds the user name from an environment variable
userid=wshshell.expandenvironmentstrings("%username%")

didIt=hello(userid)

wscript.exit(0)