Parsing XML with VBS at a Windows Server 2008 R2

Question

Hi
my name is Marius, and I have a little problem with my vbs script. I use this script to parse an xml File if there are errors inside. In my old environment Windows Server 2003 it would work fine.
Now I will run this script at a newer Server 2008 R2, and it is not working.
Dim sName
sName = "Path to xml file"
Dim xmlFile
Dim oneNode
Dim childNodes, childNode
Dim attribut
Dim EventID
Dim repGroup
Dim CustomDomain
Dim ErrorCounter
BackupNotes = ""
ErrorCounter = 0
wscript.Echo "sName: " & sName 'Wird in die Logdatei geschrieben
set xmlFile = CreateObject("Microsoft.XMLDOM")
'Es wird die XML Datei geladen
if xmlFile.load(sName) then
'Schreibt das Datum und die Uhrzeit des XML Datei in oneNode
set oneNode = xmlFile.selectSingleNode("//timestamp/systemTime")
if oneNode is Nothing then
BackupBeginTime = ""
BackupEndTime = ""
BackupBeginDate = ""
BackupEndDate = ""
'wscript.echo "Keine Daten vorhanden" 'Wird in die Logdatei geschrieben
else
'Friday, November 09, 2012 11:55:32
BackupBeginTime = right(oneNode.text, 8)
'nimm von rechts die 8 folgenden Zeichen (11:55:32)
BackupEndTime = BackupBeginTime
Dim Laenge
Laenge = LEN(oneNode.text)
'zaehlt die Lange des Strings in oneNode 'Friday, November 09, 2012 11:55:32 = 34
'wscript.echo Laenge
Laenge = Laenge - 9
'34 - 9 = 25
'es wird das Datum aus dem String der XML Datei gebaut, damit es in die DB geschrieben werden kann
Dim dfsDate
Dim dfsVon
Dim dfsBis
dfsDate = left(oneNode.text, Laenge)
'nimm von links die 25 folgenden Zeichen (Friday, November 09, 2012)
dfsVon = inStr(dfsDate, ",")
'pruefe wo das 1. Komma ist und schreiben die Zeichen in die Variable
dfsVon = dfsVon + 1
'wscript.echo dfsVon
dfsBis = LEN(dfsDate)
'wscript.echo dfsBis
dfsDate = mid(dfsDate, dfsVon, dfsBis)
'Nimm die daten ab dem Komme bis zum Ende des Strings
dfsDate = trim(dfsDate)
'entferne die Leerzeichen Vor und Nach dem Sting
'Wscript.echo dfsDate
dfsDate = cdate(dfsDate)
'dfsDate = November 09, 2012 und wird in 09.11.2012 durch cdate umgebaut
'wscript.echo dfsDate
BackupBeginDate = dfsDate
BackupEndDate = dfsDate
end if
set oneNode = xmlFile.selectSingleNode("//replicationGroup")
'Sucht nach der Replikationsgruppe und der Domain
repGroup = oneNode.getAttribute("name")
CustomDomain = oneNode.getAttribute("domain")
if oneNode is Nothing then
wscript.echo "Keine Daten vorhanden"
'Wird in die Logdatei geschrieben
else
wscript.echo "RepGroup: " & repGroup
'holt sich den Namen der Replikations Gruppe 'Wird in die Logdatei geschrieben
wscript.echo "Domain: " & CustomDomain
'holt sich den Domain 'Wird in die Logdatei geschrieben
end if
set childNodes = xmlFile.selectNodes("//serverErrors/error")
for each childNode in childNodes
'Zugriff auf den Type und die Event ID
attribut = childNode.getAttribute("type")
EventID = childNode.getAttribute("id")
if isNull(attribut) then
wscript.echo "MultiParameter nicht gefunden" 'Wird in die Logdatei geschrieben
'Fehlerhandling, da attribut nicht vorhanden
'wenn keines dieser Attribute vorhanden ist, ist der Backupjob erfolgreich
ErrorCounter = 0
else
' pruefen was im attribut steht und dann entscheiden ob erfolgreich oder nicht
if(attribut = "error") then
if(EventID = "6002") then
BackupNotes = BackupNotes & " "& attribut &"("& EventID &")"
wscript.echo "EventID: "& attribut &" ("& EventID & ") - http://support.microsoft.com/kb/953527" 'Wird in die Logdatei geschrieben
               'Fehlerbehandlung mit ErrrorCounter - Fehler bekannt = 0 Fehler unbekannt + 1
                ErrorCounter = ErrorCounter + 1
