The succes of Browsem

Getting windows version & os, from VBA

2011-07-11T23:59:00.000-07:00

Hi all.
Im using Vba a lot, as a cad modifying tool, and one of the limitations i run in to, is in installing the right printer / pdf drivers, to get everything working in THIS particular version of windows.
There are different drivers for xp/xp64/7/7_64 and so on.
Therefore i cobbled this together from different sources

Sub testGetOs()
MsgBox GetOS
End Sub

Function GetOS()
'Will work with most versions of WSH.
'CMD window will not display.
Const OpenAsASCII = 0
Const FailIfNotExist = 0
Const ForReading = 1

Dim WshShell: Set WshShell = CreateObject("WScript.Shell")
Dim FSO: Set FSO = CreateObject("Scripting.FileSystemObject")
Dim sTemp, sTempFile, fFile, sResults
sTemp = WshShell.ExpandEnvironmentStrings("%TEMP%")
sTempFile = sTemp & "\runresult.tmp"

WshShell.Run "%comspec% /c ver >" & sTempFile, 0, True

Set fFile = FSO.OpenTextFile(sTempFile, ForReading, FailIfNotExist, OpenAsASCII)

sResults = fFile.ReadAll
fFile.Close
FSO.DeleteFile (sTempFile)
Select Case True

'Add more info to the 98 and 95 to get the specific version. i.e. 98SE 95 a,b,or c
Case InStr(sResults, "Windows 95") > 1: GetOS = "W95"
Case InStr(sResults, "Windows 98") > 1: GetOS = "W98"
Case InStr(sResults, "Windows Millennium") > 1: GetOS = "WME"
Case InStr(sResults, "Windows NT") > 1: GetOS = "NT4"
Case InStr(sResults, "Windows 2000") > 1: GetOS = "W2K"
Case InStr(sResults, "5.2") > 1: GetOS = "XP " + AmI32Or64
Case InStr(sResults, "6.1") > 1: GetOS = "7 " + AmI32Or64
Case Else: GetOS = "Unknown"
End Select
End Function

Function AmI32Or64()

On Error Resume Next

Dim WshShell
Dim OsType

Set WshShell = CreateObject("WScript.Shell")

OsType = WshShell.RegRead("HKLM\SYSTEM\CurrentControlSet\Control\Session Manager\Environment\PROCESSOR_ARCHITECTURE")

If OsType = "x86" Then
AmI32Or64 = "32 bit"
ElseIf OsType = "AMD64" Then
AmI32Or64 = "64 bit"
End If
On Error GoTo 0
End Function

This will show what kind of windows Os your running.
I got some of the code from here
and some more here
Enjoy

Bad slotin dvd player

2009-10-28T02:49:00.000-07:00

I own a Denver DVD/19" Tft telivision.
Nice cheap unit, but it has its faults.
1. random freezes between chanels. Solution, remove power count to ten, and reboot.
2. Dvd's becom stuck in the slot in feed mecanism.

Its the second we vill tackle today.

I think, the problem occurs, with a sensor in the dvd cradle.
The one telling the controller that the cradle is in the loaded position.
I think that either it isnt activating the sensor, or perhaps its overshoting the stop position.
Since the sensors tells the computer there is no dvd, it cannot eject it.

So how to fix.
Well the first fix i had, was to open the unit, remove the dvd, assemble it again, and wait for the next time.
When this got old. i drilled a hole in the box, added som vires directly from the slotin motor, and now, i can remove the dvd, by adding a 5v power supply to the wires ! Thou this workes it isnt elegant.
I think ill have to add mod it, so i get 5v form the 12v power line, and add a relay that cuts the 12v from the rest of the unit, when im activating the switch.
This last part is mostly for making sure that i wont burn something when using the mod

Min nye bordrundsav

2009-10-28T02:44:00.000-07:00

