Πρώτα Βήματα - Αρχές προγραμματισμού

Απ: Τσεκάρισμα του Registry απο .bat/.wsf ??

AlKiS — Sun, 22 Jul 2012 20:30:52 GMT

Ευχαριστώ, όμως δεν ήταν ανάγκη.. έχει ήδη λυθεί το πρόβλημα και πόσταρα την λύση στο προ-προηγούμενο πόστ (http://www.dotnetzone.gr/cs/forums/permalink/70909/70854/ShowThread.aspx#70854)

Εν τω μεταξύ, μάλλον δεν εξήγησα καλά για το τι χρειαζόμουν.. Υπάρχουν 4-5 Setups/installers (.msi) με διάφορα πράγματα το καθένα μέσα. Και εγώ καλούμουν να φτιάξω μια φόρμα που θα έχει επιλογές για το ποιο ή ποια setups/installers θα φορτώνονταν..

Η φόρμα όμως είναι σε vb.net, οπότε το ΜΟΝΟ που χρειαζόταν να κάνει το VBScript είναι να βλέπει εάν υπάρχει το .Net Framework 2.0, κι αν όχι να τρέχει το setup του προτού ανοίξει την φόρμα μου που το έχει σαν prerequisite.

Δεν θα έκανε ποτέ το vbscript εγκατάσταση κάτι.. μόνο τον έλεγχο έτσι ώστε πριν ανοίξει η φόρμα με τις επιλογές του ποιά setups θα εγκατασταθούν, να σιγουρέψουμε ότι υπάρχει το .net framework ώστε να μην crushάρει.

Anyway, το πρόβλημα λύθηκε :)

Σας είμαι ευγνώμων! Σε όλους όσους με βοήθησαν.

Απ: Τσεκάρισμα του Registry απο .bat/.wsf ??

Libra Storm — Sun, 15 Jul 2012 23:49:55 GMT

Δεν ξέρω να δείχνω φόρμα από vbscript γιά να σε βοηθήσω, νομίζω ότι η λύση που σου πρότεινε ο Παναγιώτης είναι η καλύτερη και η πιό απλή σε θέμα συντήρησής της. Επίσης ότι setup φτιάχνουμε, είτε με clickonce είτε με Setup Project
δεν είναι σε .NET, οπότε δεν έχεις πρόβλημα.

Αν γιά οποιονδήποτε λόγο δεν θέλεις να φτιάξεις setup project και θέλεις να δείξεις φόρμα με κουμπιά, εγώ θα προτιμούσα ίσως μία σελίδα σε HTML. Υπάρχει βέβαια και η λύση με batch file αλλά δεν είναι καλή εικόνα κατά την γνώμη μου να βλέπει ο χρήστης dos παράθυρα το 2012 (μαρκετινγκ κόλπα) και δεν είναι πάντα εύκολο να συντηρείς batch files.

Γιά την (προ)ιστορία δες το παρακάτω batch, κάνει σε γενικές γραμμές αυτό που θέλεις, πρόσεξε το spacing και το πως είναι τοποθετημένες οι παρενθέσεις, αλλιώς μπορεί να μην παίξει. Επίσης αν κάνεις αλλαγές βεβαιώσου πρώτα ότι δεν έχεις word wrap
στο notepad.

@ECHO OFF
SETLOCAL ENABLEEXTENSIONS
TITLE My Utility.
COLOR 0A

SET "KEY=HKLM\Software\Microsoft\NET Framework Setup\NDP\v2.0.50727"
SET "NAME=Install"
SET DATA=

ECHO Searching for Key "%KEY%"
ECHO.

FOR /F "TOKENS=3" %%r IN ( 'REG.EXE QUERY "%KEY%" /v "%NAME%" 2^>NUL' ) DO ( SET DATA=%%r )

IF DEFINED DATA ( GOTO LBL_EXE ) ELSE ( GOTO LBL_INSTALL )

:LBL_EXE

IF %DATA% EQU 0x1 (
ECHO Executing FinkPOS.exe
START "" "%~DP0FinkPOS.exe"

EXIT
)

:LBL_INSTALL

