[미완] vbs 줄바꿈

Dim strMessage
    strMessage = "Code:0" & vbCrLf & "Message:"

[미완] vbs try~catch

On Error Resume Next '=try
    Call Main()

If Err.Number <> 0 Then '=catch
    Call ErrorMessage()
Else
    ' 여기는 Error 발생 안했을대
End If

Sub ErrorMessage
    Dim strErrMsg
    strErrMsg = Err.Description
    Set strErrMsg = Nothing
    Err.Clear
End Sub

[미완] vbs에서 dll을 등록 했는데도 dll 호출시 에러가 발생하면

분류> vbs

   C:\WINDOWS\SysWOW64\CScript.exe abc.vbs 명시적으로 실행

[미완] VBS OS 구하기

분류 > vbs


Function GetOSVersion()

Dim objWMI, objItem, colItems
Dim VerOS, VerBig, Ver9x, Version9x, OS, OSystem

Set objWMI = GetObject("winmgmts:\\.\root\cimv2")
Set colItems = objWMI.ExecQuery("Select * from Win32_OperatingSystem", , 48)

For Each objItem in colItems

VerBig = Left(objItem.Version,3)

Next

Select Case VerBig

Case "6.1" GetOSVersion = "Win7"
Case "6.0" GetOSVersion = "Vista"
Case "5.2" GetOSVersion = "XP"
Case "5.1" GetOSVersion = "XP"
Case "5.0" GetOSVersion = "W2K"
Case "4.0" GetOSVersion = "NT 4.0**"
Case Else  GetOSVersion = "Unknown - probably Win 9x"

End Select

End Function

[미완] VBS 운영체제 Bit 정보 알아내기

분류 > VBS


Function GetOSBit()

const HKEY_LOCAL_MACHINE = &H80000002

Dim objReg, strKeyPath, strValueName, strValue
Set objReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")
strKeyPath = "HARDWARE\DESCRIPTION\System\CentralProcessor\0"
strValueName = "Identifier"

Call objReg.GetStringValue(HKEY_LOCAL_MACHINE, strKeyPath, strValueName, strValue)

If (instr(strValue,"x86")) Then

GetOSBit = "32"

ElseIf (instr(strValue,"64")) Then

GetOSBit = "64"

Else

GetOSBit = "NotSure"

End If

End Function

[미완] c# MSScriptControl 추가

분류 > C#

MSCriptControl - Refernces 추가법

Add Reference > COM > Microsoft Script Control 1.0 추가

[미완] depends.exe

분류 > 툴

필요한 dll 조사해주는 프로그램

[미완] dll 레지스트리에 등록 및 삭제

분류

abc.dll을 등록 및 삭제할떼

등록: regsvr32 abc.dll
삭제: regsvr32 -u abd.dll

절대경로 또는 cmd로 폴더까지 이동 후 실행

[미완] cmd 창 최소로 실행

분류 > vbs, cmd

cmd 창을 출력 안하고 싶지만
그것은 안되고
다른 방법으로 cmd를 만들고
cmd 바로가기를 만든다.
그 후 cmd 바로가기 설정을 최소로 실행으로 설정

[미완] cmd에서 중간에 나오기

cmd에서 무한 루프나 실행 중에 중간에 나오고 싶을때
"ctrl + c" 클릭

[미완] vbs 로컬 컴퓨터의 실행중인 Process 정보(이름, 핸들, ID) 보기

' 로컬 컴퓨터의 실행중인 Process 정보(이름, 핸들, ID) 보기
Function Handle

WScript.Echo "Handle() Start"

Dim strComputer
strComputer = "." ' 점(.)은 WMI에서 로컬 컴퓨터와 같음

Dim wbemServices, wbemObjectSet, wbemObject
Set wbemServices = GetObject("winmgmts:\\" & strComputer)
Set wbemObjectSet = wbemServices.InstancesOf("Win32_Process")

For Each wbemObject in wbemObjectSet
WScript.Echo "Name: " & wbemObject.Name & vbCrLf & _
" Handle: " & wbemObject.Handle & vbCrLf & _
" Process ID: " & wbemObject.ProcessID 
Next

WScript.Echo "Handle() End"

End Function

[미완] vbs에서 실행한 프로그램 끝날때까지 기다려주기

분류 > vbs

vbs에서 실행한 프로그램 끝날때까지 기다려주기



Option Explicit '선언되지 않은 변수 사용시 에러 발생

WScript.Echo "Start"

Dim objShell
Set objShell = WScript.CreateObject("WSCript.shell")
Call objShell.Run("notepad" , 1, 1) 'Run()뒤에 숫자( , 1, 1)는 끝나기를 기다려줌

WScript.Echo "End"

[미완] Notepad++에서 VBScript 실행

분류 > Notepad++, VBScript

플러그인 > NppExec 설치
F6 > cscript.exe 및 파일위치 입력