DComTalk.com

Keith Templin · Guest

I am looking to write a vb script to loackdown all settings on Win98 SE and
XP. So far I have been able to get all the little settings worked out. I am
having an issue with the Wizard poping up. I am attempting to script
everything so the user will not be prompted to run the wizard. Since the
script is locking down Audio and Video some of the settings I do not need.
Please look at the script below and let me know if I am missing something, or
if there is a know sript out there that will do this.

The seond issue is that most of these settings are not being added to WIN
98SE with WMI and WSH installed.

Thanks

------------ Start of Script-----------------
Const HKEY_CURRENT_USER = &H80000001
Const HKEY_LOCAL_MACHINE = &H80000002

strComputer = "."

Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &
strComputer & "\root\default:StdRegProv")
Set objRegistry = GetObject ("winmgmts:\\" & strComputer &
"\root\default:StdRegProv")

strKeyPath0 = "Software\Policies\Microsoft\Conferencing"
strKeyPath1 = "SOFTWARE\Microsoft\User Location Service\Client"
strKeyPath2 = "Software\Microsoft\Conferencing"
strValue0 = "0"
strValue1 = "1"

'Disables the remote desktop sharing feature of NetMeeting. Users will not
be able to set it up or use it for controlling their computers remotely.
strValueName = "NoRDS"
oReg.SetStringValue HKEY_LOCAL_MACHINE,strKeyPath0,strValueName,strValue1
'Disables the directory feature of NetMeeting. Users will not logon to a
directory (ILS) server when NetMeeting starts. Users will also not be able
to view or place calls via a NetMeeting directory. This policy is for
deployers who have their own location or calling schemes such as a Web site
or an address book.
'strValueName = "NoDirectoryServices"
'oReg.SetStringValue
HKEY_CURRENT_USER,strKeyPath0,strValueName,strValuestrValue0
'Prevents users from adding directory (ILS) servers to the list of those
they can use for placing calls.
strValueName = "NoAddingDirectoryServers"
oReg.SetStringValue HKEY_CURRENT_USER,strKeyPath0,strValueName,strValue1
'Prevents users from viewing directories as Web pages in a browser.
strValueName = "NoWebDirectory"
oReg.SetStringValue HKEY_CURRENT_USER,strKeyPath0,strValueName,strValue1
'Sets the level of security for both outgoing and incoming NetMeeting calls.
strValueName = "CallSecurity"
oReg.SetStringValue HKEY_CURRENT_USER,strKeyPath0,strValueName,strValue1
'Prevents users from changing the way calls are placed, either directly or
via a gatekeeper server.
strValueName = "NoChangingCallMode"
oReg.SetStringValue HKEY_CURRENT_USER,strKeyPath0,strValueName,strValue1
'Prevents users from turning on automatic acceptance of incoming calls. This
ensures that others cannot call and connect to NetMeeting when the user is
not present. This policy is recommended when deploying NetMeeting to run
always.
strValueName = "NoAutoAcceptCallsS"
oReg.SetStringValue HKEY_CURRENT_USER,strKeyPath0,strValueName,strValue1
'Make the automatic acceptance of incoming calls persistent.
'strValueName = "PersistAutoAcceptCalls"
'oReg.SetStringValue HKEY_CURRENT_USER,strKeyPath0,strValueName,strValue0
'Prevents users from sending files to others in a conference.
strValueName = "NoSendingFiles"
oReg.SetStringValue HKEY_CURRENT_USER,strKeyPath0,strValueName,strValue1
'Prevents users from receiving files from others in a conference.
strValueName = "NoReceivingFiles"
oReg.SetStringValue HKEY_CURRENT_USER,strKeyPath0,strValueName,strValue1
'Limits the size of files users can send to others in a conference.
strValueName = "MaxFileSendSize"
oReg.SetStringValue HKEY_CURRENT_USER,strKeyPath0,strValueName,strValue1
'Disables the Chat feature of NetMeeting.
strValueName = "NoChat"
oReg.SetStringValue HKEY_CURRENT_USER,strKeyPath0,strValueName,strValue1
'Disables the 2.x whiteboard feature of NetMeeting. The 2.x whiteboard is
available for compatibility with older versions of NetMeeting only.
Deployers who do not need it can save bandwidth by disabling it.
'strValueName = "NoOldWhiteBoard"
'oReg.SetStringValue
HKEY_CURRENT_USER,strKeyPath0,NoOldWhiteBoard,strValue0
'Disables the T.126 whiteboard feature of NetMeeting.
'strValueName = "NoNewWhiteBoard"
'oReg.SetStringValue HKEY_CURRENT_USER,strKeyPath0,strValueName,strValue0
'Disables the application sharing feature of NetMeeting completely. Users
will not be able to host or view shared applications.
'strValueName = "NoAppSharing"
'oReg.SetStringValue HKEY_CURRENT_USER,strKeyPath0,strValueName,strValue0
'Prevents users from sharing anything themselves. They will still be able to
view shared applications/desktops from others.
'strValueName = "NoSharing"
'oReg.SetStringValue HKEY_CURRENT_USER,strKeyPath0,strValueName,strValue0
'Prevents users from sharing the whole desktop. They will still be able to
share individual applications.
strValueName = "NoSharingDesktop"
oReg.SetStringValue HKEY_CURRENT_USER,strKeyPath0,strValueName,strValue1
'Prevents users from sharing command prompts. This prevents users from
inadvertently sharing out applications, since command prompts can be used to
launch other applications.
strValueName = "NoSharingDosWindows"
oReg.SetStringValue HKEY_CURRENT_USER,strKeyPath0,strValueName,strValue0
'Prevents users from sharing Explorer windows. This prevents users from
inadvertently sharing out applications, since Explorer windows can be used to
launch other applications.
strValueName = "NoSharingExplorer"
oReg.SetStringValue HKEY_CURRENT_USER,strKeyPath0,strValueName,strValue0
'Prevents users from allowing others in a conference to control what they
have shared. This enforces a read-only mode; the other participants cannot
change the data in the shared application.
'strValueName = "NoAllowControl"
'oReg.SetStringValue HKEY_CURRENT_USER,strKeyPath0,strValueName,strValue0
'Prevents users from sharing applications in true color. True color sharing
uses more bandwidth in a conference.
'strValueName = "NoTrueColorSharing"
'oReg.SetStringValue HKEY_CURRENT_USER,strKeyPath0,strValueName,strValue0
'Limits the bandwidth audio and video will consume when in a conference.
This setting will guide NetMeeting to choose the right formats and send rate
so that the bandwidth is limited.
strValueName = "MaximumBandwidth"
oReg.SetStringValue HKEY_CURRENT_USER,strKeyPath0,strValueName,strValue1
'Disables the audio feature of NetMeeting. Users will not be able to send
or receive audio.
strValueName = "NoAudio"
oReg.SetStringValue HKEY_CURRENT_USER,strKeyPath0,strValueName,strValue1
'Disables full duplex mode audio. Users will not be able to listen to
incoming audio while speaking into the microphone. Older audio hardware does
not perform well when in full duplex mode.
strValueName = "NoFullDuplex"
oReg.SetStringValue HKEY_CURRENT_USER,strKeyPath0,strValueName,strValue1
'Prevents user from changing the DirectSound audio setting. DirectSound
provides much better audio quality, but older audio hardware may not support
it.
strValueName = "NoChangeDirectSound"
oReg.SetStringValue HKEY_CURRENT_USER,strKeyPath0,strValueName,strValue1
'Prevents users from sending video if they have the hardware. Users will
still be able to receive video from others.
strValueName = "NoSendingVideo"
oReg.SetStringValue HKEY_CURRENT_USER,strKeyPath0,strValueName,strValue1
'Prevents users from receiving video. Users will still be able to send
video provided they have the hardware.
strValueName = "NoReceivingVideo"
oReg.SetStringValue HKEY_CURRENT_USER,strKeyPath0,strValueName,strValue1
'Hides the General page of the Tools Options dialog. Users will not then be
able to change personal identification and bandwidth settings.
strValueName = "NoGeneralPage"
oReg.SetStringValue HKEY_CURRENT_USER,strKeyPath0,strValueName,strValue1
'Disables the Advanced Calling button on the General Options page. Users
will not then be able to change the call placement method and the servers
used.
strValueName = "NoAdvancedCalling"
oReg.SetStringValue HKEY_CURRENT_USER,strKeyPath0,strValueName,strValue1
'Hides the Security page of the Tools Options dialog. Users will not then
be able to change call security and authentication settings.
strValueName = "NoSecurityPage"
oReg.SetStringValue HKEY_CURRENT_USER,strKeyPath0,strValueName,strValue1
'Hides the Audio page of the Tools Options dialog. Users will not then be
able to change audio settings.
strValueName = "NoAudioPage"
oReg.SetStringValue HKEY_CURRENT_USER,strKeyPath0,strValueName,strValue1
'Hides the Video page of the Tools Options dialog. Users will not then be
able to change video settings.
strValueName = "NoVideoPage"
oReg.SetStringValue HKEY_CURRENT_USER,strKeyPath0,strValueName,strValue1
'Require Secure Connections
strValueName = "SecureAuthentication"
oReg.SetStringValue HKEY_CURRENT_USER,strKeyPath0,strValueName,strValue1
'Sets the URL NetMeeting will display when the user chooses the Help Online
Support command.
strValueName = "IntranetSupportURL"
strValue = "HTTP://innerweb"
oReg.SetStringValue HKEY_CURRENT_USER,strKeyPath0,strValueName,strValue
'Sets the ILS directory Server
strKeyPath = "SOFTWARE\Microsoft\Conferencing\UI\Directory"
strValueName = "NAME0"
strValue = "192.168.218.46"
oReg.SetStringValue HKEY_CURRENT_USER,strKeyPath0,strValueName,strValue
'Clears Microsoft Default ILS SERVER
strValueName = "Resolve Name"
strValue = "192.168.218.46/test@test.com"
oReg.SetStringValue HKEY_CURRENT_USER,strKeyPath1,strValueName,strValue
'
strValueName = "Server Name"
strValue = "192.168.218.46"
oReg.SetStringValue HKEY_CURRENT_USER,strKeyPath1,strValueName,strValue
'Sets Client to Auto Logon to ILS Server
strValueName = "DontUseULS"
arrValues = Array(0,0,0,0)
errReturn = objRegistry.SetBinaryValue
(HKEY_CURRENT_USER,strKeyPath2,strValueName,arrValues)
'Set User Information
strValueName = "Eamil Name"
strValue = "test@test.com"
oReg.SetStringValue HKEY_CURRENT_USER,strKeyPath1,strValueName,strValue
'
strValueName = "First Name"
strValue = "John"
oReg.SetStringValue HKEY_CURRENT_USER,strKeyPath1,strValueName,strValue
'
strValueName = "Last Name"
strValue = "Doe"
oReg.SetStringValue HKEY_CURRENT_USER,strKeyPath1,strValueName,strValue
'
strValueName = "User Name"
strValue = "John Doe"
oReg.SetStringValue HKEY_CURRENT_USER,strKeyPath1,strValueName,strValue
'Sets Client to Cable / DSL Speeds. This is for audio only. If Audio is
allowed there are other CODEC settings that will need to be changed.
strValueName = "Typical Bandwidth"
arrValues = Array(3,0,0,0)
errReturn = objRegistry.SetBinaryValue
(HKEY_CURRENT_USER,strKeyPath2,strValueName,arrValues)
'Registry enrties that are changed durring the Netmeeting Wizard, but no
documentation on what they do.
strValueName = "WizardUI"
arrValues = Array(17,13,4,04)
errReturn = objRegistry.SetBinaryValue
(HKEY_CURRENT_USER,strKeyPath2,strValueName,arrValues)
'
strValueName = "Debug"
oReg.SetStringValue HKEY_LOCAL_MACHINE,strKeyPath0,strValueName,strValue1
'
strKeyPath = "Software\Microsoft\Conferencing\Log\Incoming"
strValueName = "File"
strValue = "C:\PROGRA~1\NETMEE~1\CallLog.dat"
oReg.SetStringValue HKEY_CURRENT_USER,strKeyPath0,strValueName,strValue
'
strValueName = "Client ID"
strValue = "795969"
oReg.SetStringValue HKEY_CURRENT_USER,strKeyPath1,strValueName,strValue
'
strKeyPath = "Software\Microsoft\WAB\WAB4"
strValueName = "FirstRun"
oReg.SetStringValue HKEY_CURRENT_USER,strKeyPath0,strValueName,strValue1

-------------End of Script--------------------

	DComTalk.com Forum Index -> Netmeeting	All times are GMT
Page 1 of 1