ECHO Installing Framework...
"%~DP0DotNetFramework Files\dotnetfx.exe"

ECHO Installing Language Pack...
"%~DP0DotNetFramework Files\langPack.exe"

ECHO Installing Main Program...
"%~DP0FinkPOS.exe"

PAUSE
COLOR

Απ: Τσεκάρισμα του Registry απο .bat/.wsf ??

AlKiS — Sat, 14 Jul 2012 04:57:18 GMT

Αν ήταν στο χέρι μου, θα χρησιμοποιούσα installer.. αλλά ο άνθρωπος μου είπε ότι θέλει να του κάνω μια φόρμα με κουμπιά πάνω...

Απ: Τσεκάρισμα του Registry απο .bat/.wsf ??

Παναγιώτης Καναβός — Fri, 13 Jul 2012 23:57:44 GMT

Πρέπει να ξεχωρίσεις την έννοια του install από την παραμετροποίηση και το αρχικό configuration της εφαρμογής. Ο installer άνετα μπορεί να τρέξει μία φορά και να εγκαταστήσει τα binaries και στο τέλος να εκτελέσει μία μικρή εφαρμογή η οποία θα αναλάβει το configuration παραπέρα. Αν τα binaries είναι τόσο μεγάλα ώστε να μην θέλεις ο χρήστης να περιμένει μέχρι το τέλος της αντιγραφής (ουσιαστικά) των αρχείων, μπορείς να σπάσεις το setup σε δύο βήματα: Πρώτα εγκαθιστάς το .ΝΕΤ και εκτελείς το configuration και μετά τρέχεις ένα δεύτερο installer με τα στοιχεία που έχει μαζέψει ο πρώτος.

Ο,τιδήποτε άλλο θα είναι πολύ εύθραυστο για να μπορέσεις να το χρησιμοποιήσεις σε παραγωγή, πόσο μάλλον να το συντηρήσεις.

Απ: Τσεκάρισμα του Registry απο .bat/.wsf ??

AlKiS — Fri, 13 Jul 2012 21:54:43 GMT

χαχαχα τα κατάφερα χάρη στο "1." σου μάρκο! Ευχαριστώ.

Έτσι όπως τον έγραψα τον κώδικα είναι άθλιος βέβαια, αλλά κάνει τη δουλειά του..