Hejsa alle.
Jeg manglede en bord rundsav, og nu har jeg fået lov at låne en.
Den viste sig at mangle kræfter til det jeg skal bruge den til.
Altså borede jeg nogle huller i en almindelig rundsav.
Herefter skar jeg den gennem en spånplade, skruede den fast i hullerne.
Vente pladen, og vupti, primitiv bordrundsav.
En strip over gashåndtaget, og så var den klar.
Jeg bruger en tænd sluk på et multistik til at tænde og slukke den.
Styret er en plade, som jeg fæstner med skruer for hvert snit jeg skal bruge.
Jeg skal nemlig slet ikke lave så meget med den.
Igår tyggede den sig gennem nogle ege lægter, så den virker fint :-)

At få gjort ting

2009-10-28T02:32:00.000-07:00

Jeg er begyndt at få gjort ting.
Bruger 1-3 timer når jeg kommer hjem, på at lave hvad der nu skal laves på huset, eller i firmaet.
Det er faktisk et stort skridt, fra at være drømmer til at være gører

Håndværker

2009-10-28T02:31:00.000-07:00

Jeg er blevet en bedre håndværker.
Jeg har haft sat en masse lister/lofter og led spots op.

Mig??? skal JEG arbejde ???

2008-08-01T01:16:00.001-07:00

Ahhh, endnu en dag, endnu en opgave vel udført.

Ikke misforstå mig, jeg ved lige så godt som alle andre, at der skal knokles, kæmpes og præsteres.
Dobbelt så meget, når man er konsulent eller selvstændig.
Jeg tror bare ikke på den der med at sidder foran en computer og arbejde.
Specielt ikke når man har mine evner.....
Altså siger jeg med stolthed, at mens jeg sidder og skriver dette, converterer jeg i arbejdslivet i omegnen af 100 tegninger fra et format til et andent.
Jeg er nemlig doven. Så doven at jeg har lavet et program til at åbne mere end een tegning af gangen ( det kan inventor ikke).
Jeg har også lavet et program, der kan exportere en tegning i autocad format ( det kan inventor ikke).
og nu har jeg så kombineret dem, så jeg kan åbne alle 100 tegninger, exportere dem, og lukke dem uden at rørre en finger, når først filerne er fundet.
AHHH det giver mig en lille time til at skrive dette indlæg.
Sådan skal det være at arbejde ved computere, Sådan skal det være at arbejde med robotter, Sådan skal det i det hele taget være at arbejde.
JEG arbejder ikke, JEG sætter computeren og/eller andre i gang.
og holder derefter fri.

Hov nu er den færdig med at knokle,
Det var reelt 4 timers arbejde, på 33 minutter.
ahh lær at scripte venner, det er alt jeg kan sige.
Det tager tid at lære, nogen lærer det aldrig, men når først det virker, kan du sidde og sove 80% af tiden væk, og STADIG være bedre end resten af afdelingen.
Hvad siger du.. exporter til pdf... ja så gerne.
For nu at citere bofh'en

og så mens den knokler, kan jeg sidde og ssh til min server/skrive blog/lege med mine aktier/læse BOFH.
jeg kan ikke arbejde, da inventor allerede knokler for mig.
AHHH livet er skønt

brandhæmmer

2008-01-10T01:05:00.000-08:00

Min mor nævnte, at en lampe drillede.

Den have i lang tid ikke virket, men nu virkede den pludseligt igen.
Det var IKKE pæren, for den var blevet skiftet uden resultat.
Jeg besluttede at se på sagen, fejlstrøm = brand.
og ganske rigtigt.
Ledningen og fatningen var simpelthen ødelagte.
Jeg ved ikke hvorfor, jeg ved bare dette.
Ledningen var IKKE længere isoleret, og den mekanisme i fatningen der gør at det ikke er "klemmerne" i fatningen der løfter lampen, var også ødelagt.
Altså klippe af ledningen indtil vi rammer god ledning, og på med ny fatning.

Det der skræmmer mig er, at der er spor efter brand. eks var der ingen isolering op det yderste stykke ledning, og der var tydelige forkullede mærker. hvorfor er hfi relæ eller sikringer ikke blevet aktiveret ?

hmm. lortehus

En god dag

