Month: November 2014

Try the following steps :

Type Services into the start menu search box.

In Services, scroll down to “Remote Procedure Call” and make sure the status says “Started”

and set to Automatic.

The second “RPC Locator” should be set to “Manual”.

Now, if that doesn’t work:

Try sfc /scannow from an admin prompt

Finally, if those two fail, try copying the files and folder from another computer:

ccmcache
ccmcache

Note, you will probably have to copy the folders using the admin share (or WinPE), such as \\Non-workingMachine\C$\Windows, from the working computer

If everything fails, perform a repair using the W7 Setup DVD

Disabling right-click on your webpage or in your HTA forms and splash screens

<SCRIPT LANGUAGE="JavaScript">  
<!-- Disable  
function disableselect(e){  
return false  
}  

function reEnable(){  
return true  
}  

//if IE4+  
document.onselectstart=new Function ("return false")  
document.oncontextmenu=new Function ("return false")  
//if NS6  
if (window.sidebar){  
document.onmousedown=disableselect  
document.onclick=reEnable  
}  
//-->  
</script>

Here is a syncing time script that syncs the computer’s clock with time.nist.gov

Add to a time.cmd file

w32tm /config /manualpeerlist:time.nist.gov
net stop w32time && net start w32time
w32tm /config /update
w32tm /resync

Deploying the Junos Pulse Client poses one major problem, if you don’t have some kind of endpoint server, there is no way to bundle configuration settings. For example, with an endpoint it works like this:

msiexec -i JunosPulse.x86.msi CONFIGFILE=”PathToConfig\myconfiguration.jnprpreconfig” ADDLOCAL=PulseSA /q

Of course, that doesn’t help us if we don’t have a centralized setup. The best I could figure out is wrapping up the 32 and 64 bit MSIs into one package, deploying them, and having the user enter the URL to the server; it’s not great…and I expect more from Juniper. See my working script at the bottom.

Things I did try (that did not work):

(1) Performing a snapshot of the install…capturing the settings.
(2) Modifying the MSI
(3) Creating a MST
(4) Creating my own config file
(5) Using MSI options

Sample Config File (the unique info is in bold)

schema version {

version: “1”
}
machine settings {
    version: “5”
    guid: “test12345678910-test1234-1234test-1234-12345678910“
    connection-source: “preconfig”
    server-id: “12345678910-1234-1234-1234f-12345678910”
    allow-save: “true”
    user-connection: “true”
    splashscreen-display: “false”
    dynamic-trust: “true”
    dynamic-connection: “true”
    wireless-suppression: “false”
}
ive “test12341324-1234-1234-1234-12345678910” {
    friendly-name: “SA auto connect”
    version: “3”
    guid: “test12345-1234-1234-1234-12345678910“
    server-id: “test12345678910-test1234-1234test-1234-12345678910”
    connection-source: “preconfig”
    uri: “vpn.ourcompany.com”
    connection-policy-override: “true”
    use-for-secure-meetings: “false”
    use-for-connect: “true”
    connection-identity: “user-at-credprov”
    connection-policy: “automatic”
    preferred-realm: “OurCompany”
    preferred-roleset: “OurCompany_Computer_Windows_autoconnect”
    sso-max-delay: “120”
    sso-user-based-virtual-lan: “false”
}

Other important information

Sample Output

When you use ADDLOCAL, you should append msiexec options /qn or /qb to the command line to suppress the installation program user interface. These examples use /qb.

To install PulseUAC with 802.1x and Enhanced Endpoint Security support on a Windows 32-bit endpoint using a configuration file, use the following command line:

msiexec -i JunosPulse.x86.msi CONFIGFILE=c:\pulse\Pulse-Connection-no.jnprpreconfig ADDLOCAL=PulseUAC,Pulse8021x,UACEndpointDefense /qb
To install PulseSA on a 32-bit Windows endpoint using a configuration file, use the following command line:

msiexec -i JunosPulse.x86.msi CONFIGFILE=c:\temp\myconfiguration.jnprpreconfig ADDLOCAL=PulseSA /qb
To install PulseSA with Enhanced Endpoint Security and Host Checker on a 64-bit Windows endpoint using a configuration file, use the following command line:

