This is just my contribution I hope it helps someone works with 95, 98, Me,
2000, XP
Here is a VBScript I wrote for pushing vnc out to clients.
All you need to do is
1) save the body of the message to a .vbs file.
2) Create an iss file with /SAVEINF
3) Create a .reg file with your default password
4) Put the .reg, .iss, .vbs, 3.3.4.exe file in a network share
5) Call it from login script ie. "cscript file.vbs"
------ Start Script -----------
' VBScript source code
'Change the line below as editions change
strDistrib = "vnc-3.3.4-x86_win32.exe"
'Probably don't need to change much below unless you want to
dim oShell, oShellVar, oFso
set oShell = CreateObject("Wscript.Shell")
Set oShellVar = oShell.Environment("PROCESS")
oShellVar.item("PATH") = oShell.ExpandEnvironmentStrings("%PATH%") &
";C:\Program Files\Realvnc\Winvnc"
set oFso = CreateObject("Scripting.FileSystemObject")
strScript = Wscript.ScriptFullName
strBaseName = oFso.GetBaseName(strScript)
strBase = Left(strScript, (len(strScript)) - ((len(strBaseName)) + 4) )
'=========================================================================
' Body of App
'=========================================================================
On Error Resume Next
installKey = "HKLM\Software\Managed-Apps\VNC"
checkKey = oShell.RegRead(installKey)
If Err.number <> 0 Then
On Error Goto 0
Main()
Else
On Error Goto 0
Set oFso = Nothing
Set oShell = Nothing
MsgBox "ByPassed All that stuff!"
Wscript.Quit
End If
'===========================================================================
' Just Subs Below
'===========================================================================
Sub Main()
On Error Resume Next
WinVerPath = "HKLM\Software\Microsoft\Windows
NT\CurrentVersion\CurrentVersion"
WinVer = oShell.RegRead(WinVerPath)
If Err.number <> 0 Then
WinVer = 4
On Error Goto 0
InstallWin9x()
Wscript.Quit
End If
If WinVer >= 5 Then
On Error Goto 0
InstallWinNT()
Wscript.Quit
Else
Wscript.Quit 'Probably Windows NT Don't install
End If
End Sub
Sub InstallWin9x()
If oFso.FolderExists("C:\Program Files\ORL\VNC\") Then
regKey =
"HKLM\Software\Microsoft\Windows\CurrentVersion\RunServices\WinVNC"
On Error Resume Next
checkKey = oShell.RegRead(regKey)
If Err.number <> 0 Then
On Error Goto 0
InstallVNC()
Else
InstallNewVNC()
End If
Else
InstallVNC()
End If
End Sub
Sub InstallWinNT()
If oFso.FolderExists("C:\Program Files\ORL\VNC\") Then
regKey =
"HKLM\System\CurrentControlSet\Services\winvnc\Start"
On Error Resume Next
checkKey = oShell.RegRead(regKey)
If Err.number <> 0 Then
On Error Goto 0
InstallVNC()
Else
InstallNewVNC()
End If
Else
InstallVNC()
End If
End Sub
Sub InstallVNC()
On Error Goto 0
dim oShell
Set oShell = CreateObject("Wscript.Shell")
With oShell
.Run strBase & strDistrib & " /LOADINF=" &
strBase & "setup.iss" & " /VERYSILENT /SP-", 8, true
.Run "regedit /s " & strBase &
"vncpassword.reg"
.Run "winvnc.exe" & " -kill -install", 8,
true
If WinVer >= 5 Then
.Run "net start winvnc"
.Run "winvnc.exe
-servicehelper",, true
Else
Wscript.Quit
End If
'MsgBox "Going to Run the Service" &
" ... Sleeping"
'Wscript.Sleep(5000)
.RegWrite "HKLM\Software\Managed-Apps\VNC",
"3.3.4", "REG_SZ"
End With
set oShell = Nothing
set oFso = Nothing
End Sub
Sub InstallNewVNC()
On Error Goto 0
dim oShell
Set oShell = CreateObject("Wscript.Shell")
With oShell
'.Run "net stop winvnc"
.Run strBase & strDistrib & " /LOADINF=" &
strBase & "setup.iss" & " /VERYSILENT /SP-", 8, true
.Run "regedit /s " & strBase &
"vncpassword.reg"
.Run "winvnc.exe" & " -kill -remove
-install", 8, true
If WinVer >= 5 Then
.Run "net start winvnc",,
true
.Run "winvnc.exe
-servicehelper",, true
Else
Wscript.Quit
End If
'.Run "winvnc.exe -service",, true
.RegWrite "HKLM\Software\Managed-Apps\VNC",
"3.3.4", "REG_SZ"
End With
set oShell = Nothing
set oFso = Nothing
End Sub
-------------------End
Script-------------------------------------------------------
_______________________________________________
VNC-List mailing list
[EMAIL PROTECTED]
http://www.realvnc.com/mailman/listinfo/vnc-list
