Folks,

RE: Installing SMS packages using OSD. VB to KIX help.

I've found this great little VB script which installs an SMS package on demand. I had a shot at converting it to KIX but can't seem to make it work. Can anyone point out where I'm going wrong please? See below.

Cheers,
Dave


VB:

Public Const adOpenStatic = 3
Public Const adLockReadOnly = 1
Public Const adLockOptimistic = 3

'vars
Dim objWshShell, objOSD

'wscript
Set objWshShell = CreateObject("WScript.Shell")

' Set SMS SiteCode and MP
objwshShell.Run "osdenv.exe /Regserver", 0, true
Set objOSD = CreateObject("OSD.Environment")
objOSD("OSDMP") = "SMS1:80"
objOSD("OSDSITECODE") = "PS1"

'install
cmd = objWshShell.Run("OSDSWDExec ""PS100001:PER-SYSTEM UNATTENDED INSTALL 1"" MSIEXEC.EXE /I BRXTEMPLATESC14.MSI /QB!-", 1, true)


MY KIX ATTEMPT:

;vars
Dim $objWshShell, $objOSD

;wscript
$objWshShell = CreateObject("WScript.Shell")

;Set SMS SiteCode and MP
$result = $objwshShell.Run('osdenv.exe /Regserver', 0, true)
$objOSD = CreateObject("OSD.Environment")
$objOSD.OSDMP = "SMS1:80"
$objOSD.OSDSITECODE = "PS1"

;install
$result = $objWshShell.Run('OSDSWDExec.exe "PS100001:PER-SYSTEM UNATTENDED INSTALL 1" MSIEXEC.EXE /I BRXTEMPLATESC14.MSI /QB!-', 1, true)