2007-09-06T00:11:00.000-07:00

Hejsa alle.
Først lad mit sige at jeg har besluttet mig at starte selv, hvis det er nødvendigt.
Forstået på den måde, at kan jeg ikke få andre til at købe en robot af mig, så må jeg jo selv finde noget at brug den til.
Det er trin 1.
Jeg har kontaktet nogle potentielle kunder, og en af disse har efterladt et kighul ind i ordre bogen. så måske.

Ud over dette, kom jeg til at blande mig i en opgave med noget profibus, og noget robot. Ikke en robottype jeg kender, men en robot er.. groft sagt.. en robot.
De har deres fordele og ulemper, men basalt set er en robot en robot. og jeg snakkede med min elektriker, at rent software mæssigt er en busforbindelse en busforbindelse. Vi har sådan set 2 muligheder, strings og registre. Altså ligesom det plejer at være.
Og igen fik jeg "bid".

Elektrikeren spurgte om jeg kunne være interesseret i et fremtidigt projekt, og selvfølgelig er jeg det. men det hører muligvis fremtiden til.

Så fortalte jeg kærresten det, og igen fik jeg positivt resultat.
Ud over det fik jeg bedrevet
1. en fuld arbejdsdag
2. hængt min ene skydedør op, den mangler kun færdigjustering og at blive malet på den ene kant
3. at slå græs for min mor
4. at ordne noget ukrudt for min mor.
5. at snakke med min kæreste
6. at komme tidligt i seng

Altså en Rigtig god dag :-)

Packard Bell 9203 og 9201

2007-07-05T23:45:00.001-07:00

Disse to Keyboards, er udstyret med multimedia knapper, og hvad ved jeg, men de virker normalt ikke under windoze, og Packard bells hjemmeside tillader ikke at man bare finder en driver.
Efter lidt søget på google, fandt jeg en fyr der sagde at man bare skulle søge under komplette systemer istedet, og da jeg havde ledt gennem 10-30 systemer uden keyboard fandt jeg endeligt den rigtige driver .
aboard_usb_ps2.exe
hedder den.
Så langt så godt, bortset fra at de std. instillinger den er udstyret med ikke passer mig, Jeg skal bla have åbnet min lommeregner osv, og dertil er der ingen brugerflade.
ØV :-(
Nå gang i explorer og søg, søg alle filer, filer ændret idag.
Det giver en liste hvori der blandt andet er et bibliotek c:\apps\activboard
heri ligger filen keyb.ini
keyb.ini -> notepad
og jep, det er en tekst fil, altså, HER skal der pilles
jeg ændrede tv-out, til c:\programmer\polsk\polsk.exe (omvendt polsk notations lommeregner, simpel men god, lavet af jeabp)
og packard bells hjemmeside til google
og activ support til gmail.
internet blev til acad, da den altid driller mig.
PS hvis man retter osdmessage får man sjove resultater
The international quick version
Download Driver for keyboard 9203, 9201 (9202?)
aboard_usb_ps2.exe
configure during install
Custumize by running
notepad.exe c:\apps\activboard\keyb.ini
in the start->run window
If you copy a line, placing a ; in front its easy to get back to factory settings.
Change action lines to start programs and so on
Change osd lines to get funny text on the screen

6 06 2007

2007-06-06T14:23:00.000-07:00

Idag har jeg lavet et stativ færdigt.
Igen Framegeneratoren i inventor er simpelthen guld værd
Jeg har lavet en skabelon til et trappe skelet, det betyder at der indtastes højden af trappen, og vinklen, og endeligt bredden, og PUF færdig trappe :-)
Renten er blevet varslet til at stige, men det tager vi med godt humør.
Vi har allerede afbetalt MERE end 10000 extra. Det vil sige, at for hver % renten stiger, snyder jeg banken for 100 kr :-) og det er bare i år.

Igang igen

2007-06-04T23:33:00.001-07:00