elseif(EventID = "11004") then
BackupNotes = BackupNotes & " "& attribut &"("& EventID &" - Temp File)"
wscript.echo "EventID: "& attribut &" ("& EventID & ") - Es konnten nicht alle Daten kopiert werden, Temporaere Dateien http://social.technet.microsoft.com/wiki/contents/articles/406.dfsr-does-not-replicate-temporary-files.aspx"
'Wird in die Logdatei geschrieben
               'Fehlerbehandlung mit ErrrorCounter - Fehler bekannt = 0 Fehler unbekannt + 1
                ErrorCounter = ErrorCounter + 0
elseif(EventID = "4302") then
BackupNotes = BackupNotes & " "& attribut &"("& EventID &" - Freigabeverletzung)"
wscript.echo "EventID: "& attribut &" ("& EventID & ") - Freigabeverletzung http://support.microsoft.com/kb/973836 - Fehler ist bekannt und kann ignoriert werden" 'Wird in die
Logdatei geschrieben
               'Fehlerbehandlung mit ErrrorCounter - Fehler bekannt = 0 Fehler unbekannt + 1
                ErrorCounter = ErrorCounter + 0
elseif(EventID = "4208") then
BackupNotes = BackupNotes & " "& attribut &"("& EventID &" - Staging Quota)"
wscript.echo "EventID: "& attribut &" ("& EventID & ") - Staging Quota zu klein http://blogs.technet.com/b/askds/archive/2011/07/13/how-to-determine-the-minimum-staging-area-dfsr-needs-for-a-replicated-folder.aspx"
'Wird in die Logdatei geschrieben
               'Fehlerbehandlung mit ErrrorCounter - Fehler bekannt = 0 Fehler unbekannt + 1
                ErrorCounter = ErrorCounter + 1
else
BackupNotes = BackupNotes & " "& attribut &"("& EventID &")"
wscript.echo "EventID: "& attribut &" ("& EventID & ")"  'Wird in die Logdatei geschrieben
               'Fehlerbehandlung mit ErrrorCounter - Fehler bekannt = 0 Fehler unbekannt + 1
                ErrorCounter = ErrorCounter + 1
