Arkiv

sComputer = «.» Set oRegistry=GetObject(«winmgmts:\\» & sComputer & «\root\default:StdRegProv») sKeyPath = «Software\Microsoft\Office\11.0\Outlook\Setup» oRegistry.CreateKey HKEY_CURRENT_USER, sKeyPath sValue = «\\domain.no\PRF\Outlook2003.prf» sValueName = «ImportPRF» oRegistry.SetStringValue HKEY_CURRENT_USER, sKeyPath, sValueName, sValue

‘ Created 20080929 – Inge Brattaas (inge@Netpower.no) ‘Option Explicit ‘On Error Resume Next ‘ init Dim ShowErrors, QuoteChr ShowErrors = CBool(True) ‘ Show messages if errors occur? QuoteChr = Chr(34) Dim FileSysObj, WshShell, AdSysInfo, UserObj, sTHaddress, sTOaddress, sTOTaddress, sTVaddress, sTMNaddress,…

‘Option Explicit On Error Resume Next ‘ init Dim ShowErrors, QuoteChr ShowErrors = CBool(True) ‘ Show messages if errors occur? QuoteChr = Chr(34) Dim FileSysObj, WshShell, AdSysInfo, UserObj, sTHaddress, sTOaddress, sTOTaddress, sTVaddress, sTMNaddress, strUserName, strUserDomain, objGroupDict, objNetwork Set FileSysObj =…

This site is protected by WP-CopyRightPro