[VBS]레지스트리 입력 스크립트 - SCOM

SCOM의 작업을 이용해 파라미터를 받아 레지스트리 입력 또는 업데이트
VBS VBScript SCOM System Center Operations Manager

Set oArgs = WScript.Arguments

' 파라미터 Validation Check
If UCASE(oArgs(0)) <> "ABC" AND UCASE(oArgs(0)) <> "DEF" AND UCASE(oArgs(0)) Then
Guide()
End If

If UCASE(oArgs(1)) <> "ABC" AND UCASE(oArgs(1)) <> "DEF" AND UCASE(oArgs(1)) Then
Guide()
End If

const HKEY_LOCAL_MACHINE = &H80000002
strComputer = "."
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_
strComputer & "\root\default:StdRegProv")

strKeyPath = "SOFTWARE\SAMPLE"
oReg.CreateKey HKEY_LOCAL_MACHINE,strKeyPath

oReg.SetStringValue HKEY_LOCAL_MACHINE,strKeyPath,"Parameter1",UCASE(oArgs(0))
oReg.SetStringValue HKEY_LOCAL_MACHINE,strKeyPath,"Parameter2",UCASE(oArgs(1))
WScript.Echo ""
WScript.Echo "레지스트리 업데이트 완료."
WScript.Echo " - 파라미터 1: " & UCASE(oArgs(0))
WScript.Echo " - 파라미터 2: " & UCASE(oArgs(1))
WScript.Quit

Sub Guide()
WScript.Echo ""
WScript.Echo "매개변수 입력 가이드"
WScript.Quit
End Sub