Vbscript ved inst og afinst af applikation

Hey, takker for pointene. Det med tidsstempling kigger jeg på senere, når jeg får tid.

Dim strComputer
strComputer="."
Set WshShell=WScript.CreateObject("WScript.Shell")
Dim objWMIService, colItems
  Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
  Set colItems = objWMIService.ExecQuery("Select * from Win32_OperatingSystem",,48)
  For Each objItem in colItems
    styresystem = objItem.Caption
    pcnavn = objItem.CSName
  Next
tidspunkt = Now()
txt = "Pc = " & pcnavn
txt = txt & vbcrlf & "OS =" & styresystem
txt = txt & vbcrlf & tidspunkt
Const ForAppending = 2
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile ("c:\" & pcnavn & ".txt", ForAppending, True)
objTextFile.WriteLine(txt)
objTextFile.Close
WshShell.Popup strMessage,1,"Indstillingerne gemmes"