msiexec -i JunosPulse.x64.msi CONFIGFILE=c:\temp\myconfiguration.jnprpreconfig ADDLOCAL=PulseSA,SAEndpointDefense,SAHostChecker /qb
To install PulseAppAccel on a 64-bit Windows endpoint using a configuration file, use the following command line:

msiexec -i JunosPulse.x64.msi CONFIGFILE=c:\temp\myconfiguration.jnprpreconfig ADDLOCAL=PulseAppAccel /qb
To install all Pulse components on a 64-bit Windows endpoint using a configuration file, use the following command line:

msiexec -i JunosPulse.x64.msi CONFIGFILE=c:\temp\myconfiguration.jnprpreconfig /qb

Summary

Two users are trying to connect to the SA device and launch Junos Pulse. The first user’s Junos Pulse session is disconnected, when the second user connects to the same SA device (as the first user) and launches Junos Pulse.

Problem:

User A connects to the SA device via Junos Pulse.

User B connects to the same SA device via Junos Pulse and User A’s session is automatically ended.

Cause:

This issue is due to Disk Imaging-cloning.

The GUID on every client is the number that identifies the client to the server.

If the client and the connection GUIDs match, then the old session is terminated, as the server assumes that an existing client is creating a new session to a connection; to which it already has a connection.

The Client ID is the unique ID of the client and the channel ID is the unique ID of the connection.

Multiple clients can have the same connection ID; but multiple clients cannot have the same client ID.

Both the devices must have a unique GUID.

Solution:

The device must be cloned, prior to making the connection to IVE or the GUID must be deleted in the following section before cloning:

The Junos Pulse connection configuration, which is located at C:\Program Files (x86)\Common Files\Juniper Networks\ConnectionStore\connstore.dat, contains the following section:

machine
“local” {
    guid: “9e4898e81ca026623e7fb4c9f4de1f678244fa62”
    pulse-language: “en-US”
}

Remove the GUID.

Settings Location

C:\ProgramData\Pulse Secure\ConnectionStore

Older Settings Location

C:\Program Files\Common Files\Juniper Networks\connstore.dat
C:\Program Files (x86)\Common Files\Juniper Networks\connstore.dat

Uninstall and Save Settings

msiexec /x{BAFD722A-4B9A-4152-B565-5BAFDA00A6BE} SAVESETTINGS=1

My script

@Echo on

title Administrative Installation by Eddie Jackson
color 0a
set CurDir=%CD%

set UserN=DeploymentServer

EVENTCREATE /T INFORMATION /L Application /ID 777 /d “Junos Pulse Client 5.0.48695.0 installation STARTED by %UserN%”

:: 64BIT
if exist “C:\Program Files (x86)\” (
c:\windows\system32\msiexec.exe /i “%CurDir%\JunosPulse.x64.msi” /qn /norestart
EVENTCREATE /T INFORMATION /L Application /ID 777 /d “Junos Pulse Client 5.0.48695.0 64bit installation COMPLETED!”
goto :END
)

:: 32BIT
c:\windows\system32\msiexec.exe /i “%CurDir%\JunosPulse.x86.msi” /qn /norestart
EVENTCREATE /T INFORMATION /L Application /ID 777 /d “Junos Pulse Client 5.0.48695.0 32bit installation COMPLETED!”
goto :END

:END
%windir%\system32\REG.exe ADD “HKEY_LOCAL_MACHINE\SOFTWARE\DEPLOYEDSOFTWARE\Junos\Pulse\5.0.48695.0” /v InstallDate /d “%date% %time%” /t REG_SZ /f
%windir%\system32\REG.exe ADD “HKEY_LOCAL_MACHINE\SOFTWARE\DEPLOYEDSOFTWARE\Junos\Pulse\5.0.48695.0” /v InstalledBy /d “%UserN%” /t REG_SZ /f
exit /b 0

Notes

Also see: Pulse disconnecting users

Boot to WinPE disc

At the console window (the black window)
Control-C
Select [Y] to break out
copy /y d:\windows\system32\sethc.exe d:\keep.exe (where d: is the Windows partition/drive)
copy /y d:\windows\system32\cmd.exe d:\windows\system32\sethc.exe
exit (computer will restart)
 
