' Restore the Metabase Using a Password
Const MD_BACKUP_HIGHEST_VERSION = &HFFFFFFFE
strComputer = "."
Set objWMIService = GetObject _
("winmgmts:{authenticationLevel=pktPrivacy}\\" _
& strComputer & "\root\microsoftiisv2")
Set objComputer = _
objWMIService.Get("IIsComputer.Name='LM'")
objComputer.RestoreWithPassword _
"ScriptedBackup", MD_BACKUP_HIGHEST_VERSION, 0, _
"er$3qld9o"