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)
|