simons2009

Thank You mac_shinobi You where 100% correct Windows 7 has stricter permissions on the system root / windows directory and program files directory now. I found if i create a batch file and run it as admin it will allow copy the files into the folder. Also thanks you for showing me to declare it before i create the Dim. Again thanks again for your help. Thanks, Simon

Any ideas why i cant get it to working in Windows 7?

No Change i get no error it does not copy back to C:\Program Files\wIntegrate\Session but it still deletes the folder in the temp area like i want it to.

Here is my script that works on Windows XP etc but on windows 7 it does not copy the files only deletes the folder in the temp area. SessionBackup.vbs - Working VSB 1 is the backup and works on Windows7 saves to the following path: C:\Users\Simon\AppData\Local\Temp\tempkcs set oFSO=createobject("scripting.filesystemobject") set oShell=createobject("wscript.shell") Dim objFSO, objFiles, objShell, intCount Dim strFile, strName, strLongName, strDirectory, strEnv, strExt Set objShell = CreateObject("Wscript.Shell") strEnv = objShell.ExpandEnvironmentStrings("%temp%") intcount = 0 on error resume next sFile=oShell.regread("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Fonts\IbsFont") on error goto 0 if sFile="" then else set oFile=ofso.getfile(sFile) sfolder=oFile.parentfolder & "\session" ofso.copyfolder sFolder , strEnv & "\tempkcs" , true end if Ok Script 2 - Not working on Windows 7 (only deletes the folder) set oFSO=createobject("scripting.filesystemobject") set oShell=createobject("wscript.shell") Dim objFSO, objFiles, objShell, intCount Dim strFile, strName, strLongName, strDirectory, strEnv, strExt Set objShell = CreateObject("Wscript.Shell") strEnv = objShell.ExpandEnvironmentStrings("%temp%") intcount = 0 on error resume next sFile=oShell.regread("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Fonts\IbsFont") on error goto 0 if sFile="" then ' DO NOTHING else ' Copy files from source to destination set oFile=ofso.getfile(sFile) sfolder=oFile.parentfolder ofso.copyfolder strEnv & "\tempkcs" , sFolder & "\session", true ofso.copyfolder strEnv & "\tempkcs" , sFolder & "\KCS\Session605", true oFSO.DeleteFolder strEnv & "\tempkcs", True end if Hope you can help

Your properly right, but don’t worry about it I found even the official installer from IBM did not clean this up so it doesn’t matter and as lest now the new installer I made that adds the firewall entry with Advanced Installer now removes the new entry on uninstall so lets not worry about cleaning someone’s old mess its not worth worrying about.

Yes we could find the path as i could run this script before the one below or maybe merge it together: set oFSO=createobject("scripting.filesystemobject") set oShell=createobject("wscript.shell") Dim objFSO, objFiles, objShell, intCount Dim strFile, strName, strLongName, strDirectory, strEnv, strExt Set objShell = CreateObject("Wscript.Shell") strEnv = objShell.ExpandEnvironmentStrings("%temp%") intcount = 0 on error resume next sFile=oShell.regread("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Fonts\IbsFont") on error goto 0 if sFile="" then else set oFile=ofso.getfile(sFile) sfolder=oFile.parentfolder & "\session" ofso.copyfolder sFolder , strEnv & "\tempkcs" , true end if The path is the wIntegSM.exe located in the oFile.parentfolder (e.g. C:\Program Files\wIntegrate\wIntegSM.exe)

It pops up saying Removed wIntegrate Session Manager from authorized list! then pops up saying: Line:11 Char:5 Error: Type mismatch: 'colApplications.Remove' Code: 800A000D Source: Microsoft VBScript runtime error And the wIntegrate Session Manager is still listed in the firewall Exceptions.

It keeps comming up with: Line:10 Char: 48 Error: Expected end of statement Code: 800A0401 Source: Microsoft VBScript compilation error

Thanks im having problems edditing it can get it to work sorry. All i want is it to find the Windows Firewall entry named: wIntegrate Session Manager path = never the same And I just want it to delete it I dont need to replace it. Thanks, Simon:)

Whoops the copy and paste from the VMWare machine played up Here is the restore script: set oFSO=createobject("scripting.filesystemobject") set oShell=createobject("wscript.shell") Dim objFSO, objFiles, objShell, intCount Dim strFile, strName, strLongName, strDirectory, strEnv, strExt Set objShell = CreateObject("Wscript.Shell") strEnv = objShell.ExpandEnvironmentStrings("%temp%") intcount = 0 on error resume next sFile=oShell.regread("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Fonts\IbsFont") on error goto 0 if sFile="" then ' DO NOTHING else ' Copy files from source to destination set oFile=ofso.getfile(sFile) sfolder=oFile.parentfolder ofso.copyfolder strEnv & "\tempkcs" , sFolder & "\session", true ofso.copyfolder strEnv & "\tempkcs" , sFolder & "\KCS\Session605", true oFSO.DeleteFolder strEnv & "\tempkcs", True end if

