Script working on WinXP 32 bit but not working on Win 7 64bit - Printable Version
-Shoutbox (https://shoutbox.menthix.net)
+-- Forum: MsgHelp Archive (/forumdisplay.php?fid=58)
+--- Forum: Skype & Technology (/forumdisplay.php?fid=9)
+---- Forum: Tech Talk (/forumdisplay.php?fid=17)
+----- Thread: Script working on WinXP 32 bit but not working on Win 7 64bit (/showthread.php?tid=99960)
Script working on WinXP 32 bit but not working on Win 7 64bit by debdeep on 01-18-2013 at 09:22 PM
Hello,
The script below works fine on Windows XP 32 bit, but does not do anything after executing the FTP in windows 7 64 Bit. I am newbie to Vbscripting and HTA. Please help
<html>
<head>
<title>FTP NAP zip</title>
<HTA:APPLICATION
APPLICATIONNAME="FTP NAP zip"
ID="FTPNAPzip"
SINGLEINSTANCE="yes"/>
</head>
<script language="VBScript">
Const strLocalFolder = "C:\Temp"
Dim NAPPrefix
Dim FolderName
Dim NAPSystem
Dim NAPNetwork
Dim NAPUtility
Dim strTarget
Dim strSource
Dim dtmStartTime
Dim WZPasswd
Dim NAPSoftware
Sub ClearTimer ()
window.clearTimeout(idTimer)
End Sub
Sub WaitTimer ()
dtmStartTime = Now
idTimer = window.setTimeout("ClearTimer", 3000, "VBScript")
End Sub
Sub GeneratePassword()
Randomize
Const PassLen = 8
Const sChar = "abcdefghijklmnopqrstuvwxyz"
Dim strS
For intI = 1 To PassLen
strS = strS + Mid(sChar, Int(Rnd() * Len(sChar))+1, 1)
Next
WZPasswd=strS
End Sub
Sub WinZipSub()
Const ZIP_EXE = "WZZIP.EXE"
Dim objWZShell
Set objWZShell = CreateObject("WScript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")
strWinzipScriptFileName = "c:\Temp\Winzipscr.cmd"
Set objZipFile = objFSO.CreateTextFile(strWinzipScriptFileName, True)
objZipFile.WriteLine ("cd\ " )
objZipFile.WriteLine ("cd C:\Program " & "Files\Winzip\")
GeneratePassword()
strSysSource = strLocalFolder & "\" & NAPLevel.Value & "\" & NAPSystem
strSysTarget = strSysSource &".zip"
zipSyscommand = ZIP_EXE & " -s" & WZPasswd & " " & strSysTarget & " " & strSysSource
objZipFile.WriteLine (zipSyscommand)
GeneratePassword()
strNetSource = strLocalFolder & "\" & NAPLevel.Value & "\" & NAPNetwork
strNetTarget = strNetSource &".zip"
zipNetcommand = ZIP_EXE & " -s" & WZPasswd & " " & strNetTarget & " " & strNetSource
objZipFile.WriteLine (zipNetcommand)
GeneratePassword()
strUtilSource = strLocalFolder & "\" & NAPLevel.Value & "\" & NAPUtility
strUtilTarget = strUtilSource &".zip"
zipUtilcommand = ZIP_EXE & " -s" & WZPasswd & " " & strUtilTarget & " " & strUtilSource
objZipFile.WriteLine (zipUtilcommand)
objZipFile.Close
objWZShell.Run strWinzipScriptFileName,10,true
End Sub
Sub FTPFromTRPROGD
Const strHostname = "TRPROGD"
Const strPort = 21
Const strUsername = "SYSGENNAP"
Dim strPasswd
Dim oExec
strPasswd = Password.Value
strFTPScriptFileName = strLocalFolder & "\FTPConnectionInfo.txt"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objMyFile = objFSO.CreateTextFile(strFTPScriptFileName, True)
objMyFile.WriteLine ("open " & strHostname)
objMyFile.WriteLine (strUsername)
objMyFile.WriteLine (strPasswd)
objMyFile.WriteLine ("bin")
objMyFile.WriteLine ("lcd " & strLocalFolder & "\" & NAPLevel.Value)
objMyFile.WriteLine ("get " & NAPSystem)
ObjMyFile.WriteLine ("get " & NAPNetwork)
ObjMyFile.WriteLine ("get " & NAPUtility)
objMyFile.WriteLine ("bye")
objMyFile.Close
'The following code executes the FTP script. It creates a Shell
'object and runs FTP program on top of it.
Dim objShell
Set objShell = CreateObject("WScript.Shell")
Set oExec = objShell.Exec ("ftp -s:" & strFTPScriptFileName & " >>" & strLocalFolder & "\" & NAPLevel.Value &"\FTPLog.txt")
Do While oExec.Status = 0
WaitTimer
Loop
MsgBox "Download complete"
WinZipSub ()
End Sub
Sub CreateLocalDir ()
Dim oFSO
FolderName = "C:\\Temp\\" & NAPLevel.Value
Set oFSO = CreateObject("Scripting.FileSystemObject")
If oFSO.FolderExists(FolderName) Then
MsgBox " Folder Not created. Already exists."
Else
oFSO.CreateFolder(FolderName)
End If
FTPFromTRPROGD()
End Sub
Sub BuildNAPFiles()
NAPSystem = NAPPrefix & "NAPSYSTM"
NAPNetwork = NAPPrefix & "NAPNETWK"
NAPUtility = NAPPrefix & "NAPUTIL"
CreateLocalDir()
End Sub
Sub OnClickButtondisplay()
For i=0 to myradio.length-1
If myradio
.Checked Then
NAPPrefix = myradio.Value
BuildNAPFiles()
Exit For
End If
Next
End Sub
</script>
<body STYLE="font:14 pt arial; color:white;
filter
rogid
XImageTransform.Microsoft.Gradient
(GradientType=1, StartColorStr='#AAAAAA', EndColorStr='#737373')">
<!--Add your controls here-->
<input type="radio" name="myradio" CHECKED value="221">NAP221<BR>
<input type="radio" name="myradio" value="231">NAP231<BR>
<input type="radio" name="myradio" value="241">NAP241<BR>
Enter the Nap Release ID without the decimal (.).
e.g. For 24.113 enter 24113
<input type="text" name="NAPLevel" maxlength = "5" size = "10" id="NAPLevel"><BR>
<BR><BR>
Hostname : TRPROGD <BR>
Password (Case Sensitive):
<input type="password" name="Password" id="Password"><BR><BR>
<input type="button" name="Start" id="Start" value="Start " onclick="OnClickButtondisplay">
<BR><BR><BR><BR>
**************************************************************HELP********************************* <BR>
The program connects to TRPROGD using SYSGENNAP usercode and download <BR>
the NAPSystem, NAPNetwork and NAPUtil files under C:\Temp\"Release ID" folder. <BR><BR><BR><BR>
1. Select the level of NAP that you want to download. <BR>
2. Enter the Nap Release ID without the decimal (.). <BR>
e.g. For 24.113 enter 24113 <BR>
3. Enter the password of SYSGENNAP usercode <BR>
<BR>
***********************************************************<BR>
<!--{{InsertControlsHere}}-Do not remove this line-->
</body>
</html>
RE: Script working on WinXP 32 bit but not working on Win 7 64bit by debdeep on 01-18-2013 at 09:23 PM
The script I posted has too many smileys. I am sending it again
<html>
<head>
<title>FTP NAP zip</title>
<HTA:APPLICATION
APPLICATIONNAME="FTP NAP zip"
ID="FTPNAPzip"
SINGLEINSTANCE="yes"/>
</head>
<script language="VBScript">
Const strLocalFolder = "C:\Temp"
Dim NAPPrefix
Dim FolderName
Dim NAPSystem
Dim NAPNetwork
Dim NAPUtility
Dim strTarget
Dim strSource
Dim dtmStartTime
Dim WZPasswd
Dim NAPSoftware
Sub ClearTimer ()
window.clearTimeout(idTimer)
End Sub
Sub WaitTimer ()
dtmStartTime = Now
idTimer = window.setTimeout("ClearTimer", 3000, "VBScript")
End Sub
Sub GeneratePassword()
Randomize
Const PassLen = 8
Const sChar = "abcdefghijklmnopqrstuvwxyz"
Dim strS
For intI = 1 To PassLen
strS = strS + Mid(sChar, Int(Rnd() * Len(sChar))+1, 1)
Next
WZPasswd=strS
End Sub
Sub WinZipSub()
Const ZIP_EXE = "WZZIP.EXE"
Dim objWZShell
Set objWZShell = CreateObject("WScript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")
strWinzipScriptFileName = "c:\Temp\Winzipscr.cmd"
Set objZipFile = objFSO.CreateTextFile(strWinzipScriptFileName, True)
objZipFile.WriteLine ("cd\ " )
objZipFile.WriteLine ("cd C:\Program " & "Files\Winzip\")
GeneratePassword()
strSysSource = strLocalFolder & "\" & NAPLevel.Value & "\" & NAPSystem
strSysTarget = strSysSource &".zip"
zipSyscommand = ZIP_EXE & " -s" & WZPasswd & " " & strSysTarget & " " & strSysSource
objZipFile.WriteLine (zipSyscommand)
GeneratePassword()
strNetSource = strLocalFolder & "\" & NAPLevel.Value & "\" & NAPNetwork
strNetTarget = strNetSource &".zip"
zipNetcommand = ZIP_EXE & " -s" & WZPasswd & " " & strNetTarget & " " & strNetSource
objZipFile.WriteLine (zipNetcommand)
GeneratePassword()
strUtilSource = strLocalFolder & "\" & NAPLevel.Value & "\" & NAPUtility
strUtilTarget = strUtilSource &".zip"
zipUtilcommand = ZIP_EXE & " -s" & WZPasswd & " " & strUtilTarget & " " & strUtilSource
objZipFile.WriteLine (zipUtilcommand)
objZipFile.Close
objWZShell.Run strWinzipScriptFileName,10,true
End Sub
Sub FTPFromTRPROGD
Const strHostname = "TRPROGD"
Const strPort = 21
Const strUsername = "SYSGENNAP"
Dim strPasswd
Dim oExec
strPasswd = Password.Value
strFTPScriptFileName = strLocalFolder & "\FTPConnectionInfo.txt"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objMyFile = objFSO.CreateTextFile(strFTPScriptFileName, True)
objMyFile.WriteLine ("open " & strHostname)
objMyFile.WriteLine (strUsername)
objMyFile.WriteLine (strPasswd)
objMyFile.WriteLine ("bin")
objMyFile.WriteLine ("lcd " & strLocalFolder & "\" & NAPLevel.Value)
objMyFile.WriteLine ("get " & NAPSystem)
ObjMyFile.WriteLine ("get " & NAPNetwork)
ObjMyFile.WriteLine ("get " & NAPUtility)
objMyFile.WriteLine ("bye")
objMyFile.Close
'The following code executes the FTP script. It creates a Shell
'object and runs FTP program on top of it.
Dim objShell
Set objShell = CreateObject("WScript.Shell")
Set oExec = objShell.Exec ("ftp -s:" & strFTPScriptFileName & " >>" & strLocalFolder & "\" & NAPLevel.Value &"\FTPLog.txt")
Do While oExec.Status = 0
WaitTimer
Loop
MsgBox "Download complete"
WinZipSub ()
End Sub
Sub CreateLocalDir ()
Dim oFSO
FolderName = "C:\\Temp\\" & NAPLevel.Value
Set oFSO = CreateObject("Scripting.FileSystemObject")
If oFSO.FolderExists(FolderName) Then
MsgBox " Folder Not created. Already exists."
Else
oFSO.CreateFolder(FolderName)
End If
FTPFromTRPROGD()
End Sub
Sub BuildNAPFiles()
NAPSystem = NAPPrefix & "NAPSYSTM"
NAPNetwork = NAPPrefix & "NAPNETWK"
NAPUtility = NAPPrefix & "NAPUTIL"
CreateLocalDir()
End Sub
Sub OnClickButtondisplay()
For i=0 to myradio.length-1
If myradio.Checked Then
NAPPrefix = myradio.Value
BuildNAPFiles()
Exit For
End If
Next
End Sub
</script>
<body STYLE="font:14 pt arial; color:white;
filterrogidXImageTransform.Microsoft.Gradient
(GradientType=1, StartColorStr='#AAAAAA', EndColorStr='#737373')">
<!--Add your controls here-->
<input type="radio" name="myradio" CHECKED value="221">NAP221<BR>
<input type="radio" name="myradio" value="231">NAP231<BR>
<input type="radio" name="myradio" value="241">NAP241<BR>
Enter the Nap Release ID without the decimal (.).
e.g. For 24.113 enter 24113
<input type="text" name="NAPLevel" maxlength = "5" size = "10" id="NAPLevel"><BR>
<BR><BR>
Hostname : TRPROGD <BR>
Password (Case Sensitive):
<input type="password" name="Password" id="Password"><BR><BR>
<input type="button" name="Start" id="Start" value="Start " onclick="OnClickButtondisplay">
<BR><BR><BR><BR>
**************************************************************HELP********************************* <BR>
The program connects to TRPROGD using SYSGENNAP usercode and download <BR>
the NAPSystem, NAPNetwork and NAPUtil files under C:\Temp\"Release ID" folder. <BR><BR><BR><BR>
1. Select the level of NAP that you want to download. <BR>
2. Enter the Nap Release ID without the decimal (.). <BR>
e.g. For 24.113 enter 24113 <BR>
3. Enter the password of SYSGENNAP usercode <BR>
<BR>
***********************************************************<BR>
<!--{{InsertControlsHere}}-Do not remove this line-->
</body>
</html>