You may need to take ownership or change file attributes using the attrib command:
d:\windows\system32\attrib.exe d:\windows\system32\sethc.exe -r -h
 

Boot into Windows normally

After you see the logon screen, press the SHIFT key five times (a black window should appear)
type: net user USERNAME PW (the account name and password to reset)

copy /y c:\keep.exe c:\windows\system32\sethc.exe
exit

log in normally with new password

Set dateTime = CreateObject(“WbemScripting.SWbemDateTime”)
dateTime.SetVarDate (now())
UniversalDate = dateTime.GetVarDate (false)
a=Split(UniversalDate,” “,2)
for each myDate in a
exit for
next

msgbox “My Date: ” & (UniversalDate)

‘returns hour
strHour = DatePart(“h”, UniversalDate)

‘returns day in year
strDayInYear = DatePart(“y”, UniversalDate)

‘returns day in month 1-31
strDayInMonth = day(UniversalDate)

‘returns day in week 1-7
strWeekDay = Weekday(UniversalDate)
msgbox strHour
msgbox strDayInYear
msgbox strDayInMonth
msgbox strWeekDay

I created a script that will convert office file formats from older to newer formats.

Script

‘SET PATH LOCATION
””””””””””””””””””””””””””””””””””””””””””
thePATH=”C:\myFilesPath”
””””””””””””””””””””””””””””””””””””””””””
””””””””””””””””””””””””””””””””””””””””””
‘Created by Eddie Jackson
‘Date: 11/3/2014
‘Used to convert office file formats
‘from older to newer formats in the
‘same folder
‘Usage: update files path above
‘run _RUNME.vbs
””””””””””””””””””””””””””””””””””””””””””

on error resume next
SET objShell = CreateObject(“WScript.Shell”)
SET FSO = CreateObject(“Scripting.FileSystemObject”)

CONST ForReading = 1
CONST ForWriting = 2

IF NOT (fso.FileExists(“C:\scripts\Office_Converter\FileFormatConverters.exe”)) THEN
Msgbox “Missing Files!”
Wscript.Quit(0)
END IF

IF NOT (fso.FileExists(“C:\scripts\Office_Converter\ofc.exe”)) THEN
Msgbox “Missing Files!”
Wscript.Quit(0)
END IF

IF NOT (fso.FileExists(“C:\scripts\Office_Converter\comptool.dll”)) THEN
Msgbox “Missing Files!”
Wscript.Quit(0)
END IF

IF NOT (fso.FileExists(“C:\scripts\Office_Converter\vet.exe”)) THEN
Msgbox “Missing Files!”
Wscript.Quit(0)
END IF

IF NOT (fso.FileExists(“C:\scripts\Office_Converter\template.ini”)) THEN
Msgbox “Missing Files!”
Wscript.Quit(0)
END IF

‘INSTALLS FILE CONVERTERS IF NEEDED
IF NOT (fso.FileExists(“C:\Program Files (x86)\Microsoft Office\Office12\excelcnv.exe”)) THEN
objShell.Run “C:\scripts\Office_Converter\FileFormatConverters.exe /quiet /norestart”,0,true
END IF

‘COPIES TEMPLATE INI FILE
objShell.Run “%comspec% /c copy /y C:\scripts\Office_Converter\template.ini C:\scripts\Office_Converter\ofc.ini”,0,true
SET objFile = FSO.OpenTextFile(“C:\scripts\Office_Converter\ofc.ini”, ForReading)

strText = objFile.ReadAll
objFile.Close
strNewText = Replace(strText, “zzzzz“, thePATH)

‘UPDATES OFC.INI WITH FILES NAME
SET objFile = FSO.OpenTextFile(“C:\scripts\Office_Converter\ofc.ini”, ForWriting)
objFile.WriteLine strNewText
objFile.Close

‘RUNS CONVERTER – GENERATES XLSX FILES
objShell.Run “C:\scripts\Office_Converter\ofc.exe”,0,TRUE

‘REMOVES OLD XLS FILES

strExtensionsToDelete = “xls”
‘strExtensionsToDelete = “wav,avi,mp3″

RecursiveDeleteByExtension thePATH,strExtensionsToDelete

SUB RecursiveDeleteByExtension(byval strDirectory,strExtensionsToDelete)
DIM objFolder, objSubFolder, objFile
DIM strExt