<package>

   <job id="vbs">

      <script language="VBScript">
	  
		' Constants (taken from WinReg.h)
		'
		Const HKEY_CLASSES_ROOT   = &H80000000
		Const HKEY_CURRENT_USER   = &H80000001
		Const HKEY_LOCAL_MACHINE  = &H80000002
		Const HKEY_USERS          = &H80000003

		' Chose computer name, registry tree and key path
		'
		strComputer = "." ' Use . for current machine
		hDefKey = HKEY_LOCAL_MACHINE
		strKeyPath = "SOFTWARE\Microsoft\NET Framework Setup\NDP\v2.0.50727"

		' Connect to registry provider on target machine with current user
		'
		Set oReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")

		' Try to enum the subkeys of the key path we've chosen. We can't if the key doesn't exist
		'
		If oReg.EnumKey(hDefKey, strKeyPath, arrSubKeys) = 0 Then
			strValueName = "Install"
			
			If oReg.GetDWORDValue(hDefKey, strKeyPath, strValueName, uValue) = 0 Then
					If uValue = 1 Then
						Set objShell = WScript.CreateObject("WScript.Shell")

						strPath = Wscript.ScriptFullName
						Set objFSO = CreateObject("Scripting.FileSystemObject")
						Set objFile = objFSO.GetFile(strPath)
						strFolder = objFSO.GetParentFolderName(objFile) 
		
						strInstaller = """" & strFolder & "\FINK-POS\Fink Installation.exe"""
						objShell.Run(strInstaller)
					
					Else
						Set objShell = WScript.CreateObject("WScript.Shell")

						strPath = Wscript.ScriptFullName
						Set objFSO = CreateObject("Scripting.FileSystemObject")
						Set objFile = objFSO.GetFile(strPath)
						strFolder = objFSO.GetParentFolderName(objFile) 
		
		
						strdotnetfx = """" & strFolder & "\FINK-POS\Extras\DotNetFramework\dotnetfx.exe"""
						strLangPack = """" & strFolder & "\FINK-POS\Extras\DotNetFramework\langpack.exe"""
						strInstaller = """" & strFolder & "\FINK-POS\Fink Installation.exe"""

						'wscript.echo strdotnetfx 
		
						Return = objShell.Run(strdotnetfx, 1, true)
	
						Return = objShell.Run(strLangPack, 1, true)

						Return = objShell.Run(strInstaller, 1, true)
	
					End If
			Else
				Set objShell = WScript.CreateObject("WScript.Shell")

				strPath = Wscript.ScriptFullName
				Set objFSO = CreateObject("Scripting.FileSystemObject")
				Set objFile = objFSO.GetFile(strPath)
				strFolder = objFSO.GetParentFolderName(objFile) 
		
		
				strdotnetfx = """" & strFolder & "\FINK-POS\Extras\DotNetFramework\dotnetfx.exe"""
				strLangPack = """" & strFolder & "\FINK-POS\Extras\DotNetFramework\langpack.exe"""
				strInstaller = """" & strFolder & "\FINK-POS\Fink Installation.exe"""

				'wscript.echo strdotnetfx 
		
				Return = objShell.Run(strdotnetfx, 1, true)
	
				Return = objShell.Run(strLangPack, 1, true)

				Return = objShell.Run(strInstaller, 1, true)
	
			End If
			
		Else
			Set objShell = WScript.CreateObject("WScript.Shell")

			strPath = Wscript.ScriptFullName
			Set objFSO = CreateObject("Scripting.FileSystemObject")
			Set objFile = objFSO.GetFile(strPath)
			strFolder = objFSO.GetParentFolderName(objFile) 
		
		
			strdotnetfx = """" & strFolder & "\FINK-POS\Extras\DotNetFramework\dotnetfx.exe"""
			strLangPack = """" & strFolder & "\FINK-POS\Extras\DotNetFramework\langpack.exe"""
			strInstaller = """" & strFolder & "\FINK-POS\Fink Installation.exe"""

			'wscript.echo strdotnetfx 
		
			Return = objShell.Run(strdotnetfx, 1, true)
	
			Return = objShell.Run(strLangPack, 1, true)

			Return = objShell.Run(strInstaller, 1, true)
	
			End If
	
      </script>

   </job>

</package>

/span

Απ: Τσεκάρισμα του Registry απο .bat/.wsf ??

AlKiS — Fri, 13 Jul 2012 20:58:42 GMT

Markos:
Υπάρχουν πάρα πολλές πηγές στο internet για το πως διαχειρίζεσαι registry με scripts. Ενδεικτικές είναι οι εξής:

How to read a registry key and its values (VBScript)
Scripts to manage Registry

Ελπίζω να σε βοηθήσουν.

Ναί! αυτά είναι τέλεια!!

thaaaaaanks :)

Απ: Τσεκάρισμα του Registry απο .bat/.wsf ??

AlKiS — Fri, 13 Jul 2012 20:56:46 GMT

ευχαριστώ πολύ για την βοήθεια.

τα κοίταξα όλα, και το "1," φαίνεται το πιο promising. Τα υπόλοιπα είτε απλώς δίνουν πληροφορίες είτε χρειάζονται το .net framework in the first place για να τρέξουν.

Θα προσπαθήσω λίγο ακόμα μήπως και γίνει τίποτα με το VBScript (.wsf) μιας που ήδη κατάφερα να τρέχουν ένα-ένα, διότι το 1. θέλει C++ και εγώ ξέρω μόνο VB, οπότε θα δυσκολευτώ ιδιαίτερα για να κάνω τις απαραίτητες αλλαγές.. (δλδ να βλέπει αν υπάρχει το .Net 2.0, αν ναι να τρέχει το installer.exe αλλίως ένα-ένα τα 3 αρχεία)

Απ: Τσεκάρισμα του Registry απο .bat/.wsf ??

Markos — Fri, 13 Jul 2012 20:30:10 GMT

