File: vbscript.vbs

package info (click to toggle)
editra 0.5.30-1
  • links: PTS
  • area: main
  • in suites: squeeze
  • size: 9,904 kB
  • ctags: 7,945
  • sloc: python: 48,713; sql: 258; ansic: 241; sh: 187; php: 45; lisp: 38; tcl: 24; perl: 23; pascal: 21; haskell: 20; xml: 18; java: 18; cs: 18; erlang: 17; makefile: 17; cpp: 16; ruby: 16; asm: 15; csh: 9; ml: 9; ada: 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)