Looks like i bet you to it lol here is what im using now, thank you all so much. Backup session script set oFSO=createobject("scripting.filesystemobject") set oShell=createobject("wscript.shell") Dim objFSO, objFiles, objShell, intCount Dim strFile, strName, strLongName, strDirectory, strEnv, strExt Set objShell = CreateObject("Wscript.Shell") strEnv = objShell.ExpandEnvironmentStrings("%temp%") intcount = 0 on error resume next sFile=oShell.regread("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Fonts\IbsFont") on error goto 0 if sFile="" then else set oFile=ofso.getfile(sFile) sfolder=oFile.parentfolder & "\session" ofso.copyfolder sFolder , strEnv & "\tempkcs" , true end if

I would like to remove a exception from Windows Firewall the name of the entry is: wIntegrate Session Manager The path can be different on oher machines so we can use that in the script can someone make a script that removes the wIntegrate Session Manager? Thanks, Simon

Ill give the script you made try soon, the truth is I do not want to combine all 3, as I have the installer running in the correct order during the installation process so I am happy with them kept separate. My boss asked me another question which makes things more complicated. Can we adjust the script to look at and use the TEMP folder specified the windows environmental variables instead of specifying the folder and making it in the c:\ etc For instance my TEMP location is %SystemRoot%\TEMP Then we can make the tempkcs in that folder then delete it afterword. Thanks again, Simon :-D

Another question apart from the one in the last box is: Can i get the backup script to look for the default TEMP folder from the windows System Variable and copy the files in there under winteg e.g. so it doesnt matter which temp they use. And then i would like to copy the saved into the new c:\winteg\kcs\session605 folders: Sctipt 1 - checks for C:\temp then creates it ----------------- Option Explicit Dim objFSO, objFolder, objShell, strDirectory strDirectory = "c:\tempkcs" ' Create the File System Object Set objFSO = CreateObject("Scripting.FileSystemObject") ' Note If..Exists. Then, Else ... End If construction If objFSO.FolderExists(strDirectory) Then Set objFolder = objFSO.GetFolder(strDirectory) Else Set objFolder = objFSO.CreateFolder(strDirectory) End If If err.number = vbEmpty then Set objShell = CreateObject("WScript.Shell") Else WScript.echo "VBScript Error: " & err.number End If ----------------------- Script 2 - backup files from old Wintegrate version to c:\tempkcs\session ----------------------- set oFSO=createobject("scripting.filesystemobject") set oShell=createobject("wscript.shell") on error resume next sFile=oShell.regread("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Fonts\IbsFont") on error goto 0 if sFile="" then else set oFile=ofso.getfile(sFile) sfolder=oFile.parentfolder & "\session" ofso.copyfolder sFolder , "c:\tempkcs\winteg", true end if ------------------------ Script 3 - copys files in C:\new winteg folder\session ------------------------- set oFSO=createobject("scripting.filesystemobject") set oShell=createobject("wscript.shell") on error resume next sFile=oShell.regread("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Fonts\IbsFont") on error goto 0 if sFile="" then ' DO NOTHING else ' Copy files from source to destination set oFile=ofso.getfile(sFile) sfolder=oFile.parentfolder & "\session" ofso.copyfolder "c:\tempkcs\winteg" , sFolder, true end if ---------------------------- Ok questions How do i add to Script 3 to copy everything from c:\tempkcs\winteg to the following folders: C:\[Path from Ibs font]\Session C:\[Path from Ibs font]\KCS\Session605 Also after that is completed i want it to remove the c:\tempkcs folder from the c: so everything is nice and tidy. Thanks, Simon

:-D It works!! :-) Thanks so much for your help you guys are awesome. One last request can you alter this code for me to pop up a message saying "Session Backup Does Not Exist" and if it does to popup a box saying "Session Files Restored Successfully" ------------------------ set oFSO=createobject("scripting.filesystemobject") set oShell=createobject("wscript.shell") on error resume next sFile=oShell.regread("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Fonts\IbsFont") on error goto 0 if sFile="" then ' DO NOTHING else ' Copy files from source to destination set oFile=ofso.getfile(sFile) sfolder=oFile.parentfolder & "\session" ofso.copyfolder "c:\temp\winteg" , sFolder, true end if ------------------------