Access db

Det kan du ikke med mindre du bruge ActiveX! -Jeg tror faktisk ikke engang man kan med ActiveX... :-/

//>Rune

ALt kan lade sig gøre....på en eller anden måde.

Du skal jo tænke på at VBScript er et klient sprog... Og det kan hverken skrive til filer eller læse! Så at få fat på en database, vil jeg nu mene mere var et job for ASP!

//>Rune

Stort set alle programeringssprog til windows kan trække data ud af Access.

Er der noget specielt du tænker på?

vbscript har jo fil adgang. man kan da skrive og læse fra *.txt filer?

joker>Nej, så skal du bruge WSH!

//>Rune

Dim fso, MyFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile= fso.CreateTextFile("c:\testfile.txt", True)
MyFile.WriteLine("This is a test.")
MyFile.Close

Dim fso, MyFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile= fso.CreateTextFile("c:\testfile.txt", True)
MyFile.WriteLine("This is a test.")
MyFile.Close

fuck, kom til at trykke på den forkerte knap =D

eagleeye, hvordan gør jeg så?

medions, hvad er WSH?

WSH = Windows Scripting Host scripts

//>Rune

Men hvordan bruger jeg så det?

Med Delphi tag et kig her: http://delphi.about.com/library/weekly/aa091801a.htm

Her har du et eksempel:
http://www.rgagnon.com/wshdetails/wsh-0003.html

//>Rune

joker>> hvis du ikke mener du har fået svar nok så kan du bede medíons om at give points tilbage eller hvordan skal "fuck, kom til at trykke på den forkerte knap =D" tolkes???

Asso de point betyder ikke noget for mig, så det er egentlig ligegyldigt.

Jeg er ved at kigge på noget her: http://www.mjtnet.com/index.mv?vbsdb.html

ok.. Du kan også bruge Excel: http://www.eksperten.dk/spm/235527

On Error Resume Next

Set objAcc = WScript.CreateObject("Access.Application")
Set objDBE = objAcc.DBEngine

Set objDB = objdbe.OpenDatabase("c:\inman\ComputerInfo.mdb")
Set rsComputername = objDB.OpenRecordset("Computername")
Set rsNIC = objDB.OpenRecordset("NIC")
Set rsCDROM = objDB.OpenRecordset("CDROM")
Set rsPhysicalDisks = objDB.OpenRecordset("PhysicalDisks")
Set rsGraphicsCards = objDB.OpenRecordset("GraphicsCards")
Set rsMemory = objDB.OpenRecordset("Memory")
Set rsProcessor = objDB.OpenRecordset("Processor")
Set rsPointingDevice = objDB.OpenRecordset("PointingDevice")
Set rsBIOS = objDB.OpenRecordset("BIOS")
Set rsMonitor = objDB.OpenRecordset("Monitor")
Set rsSoundDevices = objDB.OpenRecordset("SoundDevices")

Set ComputerSet = GetObject("winmgmts:").InstancesOf ("Win32_ComputerSystem")
for each Computer in ComputerSet 
Computername        = Computer.Name
ComputerDomainRole    = Computer.DomainRole
ComputerManufacturer    = Computer.Manufacturer
ComputerModel        = Computer.Model
ComputerPrimaryOwnerName = Computer.PrimaryOwnerName
'Updating info to database
rsComputername.AddNew
rsComputername.Fields("Computername").Value = Computername
rsComputername.Fields("DomainRole").Value = ComputerDomainRole
rsComputername.Fields("Manufacturer").Value = ComputerManufacturer
rsComputername.Fields("Model").Value = ComputerModel   
rsComputername.Fields("PrimaryOwner").Value = ComputerPrimaryOwnerName
rsComputername.Update
Next

Thx 4 Poinz

//>Rune