end if
end if
if(attribut = "warning") then
if (EventID = "4208") then
BackupNotes = BackupNotes & " "& attribut &"("& EventID &" - Staging Quota)"
wscript.echo "EventID: "& attribut &" ("& EventID & ") - Staging Quota zu klein http://www.retherfords.com/blogs/CoryRetherford/Lists/Posts/Post.aspx?ID=104 - Fehler ist bekannt und
kann ignoriert werden"  'Wird in die Logdatei geschrieben
'Fehlerbehandlung mit ErrrorCounter - Fehler bekannt = 0 Fehler unbekannt + 1
ErrorCounter = ErrorCounter + 0
elseif (EventID = "11004") then
BackupNotes = BackupNotes & " "& attribut &"("& EventID &" - Temp Datei)"
wscript.echo "EventID: "& attribut &" ("& EventID & ") - Es konnten nicht alle Daten kopiert werden, Temporaere Dateien - Fehler ist bekannt und kann ignoriert werden"  'Wird
in die Logdatei geschrieben
'Fehlerbehandlung mit ErrrorCounter - Fehler bekannt = 0 Fehler unbekannt + 1
ErrorCounter = ErrorCounter + 0
elseif (EventID = "4302") then
BackupNotes = BackupNotes & " "& attribut &"("& EventID &" - Freigabeverletzung)"
wscript.echo "EventID: "& attribut &" ("& EventID & ") - Freigabeverletzung http://support.microsoft.com/kb/973836 - Fehler ist bekannt und kann ignoriert werden"  'Wird
in die Logdatei geschrieben
'Fehlerbehandlung mit ErrrorCounter - Fehler bekannt = 0 Fehler unbekannt + 1
ErrorCounter = ErrorCounter + 0
elseif (EventID = "4206") then
BackupNotes = BackupNotes & " "& attribut &"("& EventID &" - Staging Quota)"
wscript.echo "EventID: "& attribut &" ("& EventID & ") - Staging Quota zu klein http://mpwiki.viacode.com/default.aspx?g=posts&t=123818"  'Wird in die Logdatei geschrieben
'Fehlerbehandlung mit ErrrorCounter - Fehler bekannt = 0 Fehler unbekannt + 1
ErrorCounter = ErrorCounter + 0
elseif (EventID = "11001") then
BackupNotes = BackupNotes & " "& attribut &"("& EventID &" -)"
wscript.echo "EventID: "& attribut &" ("& EventID & ") - "  'Wird in die Logdatei geschrieben
'Fehlerbehandlung mit ErrrorCounter - Fehler bekannt = 0 Fehler unbekannt + 1
ErrorCounter = ErrorCounter + 0
else
BackupNotes = BackupNotes & " "& attribut &"("& EventID &")"
wscript.echo "EventID: "& attribut &" ("& EventID & ")"  'Wird in die Logdatei geschrieben
'Fehlerbehandlung mit ErrrorCounter - Fehler bekannt = 0 Fehler unbekannt + 1
ErrorCounter = ErrorCounter + 0
end if
end if
end if
next
else
wscript.echo "Pfad (sName): XML Datei nicht vorhanden" 'Wird in die Logdatei geschrieben
ErrorCounter = ErrorCounter + 1
'Wenn keine XML Datei vorhanden ist, wird dies in die DB geschrieben
BackupBeginTime = ""
BackupEndTime = ""
BackupBeginDate = ""
BackupEndDate = ""
BackupNotes = "XML Datei nicht vorhanden"
end if
Had somebody a Info for me what I'm doing wrong :)
Thanks & Regards
Marius

Answer 1

Hi JRV,
I have checked my script und I have get it running by wscript.
And I have an error with the funktion cdate:
sName: \\S-49-NICSAS-201.nicsas.local\_logs\RH\S-49-RHBAD-001\DFS\S-49-RHBAD-001-Bad_Users.xml
10
27
December 19, 2013
C:\_scripts\xmltest.vbs(56, 3) Microsoft VBScript runtime error: Type mismatch:'cdate'
THis is the Code:
dfsDate = left(oneNode.text, Laenge)
'nimm von links die 25 folgenden Zeichen (Friday, November 09, 2012)
dfsVon = inStr(dfsDate, ",")
'pruefe wo das 1. Komma ist und schreiben die Zeichen in die Variable
dfsVon = dfsVon + 1
wscript.echo dfsVon
dfsBis = LEN(dfsDate)
wscript.echo dfsBis
dfsDate = mid(dfsDate, dfsVon, dfsBis)
'Nimm die daten ab dem Komme bis zum Ende des Strings
dfsDate = trim(dfsDate)
'entferne die Leerzeichen Vor und Nach dem Sting
Wscript.echo dfsDate
dfsDate = cdate(dfsDate)
'dfsDate = November 09, 2012 und wird in 09.11.2012 durch cdate umgebaut
wscript.echo dfsDate
I'm not sure why it is not working, could you help?
Thanks & Regards
Marius