Υπάρχουν πάρα πολλές πηγές στο internet για το πως διαχειρίζεσαι registry με scripts. Ενδεικτικές είναι οι εξής:

Ελπίζω να σε βοηθήσουν.

Απ: Τσεκάρισμα του Registry απο .bat/.wsf ??

Markos — Fri, 13 Jul 2012 20:07:29 GMT

Υποχρεωτικά θα "πας" native!! Δεν υπάρχει άλλος τρόπος. Πηγές που μπορούν να σε βοηθήσουν είναι οι εξής:

Δεν είμαι "native" guy, οπότε δε μπορώ να σε βοηθήσω περισσότερο. Η πιο απλή προσέγγιση που θα μπορούσα να σκεφτώ στη δική σου περίπτωση είναι να χρησιμοποιήσεις το utility της πηγής (1) σε κάποιο .bat file. Αν το .NET Framework δεν είναι εγκατεστημένο, θα ήταν λάθος θα αυτοματοποιήσεις της διαδικασία εγκατάστασης, γιατί έτσι κι αλλιώς η εγκατάστασή του προϋποθέτει administrator privileges (όπως, άλλωστε, και όλες οι εγκαταστάσεις).

Ένα παραθυρικό native utility είναι και αυτό.

Απ: Τσεκάρισμα του Registry απο .bat/.wsf ??

AlKiS — Fri, 13 Jul 2012 19:34:14 GMT

Rayden:
Τσέκαρε το παρακάτω link , ίσως σε βοηθήσει.

http://stackoverflow.com/questions/1342245/wshshell-runinstallpath-0-true-not-waiting-to-finish-the-installation-and-co

Δυστυχώς ο φίλος έχει διαφορετικό πρόβλημα.. (βασικά έχει μεγαλύτερο πρόβλημα από μένα γιατί η εφαρμογή που έχει στο wait κλείνει και τρέχει άλλο αρχείο)

Εγώ ξέρω ποια αρχεία θέλω να τρέξουν - και δεν ανοίγουν άλλα πράγματα στο μεταξύ... απλώς δεν μπορώ να το κάνω να τρέξουν από υποφάκελο.

Παναγιώτης Καναβός:

Γιατί δεν φτιάχνεις ένα πραγματικό setup project? Ο εντοπισμός του .ΝΕΤ Framework γίνεται αυτόματα.

Αν ήταν στο χέρι μου, αυτό θα έκανα χωρίς δεύτερη σκέψη. Αλλά μου ανατέθηκε να γράψω μια φόρμα 800x600 που θα έχει την εικόνα της εταιρίας, και από εκεί θα δίνονται επιλογές για το ποια πράγματα θα φορτωθούν, όπως επίσης και support κτλ...

Από τη φόρμα την ίδια θα μου ήταν πολύ εύκολο να γράψω κώδικα να ελέγχει αν υπάρχει το >net framework, αλλά θα ήταν εντελώς άχρηστο αφού αν δεν υπήρχε, δεν θα έτρεχε και η φόρμα (Vb.Net χρησιμοποιώ). Οπότε πριν τρέξει η φόρμα, πρέπει με άλλο τρόπο να ελέγχω αν υπάρχει ή όχι, και αν δεν υπάρχει να το εγκαθιστώ, και μετά να τρέχω τη φόρμα..

Κατάφερα να το κάνω να τα τρέχει ένα ενα τελικά.. ήθελε να βάλω το file path μέσα σε """" quotes"""". (Άλλαξα τον πάνω κώδικα με αυτόν που δουλεύει)

αλλά να ελέγχω registry από batch ή vbScript είναι μακράν πάνω από τις δυνατότητές μου...

Απ: Τσεκάρισμα του Registry απο .bat/.wsf ??

Παναγιώτης Καναβός — Fri, 13 Jul 2012 00:26:16 GMT

Γιατί δεν φτιάχνεις ένα πραγματικό setup project? Ο εντοπισμός του .ΝΕΤ Framework γίνεται αυτόματα.

Απ: Τσεκάρισμα του Registry απο .bat/.wsf ??

Rayden — Thu, 12 Jul 2012 17:50:20 GMT

Τσέκαρε το παρακάτω link , ίσως σε βοηθήσει.

