|
|
i every one.
i would like some help please..
there is a logon script that we have that installs a
certain script at logon for clients for SMS. whar we
ultimately would like to do is apply the script but also
check if a certain domain does exist.. if it does not
exist then use one that is specified.
i think this would be pretty easy for some of u guys but
i am missing something out that does not work.
Here is the script
Option Explicit
Dim objUser, objADSysInfo,test
Set objADSysInfo = CreateObject("ADSystemInfo")
Set objUser = GetObject("LDAP://" & objADSysInfo.UserName)
Dim WshShell
Set WshShell=WScript.CreateObject("WScript.Shell")
WshShell.RegWrite "HKCU\Software\Microsoft\Communicator\UserMicrosoft
RTC Instant Messaging", objUser.Mail, "REG_SZ"
WshShell.RegWrite "HKCU\Software\Microsoft\Communicator
\AutoRunWhenLogonToWindows", "1", "REG_DWORD"
WshShell.RegWrite "HKCU\Software\Microsoft\Communicator
\FirstTimeUser", "0", "REG_DWORD"
WshShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Run
\Communicator", """C:\Program Files\Microsoft Office Communicator
\Communicator.exe""", "REG_SZ"
WshShell.RegWrite "HKCU\Software\Microsoft\Communicator
\AddToFirewallExceptionList", 0, "REG_DWORD"
WshShell.RegWrite "HKCU\Software\Microsoft\Communicator\RTCState",
01000000, "REG_BINARY"
WshShell.RegWrite "HKCU\Software\Microsoft\Communicator
\ServerAddress", "Domain nameof domain", "REG_SZ"
WshShell.RegWrite "HKCU\Software\Microsoft\Communicator\ControlPhone",
"1", "REG_DWORD"
WshShell.RegWrite "HKCU\Software\Microsoft\Communicator
\DefaultCallOutDevice", "1", "REG_DWORD"
WshShell.RegWrite "HKCU\Software\Microsoft\Communicator\ExtendedView",
1, "REG_DWORD"
|
|
|