40 lines
1.1 KiB
Plaintext
40 lines
1.1 KiB
Plaintext
'=======================================
|
|
' addoemhsstest.vbs
|
|
' Cary Polen
|
|
' 9/20/2000
|
|
' Copyright Microsoft Corp 2000
|
|
'
|
|
' This scripts registers HSSTest
|
|
' as a vendor on the machine.
|
|
'========================================
|
|
|
|
' Declare variables
|
|
Dim objFSO
|
|
Dim objShell
|
|
Dim objHCU
|
|
|
|
' Assign constants
|
|
CONST strSource = "\\pchcert\certs\"
|
|
|
|
' Create objects
|
|
Set objFSO = Wscript.CreateObject("Scripting.FileSystemObject")
|
|
Set objShell = Wscript.CreateObject("Wscript.Shell")
|
|
Set objHCU = Wscript.CreateObject("hcu.pchupdate")
|
|
|
|
' Get paths
|
|
strWindir = objFSO.GetSpecialFolder(0).Path
|
|
strTempFolder = objFSO.GetSpecialFolder(2).Path
|
|
strPackage = strTempFolder & "\addoemhsstest.cab"
|
|
|
|
' Copy files locally
|
|
|
|
objFSO.CopyFile strSource & "addoemhsstest.cab", strTempFolder & "\"
|
|
objFSO.CopyFile strSource & "pchcert2.reg", strWindir & "\"
|
|
|
|
' Write CA cert to store
|
|
objShell.Run "regedit /s pchcert2.reg", true
|
|
|
|
' Run Update
|
|
objHCU.UpdatePkg strPackage, true
|
|
wscript.echo "Done. HSSTest has been registered as a Node Owner." & vbCRLF & "You may now install your HSSTest signed Help Package"
|