http://stackoverflow.com/questions/1342245/wshshell-runinstallpath-0-true-not-waiting-to-finish-the-installation-and-co

Απ: Τσεκάρισμα του Registry απο .bat/.wsf ??

AlKiS — Tue, 10 Jul 2012 00:32:42 GMT

Τώρα προσπαθώ να φτιάξω ένα VBScript και έχω γράψει μέχρι τώρα:

<package>

   <job id="vbs">

      <script language="VBScript">

		Set objShell = WScript.CreateObject("WScript.Shell")

		strPath = Wscript.ScriptFullName
		Set objFSO = CreateObject("Scripting.FileSystemObject")
		Set objFile = objFSO.GetFile(strPath)
		strFolder = objFSO.GetParentFolderName(objFile) 
		
		
		strdotnetfx = """" & strFolder & "\FINK-POS\Extras\DotNetFramework\dotnetfx.exe"""
		strLangPack = """" & strFolder & "\FINK-POS\Extras\DotNetFramework\langpack.exe"""
		strInstaller = """" & strFolder & "\FINK-POS\Fink Installation.exe"""
		
		Return = objShell.Run(strdotnetfx, 1, true)
	
		Return = objShell.Run(strLangPack, 1, true)

		Return = objShell.Run(strInstaller, 1, true)
	
      </script>

   </job>

</package>

Αυτή τη στιγμή ο κώδικας τρέχει τα 3 αρχεία, ένα-ένα (πρώτα τα .net framework, και μετά το installation) χωρίς όμως να κοιτά στο registry αν είναι φορτωμένο το .net framework.

Αυτό που θέλω είναι να βλέπει αν υπάρχει το "HKEY_LOCAL_MACHINE\Software\Microsoft\NET Framework Setup\NDP\v2.0.50727", και αν ναι, αν το "Install" εκεί μέσα έχει τιμή 1.

Αν ναι, τότε να τρέχει μόνο το " Fink Installation.exe "

αλλιώς να τα τρέχει ένα-ένα όπως το έχω γράψει.

Το θέμα είναι, πως ελέγχουμε το registry σε VBScript???

Τσεκάρισμα του Registry απο .bat/.wsf ??

AlKiS — Mon, 09 Jul 2012 05:56:09 GMT

(μιλώντας για VB.NET προς το παρόν)

θέλω να φτιάξω μια φόρμα που θα περιέχει μερικά κουμπιά όπου το καθένα θα τρέχει ένα αρχείο installer για να κάνει install αυτό που γράφει το εκάστοτε κουμπί.

Το θέμα είναι ότι για να τρέξει η VB.NET φόρμα αυτή, χρειάζεται εγκατεστημένο το .net framework

Θέλω να δημιουργήσω ένα .bat ή .wsf αρχείο το οποίο!

1) θα ελέγχει εάν υπάρχει το εξής κλειδί στο registry:

1	"HKEY_LOCAL_MACHINE\Software\Microsoft\NET Framework Setup\NDP\v2.0.50727" /v Install

Αυτό θα πρέπει να περιέχει την τιμή "1"

2.α) Αν υπάρχει ΚΑΙ περιέχει την τιμή "1", τότε να τρέχει το πρόγραμμα "FinkPOS.exe" που βρίσκεται στον ίδιο φάκελο

2.β) Αν είτε δεν υπάρχει, είτε υπάρχει αλλά με άλλη τιμή, τότε θα πρέπει

2.β.1) να τρέχει το πρόγραμμα "dotnetfx.exe" που βρίσκεται στον υποφάκελο "DotNetFramework" (\DotNetFramework\dotnetfx.exe)

2.β.2) αφού περιμένει να τερματιστεί το "dotnetfx.exe", να τρέχει το "langpack.exe" στον ίδιο υποφάκελο (\DotNetFramework\langpack.exe)

2.β.3) αφου περιμένει να τερματιστεί και το "langpack.exe", νσ τρέξει το FinkPOS.exe

Ο κώδικας είναι στο παρακάτω post.

(Λόγω του ότι έσβησα πράγματα και απο τα 2 post με edit για ενημέρωση)