dim WSHShell
dim RegKey
dim ServerName
on error resume next
Set WSHShell = CreateObject("WScript.Shell")
WScript.Sleep 5000
ServerName=WSHShell.RegRead("HKEY_CURRENT_USER\Software\cardisoft\cssystem\cssclientco\ServerName")
WSHShell.Run "\\" & ServerName & "\csupdate\grweb\uclient4setup.exe",1 ,false
set WSHShell=nothing