SET objFolder = FSO.GetFolder(strDirectory)
FOR EACH objFile IN objFolder.Files
FOR EACH strExt IN SPLIT(UCASE(strExtensionsToDelete),”,”)
IF RIGHT(UCASE(objFile.Path),LEN(strExt)+1) = “.” & strExt THEN
‘wscript.echo “Deleting:” & objFile.Path
objFile.Delete
EXIT FOR
END IF
NEXT
NEXT
FOR EACH objSubFolder IN objFolder.SubFolders
RecursiveDeleteByExtension objSubFolder.Path,strExtensionsToDelete
NEXT
END SUB

The template.ini

;Please refer to the online documentation for more information.

[Run]
; LogDestinationPath: the path where the log files will be written to
LogDestinationPath=C:\scripts\Office_Converter\logs

; Description: this can be any text to describe extra information about the run
;Description= “Test run of the Office File Converter”

; FileListFolder: the folder containing the File List exported from the OMPM Reporting Tool
; (do not include if specifying FoldersToConvert)
;FileListFolder=dataexport\list1\

; TimeOut: a limit in seconds for the conversion of a single file. (default 300 seconds)
; If expired, the Office File Converter will cancel the conversion of the current file and move on to the next file.
; Conversion will never timeout if this value is set to 0.
; Set to a higher value if experiencing difficulties with larger files.
TimeOut = 300

[ConversionOptions]
; FullUpgradeOnOpen: if set to 1, Word documents will be fully converted to the OpenXML format
; if set to 0 (default), Word documents will be saved in the OpenXML format in compatibility mode
; Not applicable to Excel or PowerPoint files.
FullUpgradeOnOpen=1

; CABLogs: if set to 1 (default), XML log files will be compressed into CAB files
; if set to 0, XML log files will be written separately
CABLogs=1

; MacroControl: if set to 1, VBA projects will not be included in converted files
; if set to 0 (default), VBA projects will be maintained in the converted files
MacroControl=0

[FoldersToConvert]
; The Converter will attempt to convert all supported files in the specified folders
; (do not include if specifying FileListFolder)
;fldr=C:\Documents and Settings\Administrator\My Documents
fldr=zzzzz

[ConversionInfo]
; Use SourcePathTemplate and DestinationPathTemplate to specify the destination folder structure.

; SourcePathTemplate: a sequence of ‘*\’ that determines how many directories from the source path will be captured.
; DestinationPathTemplate: path where converted files will be saved, possibly including captured folder names from the SourcePathTemplate
; The converted file will be saved at: DestinationPathTemplate + Remaining uncaptured source path
;
; For example:
; Source files are contained in \\userfiles\[user name]\docs\
; Desired output is to \\newserver\docs\[user name]\
;
; The following settings would enable this example scenario:
; SourcePathTemplate = *\*\*\
; DestinationPathTemplate = \\newserver\*3\*2
; Explanation: The first three folder names are captured in order (“*X” designates which captured folder name to use):
; *1 = userfiles
; *2 = [user name]
; *3 = docs
; Here are some sample file source files and converted files for this example:
; \\userfiles\Bob\docs\Personal\Rept1.doc => \\newserver\docs\Bob\Personal\Rept1.docx
; \\userfiles\James\docs\New Folder\Schedule.doc => \\newserver\docs\James\New Folder\Schedule.docx
; \\userfiles\Cliff\docs\notes.doc => \\newserver\docs\Cliff\notes.docx
;
; Please refer to the online documentation for more information and examples.

SourcePathTemplate=*\*\*\*\*\
DestinationPathTemplate=*1\*2\*3\*4\*5

strComputer = “.”

Set objWMIService = GetObject(“winmgmts:\\” & strComputer & “\root\cimv2”)
Set colItems = objWMIService.ExecQuery(“Select * From Win32_TimeZone”)

For Each objItem in colItems
Set colItems2 = objWMIService.ExecQuery(“Select * From Win32_ComputerSystem”)

For Each objItem2 in colItems2
blnDaylightInEffect = objItem2.DaylightInEffect
Next

If blnDaylightInEffect Then
Wscript.Echo objItem.DaylightName
Else
Wscript.Echo objItem.StandardName
End If
Next