Siden sidst er der sket en del. jeg er begyndt at tegne i inventor igen, og det er godt.
Jeg har lavet en print routine til inventor, der kan sortere/rotere/scalere tegninger til de valgte printere, eller bare sende et helt sæt ud på den optimale blanding af printere.
Jeg har lavet en automatisk udfyldning af tegningshoved.
Begge dele har taget ca 1-2 dage indtil videre, men sparer mig for 5-6 min, hver gang jeg skal arbejde med en tegning. lidt matematik siger så at 4 dage á 8 timer = 1920 min, eller 384 tegninger, for at spare det ind. Vi bør regne hver tegning for 2 tegninger, da vi er 2 tegnere, og vi bør igen halvere, da det vil være besparelserne, pga færre fejl, eller 96 tegninger, for at spare dette ind. Jeg lavede i parentes 15 tegninger på det første projekt, og mangler således kun 81 igen :-)
Har fundet ud af hvordan man bruger framegenerator, i forbindelse med muscular modeling, af rammer. Noget der har gjort mig MEGET mere effektiv.
Er begyndt at forstå Rails, opsætningen på min server, også godt
Har fundet endnu flere penge på mit lån, også godt

09/02-2007

2007-02-09T02:20:00.000-08:00

1. Fik kontrol over telefon vha hyperterminal.
2. Har siden sidst fået sendt 3 konstruktioner i værksted.
3. Har brugt mere tid sammen med min kone.
4. Har besøgt en bekendt, og forsøgt at skaffe arbejde.
5. Han pegede på iværksætter planer fra lollandfalster, dem læser og udfylder jeg snart.
6. Blandede Tasja ind i det med de iværksætter planer.
7. Faldt over Dime lib, til at bruge til bukkeprogram i botter.
8. Faldt over Apt-cache, et phyton script, som måske kan køre på wl500g.
9. Har fået en skilling for at lave computer hos en bekendt. Denne blev delt i 2. noget til bryllups konto og noget til bodo.
10. besluttede at sætte bodobeløbet ind på mit huslån istedet. Det vil give en garanteret rente på 5% før skat , eller ca 8% om året

30/01-2007

2007-01-30T04:05:00.000-08:00

1. Er blevet færdig med en masse småting
2. Har fundet usb-pic programmer.
3. Har lavet flowlayout.
4. Har luftet plan om robotværksted for PM.
5. har sorteret min bookmarks
6. Har fundet ud af a vi skal have firewall+antivirus fra tdc
7. Var forbi det tidligere vejen stål. Skal altså bare have mine fingre i de bremseklodser.
8. var forbi global robots, der er en god 6400 til omkring 53000. totalt projekt ender sikkert omkring de 150000. Det bør den kunne lave på en måned.
9. Var til møde med underleverandør. Skal assistere med at genskabe en gammel konstruktion
10. Fik smidt ikke mindre end 5 forskellige konstruktioner godkendt og i produktion.
11. Fik rettet diverse småfejl der var kommet.
12. Fik snakket bryllup med min kommende kone
13. Lavede en hel del på mit loft. Strøer, beplankning og rettede nogle fejl.

29/01-2007

2007-01-29T00:35:00.000-08:00

1. Fik tanket billigt, havde kørt 15,1 km liter, selvom vi havde feset rundt med trailer
2. Kom tildligere på arbejde.
3. Fik kørt 2 kopibånd i produktionen.
4. Kontaktede NTI ang. licens
5. Kontaktede ABB ang. Rosa
6. Fik købt printer i Bilka. Det blev den hp 1018. Senere køber vi en Farvelaser, til billeder.
7. Fik løst diverse småting i produktionen.
8. Fik undersøgt hvordan jeg får hp1018 til at virke gennem router.
9. Flashede Router med custom firmware, og fik HP1018 til at virke som Raw printer

weekend 27-28

2007-01-28T23:11:00.000-08:00

