bat文件与Vbs文件之间的常用操作(获取用户输入,执行VBS文件)

1

2

3

4

5

6

7

set /P StrInput="输入数字："

echo 输入的数字为%StrInput%

set /P Flg="是否执行(y/n):"

IF "%Flg%" equ "y" (

  echo 执行命令

  cscript abc.vbs "%StrInput%"

)

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

Dim WshShell

Dim CurDir

Dim oParam

'取参数

Set oParam = WScript.Arguments

if oParam.Count>0 Then

Else

    WScript.Quit

End if

'获取当前路径

Set WshShell = WScript.CreateObject("WScript.Shell")

CurDir = WshShell.CurrentDirectory

'写文件操作

Function OutputData(filename)

    Dim objFSOW

    Dim objFileW

    Set objFSOW = WScript.CreateObject("Scripting.FileSystemObject")

    Set objFileW = objFSOW.OpenTextFile(filename,2,True)

    objFileW.Write(filename)

    objFileW.Write(vbCrLf)

    objFileW.Write(vbTab)

    Set objFileW = Nothing

    Set objFSOW =Nothing

End Function

'WebAPI操作

'params = "{""method"":""get"",""ID"":""12""}"

Function RequestAPI(url,params)

    Dim oHttp

    Set oHttp = CreateObject("MSXML2.ServerXMLHTTP")

    on error resume next

    oHttp.Open "POST",url,False

    If Err Then

        RequestAPI = Err.Description

    End If

    On Error Goto 0

    oHttp.SetRequestHeader "Content-Type","application/json"

    oHttp.Send params

    If oHttp.readyState<>4 Then

       oHttp.waitForResponse(10)

    End If

    RequestAPI = oHttp.ResponseText

    Set oHttp = Nothing

End Function

'TimeStamp -> Date

Function FormatDate(timestamp)

   FormatDate = DateAdd("s",CLng(timestamp),"01/01/1970 00:00:00")

End Function

'Date ->TimeStamp

Function DateToTimeStamp(dateValue)

   DateToTimeStamp = DateDiff("s","01/01/1970 00:00:00",dateValue)

End Function

1

2

3

4

5

6

7

8

9

10

11

@echo "kill CRT process"

taskkill /F /IM SecureCRT.exe

::ping 127.0.0.1 -n 30

echo "start vos through CRT"

echo off

d:

cd D:\tools\SecureCRT_x86

start SecureCRT.EXE /SCRIPT D:\Secure_vos\Start_vos.vbs

echo "start vos through CRT end"

ping 127.0.0.1 -n 4

pause

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

On Error Resume Next

Dim result

If crt.Session.Connected Then crt.Session.Disconnect

' connected to the '172.21.1.114'

Set objtab = crt.Session.ConnectInTab("/SSH2 /PASSWORD root root@172.21.1.114",True)

' Capture error code and description (if any)

nError = Err.Number

strErr = Err.Description

' Now, tell the script host that it should handle errors as usual now:

On Error Goto 0

' change tab name

objtab.caption = "Gdb_vos"

' enter the folder

crt.Screen.Send "cd /home/test" & chr(13)

crt.Screen.WaitForString chr(27) & "[32m(none) /home/test" & chr(27) & "[m # "

End Sub