File: vbscript.vbs

package info (click to toggle)
editra 0.6.58-1
  • links: PTS
  • area: main
  • in suites: wheezy
  • size: 13,320 kB
  • sloc: python: 71,924; sql: 258; ansic: 242; sh: 187; php: 45; tcl: 38; lisp: 38; perl: 23; java: 22; pascal: 21; cpp: 20; haskell: 20; xml: 18; cs: 18; erlang: 17; ruby: 16; asm: 15; ada: 9; csh: 9; makefile: 9; ml: 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)