1. løb 2 km, med kæreste og hund, i militær støvler.
2. Fik set på forskellige kirker, Jep vi skal giftes.
3. Fik lavet kaffe, allerede lørdag morgen, så jeg ikke ville gå helt død.
4. Fik lavet en hel del på mit loft. Er ved at lægge strøer og beplanke dem, så man kan benytte det som lager.
5. Fik slappet af. Dette er vigtigt for at kunne blive ved at arbejde.
6. Fik brugt( forfærdeligt udtryk om dette) noget tid sammen med kæresten.
7. Fik kørt affald ud på lossepladsen, bla noget af det rådne træ fra carporten
8. Vi fik valgt printer. Den nye bliver en HP1018, da den er økonomisk, billig, og efter diverse tests bare virker.
9. Lavet ny handlingsplan ang. vores økonomi. Denne har været lidt overophedet, da vi ikke helt sidder i det som vi forventede.
10. Fik et tilbud om at låne billige penge af min far. Noget der også kan hjælpe med vores generelle økonomi(den kan jo ikke blive FOR god ;-D ). Disse skal i give fald betale resten af mit studielån.

26/01-2007

2007-01-26T01:47:00.000-08:00

1. lavede min ide/projekt plan. Hvor jeg skriver alle mine tossede ideer op.
2. Beskrev Kongevejen for Mads
3. undersøgte om canon kopimaksiner kan dele mailboxe.
4. Fandt mindre fejl i værksted, før den blev sat helt fast
5. Brugte tid på JH's robot.. langt om længe
6. Fik flere ting smidt i værkstedet.
7. kopierede/strakte båndbane.. det tog 5 min.
8. Fik set endnu en af mine konstruktioner i produktionen.
9. Fik føjet flere ting på mit beregning af båndhastigheds regneark
10. Har ryddet op på mit skrivebord
11. har ramblet lidt på bloggen

25/01-2007

2007-01-25T01:41:00.000-08:00

1. Startede min succes dagbog på nettet. Idéen er at skrive minimum 10 gode ting pr dag. Bloggen skal virke som inspiration for mig selv og andre, samt virke som booster af mit selvværd, når ting går galt.
2. Forstod, og færdiggjorde en transportør/elevator. Jeg har sat mig ind i hvordan denne konstruktion virker og er designet på under 4 hele dage.
3. Tog en endelig beslutning ang. hvilken type pic programmør jeg vil bruge. Jeg vil benytte mig af en embeddet, så jeg altid kan programmere direkte i projektet. Dette fordi jeg ikke vil ødelægge chips, på at pille dem ind og ud af prototyperne.
4. Undersøgte markedet for 3d cad/cam muligheder på abb robotter. Der eksisterer nogle løsninger, men ikke mange.
5. Besluttede at starte min drømme, og min projekt plan. Ved ikke helt hvordan det skal køre, men noget skal snart ske. Jeg har for mange gange haft en ide, og ikke fået levet en ud, bare for at se andre gøre det. et eksempel: jeg har en håndskitse/principskiste liggende af VW's DSC gearkasse, som jeg tegnede som 12 årig = 15 år før den kom på markedet.
6. Fik en snak om IT med min chef, er blevet mere eller mindre ansvarlig for hvordan netværket i det nye kontor kommer til at se ud.
7. Tegner flydende i ME10. Det er et 2d CAD program, som jeg efter en kort introduktion nu tegner i uden problemer.
8. Fik pakket min telefon ned, den skal et smut forbi telia.
9. Fik sendt en indskannet testside til leverandøren af min toner patron. Håber at det er den og ikke tromlen der er deffekt.
10. Installerede drivere til dvb(digital video brodcast) og alsa(lyd fra tvkort gennem pci til lydkort), på min flexbox(Xbox kopi, Athlon 2Ghz, Gforce 2, seagate barracuda 40gb Hd, Asus 7131 Dual, Silverstone lc11. Knoppmyth som styresystem). Mere præcist tilføjede jeg saa7134-dvb og saa7134-alsa, til /etc/modules, lige efter saa7134. Herefter kunne myth se mit tvkort
11. Så det kontor, jeg forventer at skulle bruge noget af min fremtid i.
12. Installerede Qcad under linux.
13. Editerede mine "edit-me" links på blogspot....før jeabp :-) æv bæv